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_AMIGA | 


Neuauflage: die Inside-Story. 


Amiga Intern - ein Intern, wie man es 
von DATA BECKER gewohnt ist. Mit 
allem, was dazugehört: 68000-Prozes- 
sor, CIA, Blitter, Custom-Chips, die 
Strukturen von EXEC, I/O-Hand- 
habung, Verwaltung der Resources, 
Erstellung eigener Devices, Exec-Base, 
resetfeste Programme, Autoboot mit 
der ROMboot. library, DOS-Funkti- 
onen, interne DOS-Bibliothek, Aufbau 
einer Diskette, Programmierung eige- 
ner DOS-Handler. 


‚Amiga Intern 

Hardcover, ca. 650 Seiten, 
DM 69,- 

erscheint ca. 9/88 


Mit Programmen zaubern. 


Mit Amiga Tips & Tricks läßt sich die 
Arbeit mit Ihrem Rechner noch effek- 
tiver gestalten - selbstverständlich 
bereits unter Berücksichtigung des 
neuen Betriebssystems (Version 1.3): 
Gestaltung eigener Programme, Tips & 
Tricks zum AmigaBASIC, Einbinden von 
Maschinenprogrammen in Amiga- 
BASIC, Einsatz von DOS-Routinen, 
optimierende Hilfsprogramme für 
AmigaBASIC-Programme, Tips zur 
Arbeit mit der Workbench, Aufbau der 
Icons, die neuen Preferences. 


Amiga Tips & Tricks 
Hardcover, 555 Seiten, DM 49,- 


Alles zur Amiga-Floppy. 


Brandaktuell: die zweite, erweiterte 
Auflage mit allem, was Bezug zur 
Floppy hat: Workbench, CLI, Amiga- 
BASIC mit verschiedenen Dateitypen, 
Zugriff aufs Betriebssystem (mit File- 
Verwaltung, Trackdisk-Device, Boot- 
Block sowie Checksummen) und direk- 
ter Zugriff ohne DOS (MSM- und 
GCA-Codierung, Track lesen und 
schreiben, SYNC-Markierung). Dazu 
einen Floppyspeeder, einen Disketten- 
Monitor und ein schnelles, leistungs- 
starkes Kopierprogramm. 


Das große Amiga Floppybuch 
Hardcover, ca. 400 Seiten 
inkl. Diskette, DM 59,- 
erscheint ca. 9/88 


DATA BECKER 


Merowingerstr. 30 - 4000 Düsseldorf -Tel. (0211) 310010 





Knallharte Informationen. 


Amiga Intern Band 2 - das Buch für 
jeden aktiven Programmierer, der alle 
weiterführenden Informationen zu 
seiner Arbeit schnell und zuverlässig 
finden will: Ein- und Ausgabe über 
Devices, Standard-Austausch-Formate 
und Komprimierungsverfahren, alle 
Amiga-Libraries mit den dazugehörigen 
Strukturen, Basis- und Grundstruk- 
turen, Preferences als Datenstruktur, 
Datenübermittlung von Workbench 
und CLI, Konventionen im Program- 
mierstil und alles zur Version 1.3. 


Amiga Intern Band 2 
Hardcover, ca. 700 Seiten, 
DM 69,- 

erscheint ca. 9/88 





Runter von der Workbench. 


Rein ins AmigaDOS: Umlenken der Ein- 
und Ausgabe, mit RAM-Disk und CLI 
arbeiten, STARTUP-Sequenz, Multi- 
tasking mit dem CLI, der interne Auf- 
bau der CLI-Befehle, eigene CLI- 
Befehle programmieren... Das große 
Buch zu AmigaDOS - mit nützlichen 
Batch-Dateien und einer Beschreibung 
der neuen CLI-Befehle und Devices 
unter V 1.3! 


Das große Buch zu 
AmigaDOS 

Hardcover, 370 Seiten 
inkl. Diskette, DM 59,- 
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Premiere 


Endlich ist es soweit — das erste AMIGA- 

Sonderheft ist auf dem Markt. Viel Arbeit hat 
es gekostet, aber es hat sich gelohnt. Vor allem 
für Sie soll es sich lohnen. Deshalb haben wir 
»Rund um den Amiga« eine Mischung aus tollen 
Listings, ausführlichen Kursen und vielen Tips & 
Tricks zusammengestellt. 


® Ist das nicht schon im AMIGA-Magazin der 
Fall? Wozu dann ein Sonderheft? Die Frage 
läßt sich leicht beantworten. Einige Listings wä- 
ren sicher irgendwann einmal im AMIGA-Maga- 
zin erschienen. Doch leider gibt es das Magazin 
für Amiga-Fans nur einmal im Monat. Es wäre ei- 
ne nicht unerhebliche Zeit verstrichen, bis die Li- 
stings Ihnen zur Verfügung gestanden hätten. 
Auch der Platz im Stammheft ist eingeschränkt. 
Super-Listings, die etwas länger sind, haben oft 
gar keine Chance, im AMIGA-Magazin veröffent- 
licht zu werden. 


® Ein weiterer Punkt: Schon nach wenigen 
Monaten waren die AMIGA-Ausgaben von 
1987 ausverkauft, die Nachfrage blieb jedoch un- 
gebrochen. Wer sich seit jenen Anfangszeiten 
des Magazins einen Amiga neu zugelegt hat, 
kommt an die wichtigen Informationen aus dieser 
Zeit nicht mehr heran. Wir haben daher grundle- 
gende Kurse aus vielen Ausgaben für Sie neu 
überarbeitet und in diesem Sonderheft zusam- 
mengefaßt. 


Ein ausführlicher Basic-Kurs zeigt Ihnen, 

wie Sie das ohnehin sehr komfortable Ami- 
ga-Basic für Ihre eigenen Programme noch bes- 
ser nutzen können. Nach einer Einführung in die- 
se Programmiersprache erfahren Sie, wie man 
Menüs aufbaut, Sounds aktiviert und was sich al- 
les mit »Bobs« und »Sprites« machen läßt. Haben 
Sie diesen Kurs mitgemacht, dann sind Themen 
wie »Sprachausgabe beim Amiga« oder »Einbin- 
dung der Systembibliothek in eigene Basic-Pro- 
gramme« kein Buch mit sieben Siegeln mehr. Sie 
lernen vieles kennen, was das Handbuch ver- 
schweigt. 


Mit dem CLI-Kurs tauchen Sie in die zweite 

Ebene des Amiga ein. Was kommt nach der 
Workbench? Wie erstellt man eine eigene Boot- 
Diskette? Auf diese und viele weitere Fragen er- 
halten Sie Antworten in dem zweiten Kurs dieser 
Ausgabe. 


AMIGA-SONDERHEFT 1 


E DITORIAL 


Der Amiga ist ein fantastischer Grafik-Com- 

puter und mit einer Hardware ausgestattet, 
die geradezu zur Entwicklung von Spielen ein- 
lädt. Mit »Suremosch« stellen wir Ihnen ein Spiel 
zu Verfügung, das keinen Vergleich mit kommer- 
ziellen Produkten zu scheuen braucht. Dieses 
fesselnde Spiel für Leute mit »Köpfchen« fand so- 
fort Begeisterung in unserer Redaktion. 


© Machen Sie Ihr eigenes 
Tonstudio auf. Kein Pro- 
blem mit dem Digitizer, einer 
kleinen Hardware-Erweiterung 
für den Selbstbau. Die Software 
zu dieser leicht nachzubauen- 
den Schaltung eröffnet Möglich- 
keiten, von denen Sie schon lan- 
ge geträumt haben. Endlich las- 
sen sich eigene Sounds digitali- 
sieren und mit dem Computer 
weiterverarbeiten. Vier getrenn- 
te Kanäle bieten den Komfort ei- 
ner Studio-Tonbandmaschine. 
Die einzelnen »Spuren« können 
Sie beliebig mischen. Auch das 
Verfremden der eingespeisten 
Klänge ist jetzt ganz einfach. 


Tips und Tricks — für viele 

ein Begriff mit magischer 
Anziehungskraft. Ihre Kennzeichen: kurz und in- 
teressant. Es ist kaum möglich, alle Kniffe aus- 
wendig zu kennen. Oft weiß man garnicht, daßes 
zu einem bestimmten Problem eine ganz einfa- 
che Lösung gibt. Oder es kommt einem die 
schwache Erinnerung, irgendwo schon einmal 
etwas zu dem anstehenden Problem gelesen zu 
haben, nur — wo? Um diesem Mißstand ein Ende 
zu bereiten, haben wir viele wichtige Tips & Tricks 
gesammelt. Ergänzend zu den beiden Kursen 
finden Sie Tips & Tricks zu den Themen »Basic« 
und »CLlI«. Wer seinen Amiga noch nicht lange 
besitzt, für den sind die »Tips & Tricks für Einstei- 
ger« eine wahre Fundgrube. Aber auch die Fort- 
geschrittenen und Profis kommen nicht zu kurz. 





® Natürlich wollen wir Ihre Meinung zu dieser 
Ausgabe kennenlernen. Schreiben Sie uns, 
was Ihnen gefallen hat und was wir nach Ihrer An- 
sicht noch besser machen könnten. Ebenso in- 
teressiert uns brennend, welche Themen Sie 
sich für zukünftige AMIGA-Sonderhefte wün- 
schen. 


& Also, behalten Sie Ihre Einstellung nicht für 
sich — wir freuen uns über jeden Tip. 
Schicken Sie Ihre Zuschriften bitte an die »Re- 
daktion Sonderhefte«. 


Ihr Gottfried Knechtel 
(Leitender Redakteur) 


en 
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BR »Futter« für den Amiga: 
FR Public Domain-Software 


8 SUREMOSCH — u kenmarzieher Angebel 
DER BRANDNEUE DENKSPORT Grafikprogramme, 


u ; ; ' iele, Tools und 
Was reizt Sie besonders an einem Spiel? Die FR im 





gelungene Grafik? Ein tolles Spielprinzip? = ; 
»Suremosch« wird Sie in jedem Fall überzeugen. PD a m 
Lassen Sie sich in die Welt der »Klockis«, der interessantesten 
»Wedongs« und der Energiefallen entführen. Der Programme vor. 
eingebaute Leveleditor gestattet es Ihnen, eigene SEITE 1 3 
Höhlen zu erstellen. Der Spielespaß mit Sure- 


mosch nimmt kein Ende. 





13 PREISWERTE SOFTWARE FÜR 
DEN AMIGA 


»Public Domain« ist ein Schlagwort, das allen 
Amiga-Besitzern geläufig sein sollte. Preiswerte 
Software mit teilweise hervorragender Qualität ver- 
steckt sich hinter diesem Begriff. Wir erleichtern 
Ihnen die Auswahl der richtigen Programme und 
stellen die derzeit interessantesten Vertreter dieser 


Gattung vor. Dieses Spiel begeistert 
a jeden: »Suremosch« 
RN kämpft in der Welt der 


Energieverschwender 

22 DCOPY Ei KOPIERT MIT KOMFORT u gegen die »Klockis« 

Ein Programm sollte jeder Amiga-Anwender be- SEITE 8 

sitzen: ein komfortables und schnelles Kopier- 

programm. »DCopy« bietet mehr als nur schnelles 

Kopieren. Auf bis zu drei Laufwerke gleichzeitig 

kann der Inhalt der Originaldiskette vervielfältigt 

werden. 


40 DIE BESTEN TAGE IM JAHR 


Fühlen Sie sich manchmal, als könnten Sie 
Bäume ausreißen? Vielleicht zeigt an diesem Tag 
Ihr Biorhythmus Spitzenwerte. Mit unserem Listing 
kontrollieren Sie Ihre Leistungskurve. Planen Sie 
Ihren Erfolg, legen Sie entscheidende Termine 
einfach auf die vorausberechneten Tage. 








44 DIGITIZER IM SELBSTBAU — ) 
SOFTWARE INKLUSIVE 


Erwecken Sie das Klangwunder Amiga zum 
Leben. Mit unserem Selbstbau-Digitizer und der 
zugehörigen Software »Digisoft Plus« tauchen Sie 
in die faszinierende Welt der digitalen Klänge ein. 
Und das alles kostet weniger als 50 Mark! 





Die besten Tips & Tricks haben wir für Sie 
zusammengestellt. Einsteiger 

oder Profi, Basic-Programmierer oder 
CLI-Insider: hier findet 


jeder neue 
Anregungen 


SEITE 131 









80 VERÄNDERUNG DES CLI Bu 


Mit dem Programm »InitCli3« verändern Sie Vor- 
einstellungen für das CLI, beispielsweise die Farb- 
gestaltung. Entwerfen Sie das CLI-Fenster nach 
eigenen Wünschen. Sogar eine bestimmte Schrift- 
art ist mit diesem Hilfsprogramm zu wählen. 


84 GENAUE DIVISION u 


Für verschiedene Berechnungen ist eine hohe 
Anzahl von Nachkommastellen unbedingt not- 
wendig. Ein Anwendungsfall ist das Erkennen von 
Perioden. Mit »Division« können Sie bis zu 32000 
Stellen hinter dem Komma berechnen! 





BASI: 


Mit dem 

„ Selbstbau- 
Digitizer 
erwecken Sie 
den Sound- 

" Chip des Ami- 
ga zu neuem 
Leben 


SEITE 44 


Der ausführli- 
che Kurs zum 
Amiga-Basic 
verschafft 
Ihnen den 
nötigen 
Durchblick 


SEITE 85 








I NHALT 
DIEBE 


85 BASIC FÜR AUFSTEIGER 


Aller Anfang ist schwer — das gilt auch für das 
Programmieren des Amiga. Die Sprache, die den 
leichtesten Einstieg verspricht, ist das mitge- 
lieferte Amiga-Basic. Unser ausführlicher Kurs ent- 
hüllt die Geheimnisse dieser Programmiersprache 
und zeigt auch »Feinheiten« wie das Aufrufen von 
Routinen der Systembibliothek. 


114 CL! — DIE ZWEITE HAUT DES AMIGA 


Die Bedienung des Amiga über die Workbench ist 
anfangs sehr bequem. Doch schnell sind hierbei 
die Grenzen erreicht, es entsteht der Wunsch 
nach einer effektiveren und leistungsfähigeren 
Benutzeroberfläche. Das CL! bietet die Lösung. 
Probleme beim Umgang mit dieser Oberfläche 
beseitigt dieser Kurs. 


ERS 


131 TOLLE TIPS FÜR EINSTEIGER 


Nach der ersten Freude über den neuen Amiga 
folgen häufig auch die ersten Rätsel. Warum ist 
auf einmal der Bildschirm dunkel, wie stelle ich 
die Farben ein? Zahlreiche Tips helfen bei der 
Lösung auftretender Rätsel. 


135 DIE HEISSESTEN TIPS FÜR INSIDER 


Die besten Tips von Profis für Profis: In dieser 
Sammlung finden auch Spezialisten zahlreiche 
nützliche Hinweise. 


141 DIE BESTEN TIPS ZUM AMIGA-BASIC 


Das Amiga-Basic besitzt interessante Fähigkeiten. 
Mit unseren Tips erschließen Sie noch mehr 
Eigenschaften dieser Programmiersprache. 


144 TIPS UND TRICKS ZUM CLI 


Ergänzend zum CLI-Kurs auf Seite 144 finden Sie 
hier die besten Tricks, die den Umgang mit der 
gewöhnungsbedürftigen Oberfläche zum Kinder- 
spiel machen. 


BÜCHER 


147 ERSTE HILFE 


Grundlagen, Amiga-DOS, Programmieren: 
Literatur zu diesen Themen hilft Ihnen auf die Sprünge. 


EINGABEHILFEN 


159 CHECKSUMMER 


Wie gebe ich Programme ein? Diesen Artikel 
sollten Sie unbedingt lesen, wenn Sie Programme 
aus diesem Sonderheft abtippen möchten. 


SINE lei 


3 EDITORIAL 
162 IMPRESSUM 























Alle Programme aus Artikeln mit einem 
service-Diskette zu diesem Sonderheft 


-Symbol finden Sie auch auf der Programm- 
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DAS COMBITEC-GEWINNSPIEL! 


Beantworten Sie die drei gestellten Fragen und senden Sie die Lösungen auf einer frankierten Postkarte an Combitec. Einsende- 
schluß ist der 1. Dezember 1988. 


1. Welches Laufwerk wird in der Combitec Disk 3,5 verwendet? 
2. Wieviel externe Diskettenlaufwerke sind von dem Amiga 500 ansprechbar? 
3. Wie groß ist der serienmäßige Arbeitsspeicher des Amiga 500? 


Die eingesandten Karten mit den richtigen Antworten nehmen an der Verlosung teil. Der Rechtsweg ist ausgeschlossen. 


1. Preis: 1 Commodore Amiga 500 mit Monitor 1084 
2. Preis: 1 Combitec S-RAM 500 
3, Preis: 1 Combitec Disk 3,5 


Combitec Computer GmbH, Liegnitzer Straße 6-6a, 5810 Witten, 
Tel. (02302) 88072 





Weiteres Lieferprogramm: 


Combitec 5/3 


Steckernetzteil getaktet, 5 Volt, 
3 Ampere 


VK-Preis: DM 1 1 5- 


Amiga 500 VK-Preis DM 940,- 
Monitor 1084 VK-Preis DM 568,- 
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SPIELE 


Seit vier Stunden sitze 
ich bereits vor dem Bild- 
schirm. Der fünfte Ver- 
such, die »Etwas seltsam«- 
Ebene zu lösen, ist ge- 
scheitert. Mein Aktionsra- 
dius ist auf 22 Schritte ge- 
schrumpft — zu wenig, um 
die Ebene erfolgreich zu 
beenden. Widerwillig füge 
ich mich und gebe auf. 
»Suremosch« heißt das 
Spiel, das mich gerade be- 
geistert und meine Kombi- 
nationsfähigkeit bis an die 
Grenze fordert. Noch ein 
Versuch? Nein, mein Ge- 
wissen drängt mich dazu, 
weiterzuarbeiten. Schwe- 
ren Herzens räume ich 
meinen Platz am Joystick. 
Sofort sitzt der nächste, 
von der »Suremosch-Lei- 
denschaft« befallene Re- 
dakteur vor dem Monitor 
und versucht sich an mei- 
ner Ebene. 


In einer 
anderen Welt 


Suremosch führt uns in eine 
andere Zeit auf den Planeten 
Barmi in der Galaxis Aknoll. 
Nichts Außergewöhnliches für 
uns als erfahrene Star Wars- 
Piloten. Die Bewohner des Pla- 
neten werden seit Jahren von 
einer Plage heimgesucht: 
Klockis heißen die Quälgeister, 
die im Übermaß die knappe 
Energie von Barmi verbrau- 
chen. Zeit für uns einzugreifen, 
um den Planeten zu retten. 
Hierzu steht uns der Sure- 
mosch zur Seite, mit dessen 
Hilfe wir die Klockis in ein Anti- 
Materie-Feld schieben (Bild 1). 
Dort werden sie neutralisiert 
und so die weitere Energiever- 
schwendung gestoppt. Für die- 
se schwierige Aufgabe läßt 
sich Suremosch, mit dem Joy- 
stick in Port B gesteuert, inden 
vier Himmelsrichtungen bewe- 
gen. 


Nur Taktik zählt 


Der Hinweis »Gehirn aktivie- 
ren !« am Beginn jeder Ebene 
ist ernst zu nehmen. Dies wird 
jedem Spieler spätestens dann 
bewußt, wenn er mit seiner vor- 
gegebenen Schrittzahl am En- 
de ist, bevor noch der letzte 
Klocki in eines der blinkenden 
Anti-Materie-Felder gescho- 
ben wurde. Suremosch streift 
durch die Gewölbe (Wedongs) 
und Ebenen seiner zweidimen- 
sionalen Welt — immer auf der 
Suche nach Klockis, welche, 
zu allem Überfluß, auch den 


10 


Zeitfluß unserer Welt verlang- 
samen. Doch Vorsicht! Nicht 
alle Klockis reagieren gleich. 
Einige bewegen sich in Schub- 
richtung, bis sie gegen ein 
Hindernis prallen, andere nur 
jeweils ein Feld. Die dritte Art 
ist gutmütig und läßt sich nicht 
vernichten. Suremosch bleibt 
immer so lange in einer Ebene, 
bis er alle Feinde neutralisiert 
hat oder bis er am Ende seiner 
Kraft, der vorgegebenen 
Schrittzahl, erschöpft zusam- 
menbricht. 

Hilfe erhalten wir von den 
Holies. Diese Wesen stärken 
unseren Helden: Einmal ver- 
tilgt, erhöhen Sie die Schritt- 
zahl oder die Anzahl der »Te- 
lops«. Mit einem Telop kann 
Suremosch seinen Platz mit 
dem eines benachbarten Ob- 
jektstauschen (ausgenommen 
sind die Mauersteine). Stellen 
Sie dazu Suremosch unmittel- 
bar vor das entsprechende Ob- 
jekt und drücken den Feuer- 
knopf des Joysticks. Oft bleibt 
keine andere Möglichkeit, an 
alle Klockis heranzukommen, 


sonst endet Ihr Versuch, wie 
mein letzter, mit der Meldung 
»Das war wohl nichts«, und auf 
Barmi wird weiter Energie im 
Übermaß verschwendet. 


So startet das 
Vergnügen 


Suremosch wird von der 
Workbench durch Anklicken 
des Icons »Suremosch.Boot« 
gestartet. Amiga-Basic muß 
sich dabei auf der gleichen 
Diskette befinden. Der Amiga 
muß sich im 80-Zeichen-Mo- 
dus befinden. Im Speicher wer- 
den für das Spiel 300 KByte be- 
nötigt. Das Programm lädt die 
benötigten Daten und meldet 
sich dann mit dem Hauptme- 
nü. Durch Anklicken mit der 
Maus oder den Funktionsta- 
sten wählt man einen der 
Punkte des Hauptmenüs (Bild 
2) aus. 

Erschaffen Sie als erstes ei- 
nen Spieler mit Punkt 2 und 
Eingabe Ihres Namens. Jetzt 
können Sie alle Optionen des 





Bild 1. Kann Suremosch seine Welt retten? Ein geistig 
anspruchsvoller Kampf, bei dem jeder Schritt zählt. 


und so den Weg in den näch- 
sten Wedong zu öffnen. Dort 
kann es vorkommen, daß sich 
die Klockies nur in einer be- 
stimmten, anfangs nicht er- 
kennbaren, Reihenfolge ver- 
nichten lassen. Hier muß erst 
eine unbekannte Anzahl einer 
Klocki-Spezies vernichtet sein, 
bevor sich die zweite Art in das 
Anti-Materie- Feld schieben 
läßt. Mit dem Spiel erhalten Sie 
auch einen »Wedong-Editor«. 
Mit diesem Editor können Sie 
selbst Spielfelder erstellen. 
Insgesamt können 1600 Ebe- 
nen gespeichert werden, so 
bleibt das Spiel eine ständige 
Herausforderung. Ich wün- 
sche Ihnen noch viel Spaß und 
nehmen Sie die Warnung zum 
Einschalten des Gehirns ernst, 


Programms nutzen. Im einge- 
rahmten Feld steht immer der 
Name des aktuellen Spielers. 
Steht der Name auf »Gastspie- 
ler«, können Sie alle Ebenen 
testen. 

Der Menüpunkt 3 startet das 
Spiel. Man wählt zunächst, 
durch Anklicken mit der Maus, 
einen Wedong aus (am An- 
fang: »Mein erster Wedong.«). 
Ein einmal ausgesuchtes Ge- 
wölbe kann von einem Spieler 
erst dann verlassen werden, 
wenn er alle darin enthaltenen 
Ebenen gelöst hat. Erfolgreich 
bestandene Wedongs werden 
markiert und können nicht 
mehr ausgewählt werden. 
Ebenfalls mit der Maus erfolgt 
die Wahl des Spielfeldes. Die- 
ses können Sie jederzeit ver- 


lassen, indem Sie die rechte 
Maustaste festhalten und mit 
dem Zeiger links oben »AUF- 
GEBEN« anwählen (Maustaste 
dann loslassen). 

Nach einem erfolgreich 
beendeten Unternehmen er- 
scheint die Meldung »Hurra, 
du hast es geschafft! Die Ebe- 
ne ist gelöst«, ansonsten die 
betrübliche Mitteilung »Das 
war wohl nichts! Versuch’s 
nochmal«. Klicken Sie die Mel- 
dung mit der Maus an, er- 
scheint das Spielmenü (Bild 3). 
Der erste Punkt sorgt für die 
Rückkehr ins Hauptmenü, da- 
bei werden alle gelösten Ebe- 
nen des aktuellen Spielers ge- 
speichert und der Status des 
Spielers (Punkt 5 des Haupt- 
menüs) erhöht. <F4> ver- 
zweigt ebenfalls zum Haupt- 
menü, jedoch werden die Spie- 
lerdaten hierbei nicht gespei- 
chert. 


Jetzt geht’s rund 


Der vierte Punkt des Haupt- 
menüs gibt uns die Möglich- 
keit, eigene Ebenen zu entwer- 
fen. Dazu benötigen Sie den 
Wedong-Editor. Die Bedie- 
nung ist einfach, da auch hier 
alle Funktionen mit der Maus 
ausgewählt werden. Durch 
Drücken der rechten Mausta- 
ste erscheinen drei Optionen: 
Spielfeld, Parameter und Pro- 
jekt. Bewegen Sie den Maus- 
zeiger auf die Option »Spiel- 
feld«, so können Sie eine neue 
Ebene erstellen. Gehen Sie 
dazu auf den Menüpunkt »Ob- 
jektwahl« und wählen eines der 
gezeigten Objekte aus. Dieses 
Objekt kann an beliebiger Stel- 
le auf dem Spielfeld abgesetzt 
werden, und zwar durch 
Drücken der linken Maustaste. 
Entwerfen Sie jetzt eine eigene 
Ebene, indem Sie das Verfah- 
ren für jedes gewünschte Ob- 
jekt wiederholen. Die Menü- 
punkte »Löschen« und »Leer- 
feld« helfen Ihnen, Fehler zu 
beseitigen. Wichtig: Entwerfen 
Sie erst einen Rahmen. Dazu 
dienen die blauen Randsteine 
(Objekt 1). Haben Sie das ver- 
gessen, so bricht das Pro- 
gramm einen Test (siehe un- 
ten) ab. Die Meldung »Das 
Spielfeld enthält einen schwe- 
ren Fehler« erscheint, wenn 
Sie Suremosch aus dem Spiel- 
feld steuern. 


Fordern Sie 


andere 
Vor dem ersten Test Ihrer 
Ebene müssen Sie folgende 


Parameter (»Parameter An- 
dern«) setzen: 
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on 


® Computer \ N N 


@ Hard- und Software 
® B Distibubon.. 


S 








\ Overrive Syatenn 


Zum Aufbau einer externen Copystation mit 
bis zu drei Drives. Wegen kabelloser Ver- 
bindung durch den Overdrive-System- 

\ Port ist auch beim Dritt- und Viertlauf- 
werk die Datensicherheit garantiert. Kon- 
struktionsbedingt sind die Laufwerke her- 
vorragend abgeschirmt. 


Computer-Point 


Ausstellung - Beratung 
\ Reparaturservice - Verkauf 
auf 290 m? 


Südring / Ecke Rechener Str. 
4630 Bochum 1 


Wir freuen uns auf Ihren Besuch! 


AKTUELL 


Auswahl aus einem Lager von über 
1000 Artikeln 


Software 


Ausstellung / 
Verkauf 
Bochum-Innenstadt 


Südring/ h 
Flightsimulator Il DM 75,- 
Western European Scenery DM 45,- 
Japan Scenery DM 45,- 
Ferrari Formula One DM 75,- 
Turbo *DM 45,- 
Bards Tale Il DM 77,- 
Dungeon Master DM 69,- 
Beyond the Ice Palace DM 69,- 


Ecke Ss Str. 


SUNN 


Verwaltung: 


Hattinger Str. 685 


4630 Bochum 5 


Tel. 02. 34/4 9825-27 


DATEN TECHNIK 


Zoom DM 57,- 
Die Fugger *DM 55,- 
Menace DM 55,- 
4x4 Off Road Racing *DM 69,- 
Carrier Command DM 67,- 
Empire Strikes Back DM 55,- 
Ultima IV DM 55,- 
Hardware 
Bootselector dfo:/dfl: - dfo:/df2: DM 17,50 
Amiga 500/1000 Supra 

Hard Disk 20 MB DM 1698,-- 
Amiga 2000 Supra DMA 

Hard Disk 20 MB DM 1398,-— 
Impact SCSI Controller I 

mit 1MBRAMOK 

ROM Sockel für V 1.3 DM 798,-- 
Eizo Flexscan DM 1548,-- 
Amigo Fi Plus 3.5“ DM 295,-- 
Amigo F1 OSP 3.5“ DM 329,-- 
Amigo F1 M 3.5“ DM 289,-- 
Amigo 2000 3.5“ DM 269,-- 
Amigo 500 RAM 

Erw. Commodore A 501 

abschaltbar und abgeschirmt 

auf 1MB DM 298,-- 


KENNEN 


Ardi ' 








Autorisierter 


Deutschland 


u 


Distributor für die 
Bundesrepublik 


Telefax 02 34/4 9824 
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NET IVENTENDEN 


Aztec C dev. V 3.6 

Aztec C prof. V 3.6 

Aztec C Source Level Debugger 
Benchmark Modula Il 

Lattice C V 4.0 

MCC Pascal V 2.0 


Project D 
Quarterback 
Disk to Disk 
Dos to Dos 
Diskmaster 


Lights, Camera, Action 
Deluxe Photo Lab 
Photon Paint (PAL) 


Digi View V 3.0 PAL 
Digi View V 3.0 Update PAL 
Digi Paint PAL 


Publisher 1000 Plus 
Planetarium . 
Music X 

The Works 
Interceptor 

Jet 


: 8 
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= 
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DM 444,- 

DM 333,- 
DM 119,- 
DM 297,- 
DM 298,- 
DM 198,- 


DM 77,- 
DM 95,- 
DM 75,- 
DM 75,- 
DM 95,- 


DM 135,- 
DM 229,- 
DM 175,- 


DM 295,- 
DM 39,- 
DM 97,- 
DM 149,- 
DM 98,- 
DM 485,- 
DM 289,- 
Ds 75,- 

75,- 





32 Bit Risc-Computer 
Katalog anfordern! 


NENDNIDIERIEN 


Gesamtkatalog ’88 

Fordern Sie kostenlos und unverbindlich 
unseren Gesamtkatalog ’88 an. U.a. mit 
kompletter AMIGA-Software, Video-Digitizer, 
Audio-Digitize, Genlock-Interfaces, Fest- 
plattenlaufwerke, SCSI-Controller, Disket- 
tenlaufwerke, Bausätze, RAM-Erweiterun- 
gen, Drucker, Monitore, Computer, Literatur. 


EBENEN 


EU 


Schritte: die Anfangsschritt- 
zahl für Suremosch. 

Klockis: legt die Anzahl der 
Klockis fest, welche zu ver- 
nichten sind, um die Ebene zu 
lösen. 

Klockisi: ist die Zahl gelber 
Klockis, die zu vernichten sind, 
ehe das erste lila Klocki in ein 
Anti-Materie-Feld geschoben 
werden kann. 

Klockis2: bestimmt den Zu- 
sammenhang zwischen |ila 
und orangenen Klockis (siehe 
Klockies1). 

Telops: die Anzahl der Telops 
zu Beginn der Ebene. 
Bonus-Schritte und Bonus- 
Telops: der Bonus (Schritte 


Spielen 


E23 


LET 2778 


m erschaffen 


Ab in den Hedong 


Hedonsr-Editer 


Status des Sp 


iers 


Verzeichnis wechsein 


Suremosch verlassen 


Nauptmenue 


Meue Ebene 


Gleiche Ebene 


Notausgang 


Treffe deine Wahl 





Bild 3. Sind Sie bereit für den nächsten Versuch? 
Das Spielmenü: Gleiten Sie in die Welt der Klockies. 


oder Telops) nach Entfernen ei- 
nes Bonus-Objektes. 

Mit der Option »Projekt« kön- 
nen Sie Ihre erstellte Ebene 
speichern. Die Punkte »La- 
den«, »Speichern« und »Spei- 
chern als« beziehen sich nur 
auf den Editor-Speicher. Der 
Editor-Speicher verwaltet bis 
zu 40 Ebenen. Erstellen Sie 
mehr Ebenen, müssen Sie an- 
dere vorher in einen Wedong 


ablegen. Mit der Funktion »Lö- 
schen« entfernen Sie Ebenen 
aus dem Editor-Speicher. Hier 
besteht zusätzlich die Möglich- 
keit, eine irrtümlich gelöschte 
Ebene zurückzuholen. Bei ei- 
nem Löschvorgang wird nur 
der Name der Ebene gelöscht. 
Die Ebene bleibt aber bis zum 
Beenden des Programms im 
Editor-Speicher erhalten und 
kann erneut geladen und ge- 





speichert werden. Hierzu 
klicken Sie nach »Laden« den 
Platz im Auswahlmenü an, an 
dem der Name vorher stand. 
Jetzt steht dort zwar »Leere 
Ebene«, das Spielfeld er- 
scheint trotzdem und kann ge- 
speichert werden. 

Ein neues Verzeichnis wird 
mit »Neuer Wedong« erzeugt. 
Alle Ebenen, die in dem neuen 
Wedong untergebracht wer- 
den, sind zuerst mit der Maus 
auszuwählen. Nach dem An- 
klicken von »Weiter« gibt man 
den neuen Namen ein. Zu Be- 
achten ist, daß ein Wedong nur 
erstellt wird, wenn mindestens 
zwei Ebenen für diesen ausge- 
wählt wurden. Die Funktion 
»Lösche Wedong« ist einge- 
baut, da ein Löschen von der 
Workbench mittels »Discard« 
nicht ausreicht. Achtung: 
Schließen Sie immer mit dem 
Rücksprung ins »Hauptmenü« 
ab. Erst dann wird die Editor- 
Datei geschlossen. 

Sie benötigen ein Unterver- 
zeichnis (Schublade), in dem 
später das Spiel und die Daten 
stehen. Erzeugen Sie dafür ein 
solches Verzeichnis auf der 
Workbench: Kopieren Sie die 


Schublade »Empty« von der 
Workbench an die gewünschte 
Position auf einer neuen Dis- 
kette und geben dem neuen 
Verzeichnis mit »Rename« den 
Namen »Suremosch.Spiele«. In 
diesem Verzeichnis erzeugen 
Sie drei weitere Schubladen 
mit den Namen »Spieler«, »We- 
dongs« und »Nachlader«. Die 
Basic-Programme »Sure- 
mosch.Boot« (Listing 1) und 
»Suremosch« (Listing 2) spei- 
chern Sie in der Schublade 


Installations- 
Hinweise 


»Suremosch.Spiel«. Im Ver- 
zeichnis »Nachlader« werden 
die Dateien »Spieler«, »Objek- 
te« und »Editor.Dat«, worin die 
grafischen Informationen aller 
Spielfiguren hinterlegt sind, 
samt Info-Files erzeugt. Die Fi- 
les »Mein erster Wedong« und 
»Wedong-Namen« kommen in 
die »Wedong«-Schublade. 

Die Erzeugung dieser bei- 
den Dateien erfolgt programm- 
gesteuert: Kopieren Sie zu- 
nächst Amiga-Basic und die 
Basic-Programme »File.Dat- 
Maker« (Listing 3) und »Data- 
Lader« (Listing 4) in das Haupt- 
verzeichnis Ihrer neuen Sure- 
mosch-Diskette. Starten Sie 
dann zuerst das Programm 
»Data-Lader«e und danach 
»File-Dat-Maker«. 

Bei beiden Programmen 
müssen Sie nun jeweils den 
Namen »Suremosch.Spiel« für 
die Hauptschublade angeben. 

Christian Rodemeyer/ 
P Baron/rs/sk 





DAS AMIGA PUBLIC DOMAIN DEPOT 


Seit über einem Jahr sind wir für unsere zuverlässigen und 
schnellen Lieferungen von PD-Software bekannt. Alle Pro- 
gramme werden auf hochwertigen, geprüften 2DD-Qualitäts- 
disks geliefert. Mit über 1500 Disks haben wir derzeit eines der 


disks, 


größten PD-Depots, Jeder Bestellung über 10 Disks wird ein 


ausführliches, deutsches Handbuch zum Umgang mit Public 


Domain Software gratis beigelegt. 


Wirliefern u.a.: alle Fish, RW, RPD, Poseidon, Panorama, RHS, 
‚Auge, Chiron, Amuse, ACS, Slideshows, Tor-Special, ES-PD, 
SAFE, TBAG, Faug, UK, Franz, Kickstart, SACC, etc. etc. etc. ... 


Poseidon 1-280 (und Poseidon Special 1-160) 
Diese neue Superserie enthält nur das Beste vom Besten. Alle 


Programme sind garantiert lauffähig und lassen sich durch ein- 


faches Anklicken starten. (Daher auch hervorragend für Ein- 
steiger geeignet). Näheres zu dieser Serie auf unseren Katalog- 


disks! 


LONPUTERTELHNIK 


DM 6,— berechnet. 


4420 Coesfeld 


2 Katalogdisks mit Kurzbeschreibung aller Programme in 
deutsch gegen DM 5,— anfordern (bar, Briefmarken, Scheck) 
— Wirliefern als erster PD-Anbieter komplett deutsche Katalog- 


Einzeldiskette : 
ab 10.Stück ; 
ab 20 Stück : 
ab 30 Stück 

ab 40 Stück : 
ab 50 Stück : 
ab 100'Stück : 


Bei Vorkasse ist der Versand kostenlos, bei Nachnahme werden 


Hardwarellste: 


Golem 3,5” Laufwerk 
- abschaltbar, durchgeschliffener 
Bus, helle Frontblende 


Media Diskettenbox 


DM 299,— 


DM 45,— 


- 35”, stapelbar, ausziehbar, 


DM 6— 
DM 5,70 
DM 5,50 
DM 5,30 
DM 5.— 
DM 4,80 
DM 4,50 


für bis zu 160 Disketten 


Mausmatte 
- ideale Mausunterlage in 
der Farbe rot 


Maushalter DM 
- wird am Monitor befestigt, 
hervorragender Platzschaffer 


DM 19,50 


9,50 


3,5” Leerdisks 2DD 10 Stück DM 24,— 





Rainer Wolf 
Tel.: 02541/2874 


- Qualitätsdisks eines namhaften 
Herstellers neutral verpackt 


Die Lieferung erfolgt umgehend 
ab Lager!!! 
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ie PD-Software für den 

Amiga gewinnt ständig 

an Bedeutung. Die 
Qualität ist ebenso rasch ge- 
stiegen wie die Menge der vor- 
handenen Programme. Die 
»PD-Flut« stellt wohl die mei- 
sten vor das Problem, die rich- 
tige Software herauszufinden. 
Darüber hinaus braucht jeder 
Anwender meist nur ein gutes 


Grafik- und ein Kopierpro- 
gramm. Aber 
wie soll ein 


Amiga-Besitzer 
heute die »Per- 
len« aus dem 
Überangebot 
herausfinden? 
Wir stellen Ih- 
nen tolle Soft- 
ware für jeden 
Geschmack vor. ssssezs 
Public Do- 
main-Program- 
me sind kosten- 
lose Software, 
die jederzeit frei 
kopiert werden 
darf. Man unter- 
scheidet dabei 
zwischen Share- 
ware- und Free- 
ware-Program- 
men. Unter dem 
Begriff Share- 
ware sind die 


Was bietet 
PD-Software? 


Die meisten PD-Programme 
sind Utilities und Tools. Das 
sind kleine nützliche Program- 
me, die jeder Amiga-Besitzer 
gebrauchen kann. In diesem 
Bereich ist die PD-Software 
am stärksten. Hier hat sie die 
professionellen Programme 


P D SOFTWARE 


Entgelt tolle Programme 
schreiben. Zum einen sind 
dies Profis, die aus einem (bei 
der täglichen Arbeit benötig- 
ten) Sprite-Editor ein PD- 
Programm »gebastelt« haben. 
Diese Profis wissen, daß sich 
ihr kleines nützliches Pro- 
gramm nicht verkaufen läßt. 
Sie geben es somit kostenlos 
ab, um die Anwender auf sich 
oder das nächste große Pro- 





»Triclops Invasion« ist ein Action-Spiel mit toller Fraktalgrafik 


Schatten zu stellen — was ih- 
nen oft auch gelingt. 

Wie oben schon gesagt, bie- 
tet PD-Software heute bei den 
Spielen hohe Qualität. »Tric- 


Super-Spiele 


lops Invasion« (Bild 1) ist ein 
auf Fraktalgrafik beruhendes 
Actionspiel. Ziel des Spiels ist 
es, einen Planeten vor der Zer- 
störung durch 
riesige dreibei- 
nige Roboter 
(frei nach H.G. 
Wells »Krieg der 
Welten«) zu ret- 
ten. Diese Drei- 
beiner müssen 
| beseitigt wer- 
den, ebenso wie 
der Satellit, von 
dem die Robo- 
ter in Richtung 
| Planeten aus- 
| schwärmen. Zu 
diesem Zweck 
stehen ein Jet 
und zwei fern- 
| gesteuerte Pan- 
| zer zur Verfü- 
gung, die bei 
| Berührung mit 
einem Dreibei- 
ner explodie- 
ren. Die Robo- 


ICE 


Preiswerte Software 


Programme für den Amiga sind im allge- 
meinen recht teuer. Eine Alternative zu 


für den 


Programme zusammengefaßt, 
die man frei testen, kopieren 
und weitergeben darf. Die Au- 
toren der Shareware-Produkte 
verlangen aber, daß man ein- 
getragener User des Pro- 
gramms wird, sofern man das 
Programm ständig verwenden 
will. Dieses Eintragen kostet 
Geld, man bekommt dafür je- 
doch in Zukunft alle Updates 
des Programms. Dieses Kon- 


Was ist eigentlich 
PD-Software? 


zept stammt aus den USA. Dort 
klappt dies auch ausgezeich- 
net, die Anwender haben be- 
griffen, daß Autoren auch ei- 
nen Lohn für ihre zeitaufwendi- 
ge Arbeit verdient haben. In 
Deutschland ist diese Erkennt- 
nis leider noch nicht vollstän- 
dig bis zu allen Anwendern vor- 
gedrungen. 

Freeware ist im Gegensatz 
dazu kostenlos, es sind ledig- 
lich die Gebühren für Diskette 
und Versand beim Vertreiber 
des Programms zu entrichten. 
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kommerziellen Produkten 


ist Public 


Domain-Software, die heute teilweise ei- 
ne beachtliche Qualität besitzt. Wir er- 
leichtern Ihnen die Wahl des richtigen 
Programms aus dem riesigen Angebot. 


noch nicht überholt, aber im- 
merhin mit ihnen gleichgezo- 
gen. Im Spielebereich war bis- 
her Public Domain noch nicht 
so leistungsfähig, die PD- 
Spiele sind häufig recht kom- 
pliziert und langsam und ha- 
ben schlechtere Grafik als die 
kommerziellen Programme. 
Aber gerade in den letzten Mo- 
naten erscheint dieser Bereich 
deutlich verbessert, die Zeit 
der »Vier Gewinnt«-Spiele ist 
endgültig vorbei. 


Ohne Autor 


kein Programm 


Wenn man in einem READ- 
ME-File einmal gelesen hat, 
wie lange der Autor an einem 
Freeware-Programm gearbei- 
tet hat, fragt man sich, was das 
für Menschen sind, die ohne 


gramm aufmerksam zu ma- 
chen. 

Die anderen sind diejenigen, 
deren größtes Hobby der Com- 
puter ist. Sie produzieren oft 
die PD-Spezialprogramme, die 
zum Beispiel den Sternenhim- 
mel jedes Orts der Erde zu je- 
dem beliebigen Zeitpunkt dar- 
stellen, oder die Struktur eines 
bestimmten Atoms darstellen 
und erklären. 

Außerdem gibt es noch die 
PD-Freaks, die zu Hause eine 
riesige Sammlung an PD-Pro- 
grammen haben, und deren 
einziges Original heute wie da- 
mals die Workbench-Diskette 
ist. Sie programmieren aus- 
schließlich auf PD-Compilern 
und PD-Assemblern, verach- 
ten jede Art von professioneller 
Software und versuchen, diese 
mit PD-Programmen in den 


Amiga 


ter werden mit einem gezielten 
Schuß in eines ihrer Beine ver- 
nichtet. Dabei kann man ver- 
schiedene Blickwinkel, wie 
zum Beispiel die Vogelper- 
spektive, wählen. Das Beson- 
dere an diesem Spiel ist zwei- 
fellos die Fraktalgrafik, in der 
die Welt dargestellt wird. Lei- 
der hat dies zur Folge, daß der 
Spielverlauf recht langsam ist. 
Die Geschwindigkeit kann man 
jedoch erhöhen, indem statt 
fünf nur vier Bitplanes einge- 
stellt werden. Diese Einstel- 
lung ist vor dem Programm- 
start anzugeben. Das Spiel 
wird über die Maus gesteuert, 
mit der nicht weniger als 12 ver- 
schiedene Funktionen aufge- 
rufen werden (und das ohne 
Menüs). Dies ist zwar etwas 
gewöhnungsbedürftig, zahlt 
sich aber durch die einfache 
Steuerung aus. Leider muß 
das Programm neu gestartet 
werden, wenn man ein Spiel 
verloren hat. 

»Hack« (Bild 2) ist ein Grafik- 
Adventure, das vom Betriebs- 
system Unix auf den Amiga 
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A.Plenge 
Amiga-3-D-Grafik und Animation 
Eine leichtverständliche Anleitung für 
ZI die Erstellung von dreidimensionalen 
Grafiken: Clipping, Perspektivische Pro- 
Jektion, Raytracing, Versteckte Linien, 
Schatten, Reflexion, 3-D-Editor. 
1988, 376 Seiten, inkl. Diskette 
ee Ania R n Bestell-Nr. 90526, ISBN 3-89090-526-9 
2 schlaeger, Amiga: DM 69,-/sFr 63,50/6 538, 
Programmierpraxis Intuition nn 
Eine detaillierte Beschreibung 
L z 2 von Intuition. Mit zahlreichen 
Programmierpraxis Amiga-Basic Beispielen auf Diskette. 
Einsatz und Verwendung ausge- 1988, 330 Seiten, inkl. Disk. 
wählter Systemroutinen in eigenen Bestell-Nr. 90593 
‚Amiga-Basic-Programmen. Die ISBN 3-89090-593-5. 1.Krüger, Amiga: Programmieren mit Modula 2 
beigefügte Diskette enthält über DM 69,-/sFr 63,50/08 538,20 Fear Leichtverständlicher Modula-2-Kurs. Mit vielen Beispielen 
80 Beispielprogramme. für die systemnahe Programmierung unter der grafischen 
1988, 368 Seiten, inkl. Diskette Benutzeroberfläche »Intuition«. Auf der Diskette ent- 
Bestell-Nr. 90549 halten: alle Modula-2-Beispiele für Screens, Windows ete. 
ISBN 3-89090-549-8 1988, 362 Seiten, inkl. Diskette 
DM 59,-/sFr 54,30/68 460,20 Bestell-Nr. 90554, ISBN 3-89090-554-4 
ü DM 69,-/sFr 63,50/68 538,20 


H.R.Henning 








D.Myers, Amiga: Grafik * Musik * DFÜ 
Leichtverständlicher Programmierkurs für die ertolg- I a 
reiche Grafik- und Soundprogrammierung in Amiga- 

Basic. Die Musikfunktionen, die Stimme des Amiga, 

Grafik, Animation, Datenfernübertragung und viele 

weitere Themen werden detailliert beschrieben. 

1988, 231 Seiten, inkl. Diskette 

Bestell-Nr. 90579, ISBN 3-89090-579-X 

DM 59,-/sFr 54,30/68 460,20 






P Wollschlaeger, Amiga-Assembler-Buch 
Dieses Buch beweist, daB Assembler-Programmierung 
ganz einfach ist: Ein 68000er-Kurs mit vielen Beispielen. 
Mit ausführlichem Verzeichnis aller Systemroutinen, 
‚Anleitung für das Einbinden von Assembler-Routinen in 
‚Amiga-Basic und vielen Informationen über die Internas 
des Amiga-Betriebssystemns. Mit Beispieldiskette. 

1987, 329 Seiten, inkl. Diskette 

Bestell-Nr. 90525, ISBN 3-89090-525-0 

DM 59,-/sFr 54,30/8 460,20 
























H.R.Henning, Programmieren mit Amiga-Basic 

Eine gründliche Einführung in die Programmierung mit Amiga- 
Basic: Animation (bewegte Grafiken und Sprites) - Befehle zur 
Sprach- und Musikausgabe - Fenstertechnik - Sequentielle Datei- 
verwaltung - Spieleprogrammierung - viele Tips&Tricks und eine 
3Ys*.Diskette mit über 100 Programmbeispielen. 

1987, 363 Seiten, Inkl. Diskette 

[wm Bestell-Nr. 90434, ISBN 3-89090-434-3 

DM 59,-/sFr 54,30/68 460,20 
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Irrtümer und Änderungen vorbehalten. 





Markt&fechnik 


Zeitschriften - Bücher 
Software - Schulung 


Markt& Technik Verlag AG, Buchverlag, Hans-Pinsel-Straße 2, 
8013 Haar bei München, Telefon (089) 46 13-0. 
SCHWEIZ: Markt& Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 415656, 
ÖSTERREICH: Markt& Technik Verlag Gesellschaft m.b.H., Große Neugasse 28, A-1040 Wien, Telefon (0222) 587 1393-0, 
Rudolf Lechner&Sohn, Heizwerkstraße 10, A-1232 Wien, Telefon (0222) 677526 
Ueberreuter Media Verlagsges.mbH (Großhandel), Laudongasse 29, A-1082 Wien, Telefon (0222) 48 1543-0. 


124/807 


Fragen Sie bei Ihrem 
Fachhändler nach unserem 
kostenlosen Gesamtverzeichnis 
mit über 500 aktuellen 
Computerbüchern und Software. 
Oder fordern Sie es direkt 

beim Verlag an! 


Programmname: Triclops 
Invasion 

Autor: (C) Geodesic Publi- 
cation; Präsident: Mark S. 
Adams 
Kurzbeschreibung/Son- 
stiges: 
Fraktalgrafik; 
(21 Dollar) 
Positiv: 

+ Fraktalgrafik 
+ gesamte Steuerung über 
die Maus 

+ gut animierte Figuren 
Negativ: 

— etwas gewöhnungsbe- 
dürftig 

— nachdem man verloren 
hat, muß man das Spielneu 
starten 

— durch die Fraktalgrafik 
mitunter etwas langsam 
Fazit: ein gelungenes Spiel 
und ein absolutes Muß für 
jeden Fraktal-Fan 


Shareware 








übertragen wurde. Den Daten- 
reisenden, die einmal in der 
Markt & Technik-Mailbox »O1S« 
herumgeschnuppert haben, 
ist Hack wohl ebenfalls be- 
kannt, es gehört dort zum stän- 
digen Angebot. Die Umset- 
zung des Spiels auf den Amiga 
ist toll gelungen. Die einfa- 
chen, sehr gewöhnungsbe- 
dürftigen Zeichen, durch die 
ursprünglich das Spielgesche- 
hen dargestellt wurde, sind auf 
dem Amiga durch Icons er- 
setzt. Der Reiz des Spiels wur- 
de gerade durch die neuen 
Grafikelemente stark erhöht. 


Bei Public Domain-Pro- 
grammen für den Amiga 
kommt man immer wieder 
mit einem Wort in Berüh- 
rung, von dem viele noch 
nichtwissen, was es bedeu- 
tet: Unix. Unix ist ein Be- 
triebssystem für größere 
Rechenanlagen. Für Unix- 
Systeme gibt es Unmengen 
von Programmen aller Art. 
Die Standard-Program- 
miersprache auf Unix- 
Systemen ist C, genauso 
wie auf dem Amiga. In die- 
ser Vorstellung von PD- 
Software finden Sie mehre- 
re Programme, die von Unix 
auf den Amiga übertragen 
wurden, wie zum Beispiel 
Hack, Zoo und Empire. 























Bei Spielbeginn wählt man 
einen Abenteurer, den man 
von nun an durch ein Höhlen- 
system lenkt. Sie wählen dabei 
einen der Charaktere Tourist, 
Höhlenforscher, Kämpfer, Rit- 
ter, Höhlenbewohner oder Zau- 
berer. Alle Charaktere besitzen 
bestimmte Ausrüstungsge- 
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genstände und spezifische 
Stärken und Schwächen. Nach 
dieser Auswahl begibt man 
sich auf die Suche nach einem 
Amulett, das sich im Besitz ei- 
nes Magiers befindet. Beglei- 
ter ist ein anfangs als »Jlittle 
dog« bezeichneter Hund. Im 
Verlauf eines Abenteuers kann 
dieser zu einer beachtlichen 
Größe heranwachsen und so 
seinem Herrn gute Dienste er- 
weisen. Das Spiel findet in ei- 
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die Menüleiste zu erreichen 
sind. Das ist sowohl für den An- 
fänger als auch für den erfah- 
renen Spieler von Vorteil, da 
Hack die deutsche Tastaturbe- 
legung nicht akzeptiert und da- 
her besonders bei den Sonder- 
zeichen nicht immer klar ist, wo 
diese zu finden sind. Es sei ab- 
schließend darauf hingewie- 
sen, daß dieses faszinierende 
Abenteuerspiel derzeit nur in 
einer englischen Version exi- 


verbunden sind. Dabei braucht 
nur ein Spieler einen Amiga 
und Empire. Die übrigen Mit- 
spieler benötigen lediglich ein 
Terminalprogramm und einen 
beliebigen anderen Computer. 
Der Amiga, auf dem Empire 
läuft, steuert alle Ein- und Aus- 
gaben an die einzelnen Spie- 
ler. Aus diesem Grund kann lei- 
der keine Grafik verwendet 
werden. 

Empire ist eine komplexe Si- 


Yon jestrer the acid biobt Melcone to experience level 2.--Nore-- 


Level 1 


LITT zu up T 168 Dar ze 


2% 


SEE eEe 


2 zu! 





Bild 2. Schon in der ersten Ebene von »Hack« wimmelt es von Monstern 


nem riesigen Höhlenkomplex 
statt, der aus 20 Etagen be- 
steht. Hier wimmelt es nur so 
von Schätzen und Monstern. 
Nach dem Spielende durch 
den Tod der Spielfigur (Bild 3) 
oder Speichern eines Spiel- 
standes muß Hack neu gestar- 
tet werden. Allerdings besteht 
die Möglichkeit, Hack in einer 
Art Trainermodus zu spielen, 
um sich einen Überblick zu 
verschaffen. 

Das Abenteuer wird mit Hilfe 
einer Vielzahl von Befehlen ge- 
spielt, die entweder durch Ta- 
staturkommandos oder über 


stiert, Kenntnisse dieser Spra- 
che sind unbedingt notwendig. 

»Empire« ist ein etwas unge- 
wöhnliches Spiel, das in »Dra- 
co« geschrieben ist. Draco ist 
eine Shareware-Programmier- 
sprache, die einen Mittelweg 
zwischen Pascal und C be- 
schreitet. Der Reiz des Taktik- 
und Strategiespiels liegt darin, 
daß es über Datenfernübertra- 
gung (DFÜ) mit Freunden ge- 
spielt wird. In der vorliegenden 
Version kann nur ein Anwender 
am Amiga spielen, während 
seine Gegenspieler über den 
seriellen Port mit dem Amiga 





Programmname: Hack 
Autor: (C) Stichting Ma- 
thematisches Centrum, 
Amsterdam 

Übertragen auf Amiga: 
John A. Toebes 

Mit Hilfe von: Dave Baker, 
Ed Burnette, Stan Chow, 
Jay Denebiem, Gordon 
Keener, Jack Rouse, Mary 
Ellen Toebes, Doug Walker 
Grafik: Jeff Lee 
Kurzbeschreibung/Son- 
stiges: 

Adventure mit Kultcharak- 
ter 

Positiv: 

+ umfangreich, komplex 


+ Trainer-Mode 

+ wichtige Befehle auch 
über Menüleiste und Maus 
erreichbar 

+ mehrere Charaktere zur 
Auswahl 

+ nette Grafik 

Negativ: 

— amerikanische Tastatur- 
belegung 

— nachdem der Spielstand 
gespeichert wurde oder die 
Spielfigur gestorben ist, 
muß man das Spiel neu 
starten 

Fazit: Für jeden Amiga- 
Besitzer mit Abenteuerlust 
bestens geeignet 








mulation des Weltgeschehens, 
bei der jeder Spieler eine Na- 
tion repräsentiert. Jeder Mit- 
spieler kann andere Länder an- 
greifen und mit ihnen Handel 
betreiben. Herrenlose Länder 
können besetzt werden, Solda- 
ten einberufen, Kriegsmaschi- 
nerien aufgebaut und die Wirt- 
schaftskraft gesteigert werden. 
So entwickelt sich jedes Land 
je nach dem Handlungs- 
schwerpunkt des jeweiligen 
Spielers vollkommen unter- 
schiedlich. Insgesamt stehen 
den Spielern nicht weniger als 
55 Befehle zur Verfügung, mit 
denen das Geschehen an 
Land, in der Luft und auf dem 
Wasser gesteuert wird. Dar- 
über hinaus ist es möglich, mit 
einer Art »Master« Empire zu 
spielen. Dieser Master hat er- 
höhte Priorität und kann ent- 
scheidend in das Spiel eingrei- 
fen, um zum Beispiel eine 
Währung zu stabilisieren. 
Besondere Beachtung ver- 
dient sicherlich auch die Tatsa- 
che, daß immer neue Welten 
geschaffen werden können, 
die beispielsweise in Größe, 
landschaftlicher Beschaffen- 
heit und Rohstoffvorkommen 
unterschiedlich sind. Natürlich 
braucht dieses Spiel reichlich 
Zeit, biseszu Ende gespielt ist. 
Hier ist mit ungefähr zwei Mo- 
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naten zu rechnen, wenn täg- 
lich nicht länger als eine halbe 
Stunde gespielt wird. Mitspie- 
len können je nach Größe der 
generierten Welt bis zu 50 Teil- 
nehmer, die nicht alle zur glei- 
chen Zeit spielen müssen. Ge- 
spielt werden kann mit einer 
Übertragungsrate von 300, 
1200 oder 2400 Bit/s. Empire 
ist eine äußerst realistische Si- 
mulation, die kaum Wünsche 
offen läßt. 


Programmname: Empire 
Autor: Originalspiel auf 
Unix-System: Peter Lang- 
ston 

Umgesetzt auf Amiga: 
Chris Gray 
Kurzbeschreibung/ 
Sonstiges: 

komplexe Simulation über 
DFUÜ; in Draco geschrieben 
Positiv: 

+ sehr realistisch 

+ komplex und umfang- 
reich 

+ zahlreiche Befehle 

+ viele Teilnehmer zu ver- 
schiedenen Zeiten möglich 
+ neue »Welten« erstellbar 
+ 300, 1200 oder 2400 Bit/s 


Negativ: . 
— keine Grafik (durch DFÜ 
bedingt) 

Fazit: ein interessantes 





Spiel und ein Genuß für je- 
den Hobbystrategen 





Kopieren mit 
zwei Laufwerken 
»QuickCopy« ist ein Kopier- 
programm für zwei Laufwerke, 
wobei immer von DFO: nach 
DF1: kopiert wird. Nach dem 
Einlegen der Disketten und 
dem Anklicken des Start- 
Symbols beginnt QuickCopy, 
die Diskette zu kopieren. Dabei 
wird ständig die jeweilige 
Trackposition auf der Diskette 
angezeigt, die Statuszeile 
macht auf eventuelle Fehler 
aufmerksam. Nach zirka 1,5 
Minuten ist der Kopiervorgang 
beendet, falls er nicht vorher 
durch Anklicken des Stop- 
Symbols unterbrochen wurde. 
Danach kann die nächste Dis- 
kette kopiert oder das Pro- 


gramm verlassen werden. So- 
mit stellt QuickCopy ein einfa- 
ches, aber zuverlässiges 
Werkzeug zum Kopieren von 
Disketten dar, das teilweise so- 
gar geschützte Disketten — 
natürlich nur für Sicherheits- 
kopien — dupliziert. 


Liste aller archivierten Files er- 
stellt werden. Diese Liste ist mit 
»Zoo« einfach ausgedruckt, Fi- 
les mit bis zu 65535 Zeichen 
können kommentiert werden. 
Man kann das Archiv aktuali- 
sieren, einzelne Files löschen, 
hinzufügen und gelöschte Fi- 


Verblüffendes 
Ray-Tracing 


Bilder, die vorher nur von 
Großrechenmaschinen erstellt 
werden konnten, sind jetzt: 
auch mit »Homecomputern« 
realisierbar, die auf dem 





Bild 3. Das unglückliche Ende eines Abenteuers versüßt dieses Schlußbild von »Hack« 


Programme 


unter Druck 


Es ist bekannt, daß man sich 
von allen wichtigen Dateien 
und Programmen mindestens 
eine Sicherheitskopie anlegen 
sollte, da diese durch Disket- 
ten- oder Benutzerfehler zer- 
stört werden können. Trotzdem 
verzichten viele auf diese Si- 
cherung, da das Anfertigen 
von Sicherheitskopien lästig ist 
und diese große Mengen Spei- 
cherplatz auf den Disketten be- 
legen. 

Hier versucht »Zoo« zu hel- 
fen. Das Utility dient zum Ar- 
chivieren von Files. Hierbei 
werden alle gewünschten Files 
um bis zu 80 Prozent kompri- 
miert und dann in ein gemein- 
sames File gespeichert. Auf 
diese Weise werden Program- 
me platzsparend gesichert. 
Außerdem bietet »Zoo«noch ei- 
ne Vielzahl an weiteren Mög- 
lichkeiten. 

Es kann zum Beispiel eine 





Programmname: Quick- 
Copy 

Autor: Dave Devenport 
Kurzbeschreibung/Son- 
stiges: 

kopiert nur mit zwei Lauf- 
werken und nur von DFO: 
nach DF!: 

Positiv: 

+  akzeptable Kopierzeit 


(ca.1 min 30 s) 

+ kopiert teilweise auch 
geschützte Disketten 
Negativ: 

— es werden zwei Laufwer- 
ke benötigt 

— es kann nur von DFO: 
nach DFI1: kopiert werden 
Fazit: für Besitzer zweier 
Laufwerke brauchbar 





les retten. Die letzte Funktion 
des Utilities ist das Dekompri- 
mieren von Files. Nach Ausfüh- 
rung dieser Funktion hat man 
seine ursprünglichen Files 
wieder. 

Für die Steuerung von Zoo 
stehen Anfänger- und Exper- 
tenbefehle zur Verfügung, wo- 
bei erstere immer vollständige 
Kommandos sind, während die 
Expertenbefehle nur aus ei- 
nem Zeichen bestehen. So er- 
sparen sich Fortgeschrittene 
nach einiger Eingewöhnungs- 
zeit mühsame Tipparbeit. 





Programmname: Zoo 
Autor: Autor des ursprüng- 


lichen Unix-Programms: 
Rahul Dhesi 

übertragen und angepaßt 
von: J. Brian Waters 
Kurzbeschreibung/ 
Sonstiges: 

Von Unix auf Amiga über- 
tragen 

Positiv: 

+ komprimiert um bis zu 80 
Prozent 

+ Anfänger- und Experten- 
befehle 

Negativ: 

— nicht in Intuition einge- 
bunden 

— etwas gewöhnungsbe- 
dürftig 

Fazit: ein durchaus 
brauchbares Programm, 
um eine Diskettensamm- 
lung zu archivieren 
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68000er-Prozessor basieren. 
Der Schlüssel dazu heißt »Ray- 
Tracing«. 

Seit kurzem gibt es entspre- 
chende Programme auch für 
den Amiga. Den ersten Schritt 
in diese Richtung tat »Sculpt 
3D«, mit dem man hervorra- 
gende Bilder auf dem Amiga 
berechnen konnte. Kurze Zeit 
später erschien »Silver«, das 
diese erzeugten Grafiken (die 
meistens im HAM-Modus dar- 
gestellt werden) auch animie- 
ren konnte. Außerdem wurden 
die Algorithmen verbessert, so 
daß die nötigen Berechnungen 
noch schneller wurden. 

Ein erheblicher Nachteil die- 
ser beiden Programme ist je- 
doch, wie so oft, ihr Preis. Hier 
bietet sich dem Amiga-User ei- 
ne Alternative: DBW-Render. 

»DBW-Render« ist ein Pu- 
blic Domain-Ray-Tracing-Pro- 
gramm, das vielseitige Mög- 
lichkeiten bietet. Der größte 
Unterschied zwischen den bei- 
den Programmen Sculpt 3D 
und Silver ist die Eingabe der 
Bilder. Bei den beiden profes- 
sionellen Programmen werden 
dem Anwender drei Fenster 
zur Verfügung gestellt, die die 
Ansicht des Objektes von vor- 
ne, von der Seite und von oben 
zeigen. In diesen Fenstern 
können nun die Objekte einge- 
geben werden. 

Einen vollkommen anderen 
Weg geht DBW-Render. Hier 
wird dem Anwender eine ei- 
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1 Golem Drive 3,5 
NEC 1037a mitheller Frontblende a a Metallgehäu- 
se@ Abschalter@Busdurchführung bis DF3@ Sidecar, PC lundPC 
Karteri-kompatibel @Trackdisplay zur aktuellen Spur- und Kopfan- 






5 Golem Sound Stereo 

Audio Digitizer der Spitzenklasse @kompatibel zur meisten Samp- 
lersoftware @DIN- und Cinch Anschluß auch für Micro geeignet 
@optisches Aussteuerungsdisplay @ Stereowandlung @umschalt- 


zeige bar auf Mono-Betrieb 
mit lay DM = Stereo 
ohne Display DM 339.- Mono ohne Display 


£_ Golem Drive 5,25 Display 
NEC Laufwerk mit heller Frontblende @ Amiga-farbenes Metallge- 
häuse @Abschalter 40/80 Track-Umschalter @Busdurchführung 


bis DF3@PC Karten, Sidecar und PC lkompatibel@Trackdisplay 


zur aktuellen Spur- und Kopfanzeige 


mit Dialer M 48: 
ohne Display DM 419.- 
3 Golem Ram Box 2MB 

2MB Speichererweiterung für dem Amiga 1000 @ansteckbar am 
Systembus@ Abschalter @ Busdurchführung @ autokonfigurierend 
©Betriebskontrollanzeige @ Amiga-farbenes Metallgehäuse @er- 
weitert den Grundspeicher auf 2,5 Megabyte 

komplett DM 1398.- 
ohne Ram's DM 28. 
5% Golem 500 Ram Box 

2MB Speichererweiterung im formschönen $00’er Design @Bus- 
durchführung ®@autokonfigurierend @Betriebskontrollanzeige 
®extermer Anschluß an den Systembus ®@erweitert den Grund- 
speicher auf 2,8 Megabyte 

komplett DM 1398. 
ohne Ram’s DM 449. 


Technische Änderungen vorbehalten 





6 Golem Drive A 2000 
internes Amiga Drive @NEC 1036a mit heller Frontblende @ein- 
baufertig modifiziert @mit Staubschutzklappe @incl. Einbauanlei- 
tung und Montagesatz DM 200.- 


r_ Kickstart/Uhrenmodul 

"Bitte Workbench einlegen", meldet ihr Amiga 1000 nach dem Ein- 
schalten mit dem extern ansteckbaren Kickstartmodul @Busdurch- 
führung @ Abschalter,so daßandere Kickstartversionen wiederge- 
bootet weden können @alle gängigen Kickstart-Versionen liefer- 


er DM 199.- 
Amiga 8500/2000 kompatibeles Uhrenmodul®@ Akkugepuffert@ex- 
term ansteckbar 

im Extragehäuse DM 149.- 
Uhr u. Kick in einem Gehäuse DM 299. 


8 Kickstartumschaltplatine 

Intern einsteckbare Umschaltplatine bestückt mit einem zusätzli- 

chen Kickstart @alle gängigen Versionen @keine Lötarbeiten er- 

forderlich @umschaltbar auf original Kickstart 

komplett DM 149.- 
DM 5 


ohne Eprom's 








üren-Oberzier, TEL.02428/711 
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gens entwickelte Hochsprache 
zur Verfügung gestellt, die an 
C angelehnt ist. Mit dieser Pro- 
grammiersprache kann man 
Objekte in Form von »Macros« 
definieren. Hierbei werden 
zum Beispiel Farbe, Material 
und Brechungsindex festge- 
setzt. Diese Objekte können 
wiederum aus mehreren vor- 
her definierten Macros beste- 
hen. Danach kann die Position 
und Stellung der Objekte im 
Raum festgelegt werden. So ist 
es auch möglich, eine kurze 
Animation zu erstellen. Dar- 
über hinaus können zwei ver- 
schiedene Lichtquellen (ein- 
mal diffuses Licht, einmal 
Spot) definiert werden. Aber 
die Möglichkeiten des DBW- 
Render sind damit noch lange 
nicht ausgeschöpft. Es ist bei- 
spielsweise ohne Probleme 
möglich, beliebige IFF-Bilder 
als Oberflächenmaterialien zu 
verwenden. Aber nicht nur bei 
der Erstellung der Bilder, auch 
in der Testphase besteht eine 
Vielzahl von Möglichkeiten. So 
kann man beispielsweise sei- 
ne Grafik zuerst in einer niedri- 
gen Auflösung berechnen las- 
sen und gegebenenfalls Ände- 
rungen durchführen. 

Für Übertragungen auf an- 
dere Systeme oder Grafikkar- 





Programmname: DBW- 
Render 

Autor: William T. Baldrige 
und David B. Wecker 
Kurzbeschreibung/ 
Sonstiges: 

Eingabe der Bilder in Pro- 
grammcode 

Positiv: 

+ vielfältige Möglichkeiten 
durch Makros 

+ bedingte Animation 

+ zwei- und dreidimensio- 
naler Text möglich 

+ Größe von 8 x 8 bis 1024 
x 1024 Bildpunkten möglich 
+ alle Grafikmodi (normal, 
Interlace, HAM) 

+ gute und umfangreiche 
Anleitung 

+ bis zu 16 Millionen Far- 
ben möglich 

+ Zwischenspeicherung 
zwischen den Programm- 
schritten 

+ IFF-Bilder können einge- 
bunden werden 

+ sehr gute Bildqualität 

+  Antialias vermindert 
»Treppenstufen« in schrä- 
gen Linien 

Negativ: 

— englische Anleitung 
Fazit: wer sich auch nur im 
entferntesten für Ray- 
Tracing interessiert, sollte 
dieses Programm besitzen 
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ten lassen sich sogar Bilder in 
einer Auflösung von bis zu 
1024 x 1024 Bildpunkten mit 16 
Millionen Farben berechnen, 
die dann auf dem normalen 
Amiga-Monitor (z.B. 1084) na- 
türlich nicht dargestellt werden 
können. Der aktuelle Stand der 
Berechnungen wird automa- 
tisch zwischengespeichert, 
um den Schaden bei einem Sy- 
stemabsturz möglichst gering 
zu halten. Die zugehörige An- 
leitung ist sehr gut und umfas- 
send, aber leider nur in Eng- 
lisch erhältlich. 

Für die Zukunft ist übrigens 
ein grafischer Editor angekün- 
digt, mit dem die Objekte dann 
ähnlich wie bei den kommer- 
ziellen Programmen eingege- 
ben werden können. 


Reset-feste 
RAM-Disk 


Wer kennt diese Situation 
nicht: Man schreibt stunden- 
lang an einem Programm, und 
gerade bei dem Probelauf, vor 
dem das Programm nicht ab- 
gespeichert wurde, stürzt das 
System ab. Fatale Folge ist der 
komplette Datenverlust — die 
Arbeit war umsonst. Abhilfe 
schaft die »ASDG-RAM- 
Disk«. Sie ist Reset-fest und 
gestattet das Testen »mit Si- 
cherheitsnetz«. 

Wie gestaltet sich die Arbeit 
mit der RAM-Disk in der Pra- 
xis? Nach dem Kopieren der 
beiden Files »Mountlist« und 
»asdg.vdisk.device« in den 
»devs«-Ordner der Startdisket- 
te genügt ein einziger Befehl 
zum Initialisieren der RAM- 
Disk (»Mount vdO:«). Sie wird 
dann als »vdO:« angesprochen. 
Dieser Initialisierungsvorgang 
nimmt nur zirka fünf Sekunden 
in Anspruch. 

Der einzige Nachteil dieses 
Programms ist die notwendige 
Reaktivierung der RAM-Disk 
mit dem Befehl »Mount vdO:« 
nach einem Reset. 

Genauso wie die konventio- 
nelle RAM-Disk verwaltet die 
ASDG-RAM-Disk ihren Spei- 
cher dynamisch. Die RAM- 
Disk beansprucht also immer 
nur so viel Speicherplatz, wie 
für Daten momentan benötigt 
wird. Interessant ist, daß die 
konventionelle RAM-Disk 
»ram:« erhalten bleibt. So kann 
man mit zwei RAM-Disks 
gleichzeitig arbeiten. 

Darüber hinaus befinden 
sich vier weitere Hilfsprogram- 
me für den Gebrauch der 
ASDG-RAM-Disk auf der Dis- 
kette. Das Programm »Clean- 
RamDisk« wird benötigt, um 
die RAM-Disk mit einer Erwei- 


terung zu betreiben, die den 
Speicher periodisch verwaltet. 

Das zweite Programm heißt 
»FastMem« und schaltet das 
Fast-RAM ein beziehungswei- 
se aus. Dies ist bei der Benut- 
zung von Kickstart V1.1 von 
Nutzen, da hier der zusätzliche 
Speicher unter Umständen 
nicht erkannt wird. Auf diese 
Art können auch Programme, 
die nur mit 512 KByte arbeiten, 
auf erweiterten Amigas laufen. 
„_ Pas Hilfsprogramm »Delete- 
RamDisk« nimmt der ASDG- 
RAM-Disk ihren Reset-Schutz, 
was zur Folge hat, daß die 
RAM-Disk mit allen gespei- 
cherten Daten beim nächsten 
Reset zerstört wird. Dieser Be- 
fehl dient dem schnellen »Auf- 
räumen« einer vollgepackten 
RAM-Disk. 

Das vierte und letzte Hilfs- 
programm heißt »SysMon«. 
Dieses Programm zeigt den 
Zustand des Speichers, der 
Tasks und der CPU an. »Sys- 
Mon«ist interaktiv und stellt so- 
fort jede Veränderung nume- 
risch und grafisch dar. 

Die Programme SysMon, 
DeleteRamDisk und FastMem 
stammen von Panorama Disks. 


Programmname: ASDG- 
RAM-Disk 

Autor: Perry Kivolowitz 
(1987) 
ASDG-RamDisk+Clean- 
RamDisk 
Kurzbeschreibung/ 
Sonstiges: 

mehrere zusätzliche Tools, 
Shareware (10 Dollar) 
Positiv: 

+ resetfest 

+ kurze Installationszeit 
(fünf Sekunden) 

+ einfache Installation (ein 
Befehl) 

+ dynamische Speicher- 
verwaltung 

+ konventionelle RAM- 
Disk (”ram:”) bleibt erhal- 
ten 

Negativ: 

— muß nach jedem Reset 
neu installiert werden 
Fazit: äußerst nützlich für 
jeden, der oft mit wichtigen 
Daten hantiert 





»Amic PD Term« ist ein viel- 
seitiges Terminalprogramm für 
den Amiga, das alle Standard- 
funktionen beherrscht. Zusätz- 
lich sind einige interessante 
Möglichkeiten eingebaut. So 
findet man beispielsweise ei- 
nen (ausblendbaren) Menü- 
balken, der sich beliebig auf 
dem Bildschirm verschieben 
läßt. Weiter können die Funk- 
tionstasten mit oft gebrauchten 





Texten belegt werden, über die 
Menüleiste läßt sich ein Editor 
laden, mitdem man Texte bear- 
beiten kann. Ansonsten be- 
herrscht das Programm das 
XModem-Protokoll. Übertra- 
gungsgeschwindigkeiten zwi- 
schen 300 und 19200 Baud 
sind einstellbar. Mit Amic PD 
Term können Programme 
durch Up- und Download über- 
tragen werden. Weiterhin ist 
der Bildschirm zu teilen. In 
dem Window, das zirka drei 
Viertel des Bildschirms be- 
deckt, wird die Übertragung 
normal dargestellt, während in 
dem anderen nur die Eingaben 
des Benutzers erscheinen. Als 
Zugabe können noch ein CLI- 
Window eröffnet und kompri- 
mierte Files wieder in ihren 
normalen Zustand versetzt 
werden. 3 


Programmname: Amic 
PD Term 

Autor: (C) AMIC Develop- 
ment 
Kurzbeschreibung/Son- 
stiges: 

Shareware (30 Dollar) 
Positiv: 

+ PAL-Auflösung 

+ verschiebbarer Menü- 
balken für schnelle Funk- 
tionswahl 

+ F-Tasten sind belegbar 
+ Editor ladbar 

+ CLI-Window kann eröff- 
net werden 

+ Files können depres- 
siert werden 

+ Bildschirm ist teilbar 
Negativ: 

Fazit: Ein sehr nützliches 
Programm für jeden DFÜU- 
Freak 


Utilities zum CLI 


Jeder, der öfter im CLI arbei- 
tet, kennt das Problem: Man 
hat ein Programm normal ge- 
startet und damit das aktuelle 
CLI-Window belegt. Und gera- 
de jetzt muß man einige CLI- 
Befehle ausführen. In diesem 
Fall muß das Programm been- 
det und mit »RUN« neu gestar- 
tet werden. Diesen Mißstand 
behebt das Programm »Pop- 
CLi«. Es eröffnet auf eine be- 
stimmte Tastenkombination 
hin ein CLI-Window, in dem die 
CLI-Befehle ausgeführt wer- 
den können. Zusätzlich ist ein 
ScreenSaver eingebaut, der 
den Bildschirm nach einer ein- 
stellbaren Zeit, in der keine 
Eingabe über die Tastatur, die 
Maus beziehungsweise den 
Joystick erfolgt ist, ausschal- 
tet. Das sogenannte »Einbren- 
nen« des Monitors wird so ver- 
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hindert. Besonders interessant 
ist die Möglichkeit, die Befehls- 
folge, die auf die Tastenkombi- 
nation hin ausgeführt werden 
soll, zu verändern. Diese Be- 
fehlsfolge heißt im Normalfall 
»NEWCLI >NIL: CON:0/0/ 
640/200/CLI«. Auf diese Art 
kann man das eine oder ande- 
re Programm bereithalten und 
durch Tastendruck aufrufen. 


Programmname: PopCLI 
Autor: Dave Baker, Ed Bur- 
nette, Jay Denebein, John 
Mainwaring, Gordon Kee- 
ner, 

Jack Rouse, John Toebes, 
Doug Walker 
Kurzbeschreibung/ 
Sonstiges: 

Screen Saver implemen- 
tiert 

Positiv: 

+ Zeit, nach der der 
ScreenSaver aktiv werden 
soll, kann bestimmt wer- 
den 

+ Befehlsfolge für Aufruf 
läßt sich verändern 
Negativ: 

Fazit: nützlich für jeden, 
der mit dem CLI arbeitet 








Beim CLI ist es absolut un- 
möglich, Zeilen zu editieren. 
Es bleibt einem oft nur noch 
das Löschen der Zeile. Dies 
wird durch den »ConMan« be- 
hoben. Nach Installierung des 
ConMan ist das Editieren von 
Zeilen ein Kinderspiel. Weiter 
kann beispielsweise das Aus- 
sehen eines CLI-Windows be- 
stimmt werden, wodurch diese 
mit »CloseButton« oder ohne 
»Sizer« keine Utopie mehr 
sind. Darüber hinaus gibt es 
zwei verschiedene History- 
Funktionen, die es erlauben, 
ältere Zeilen (25 bis 30) zu edi- 
tieren und wieder zu benutzen. 
Besonders interessant ist die 
Möglichkeit, ConMan als »Pi- 
pe« zu benutzen. Pipes geben 
Programmen, die neben- oder 
nacheinander ablaufen, die 
Möglichkeit, Daten auszutau- 
schen. Dadurch müssen nicht 
mehr Unmengen von Dateien 
eröffnet werden, um Daten zwi- 
schenzuspeichern. 


Eine ganze Reihe von Tasten 
und Tastenkombinationen ist 
mit bestimmten Funktionen 
belegt. So kann man zum Bei- 
spiel ein Window mit <F1> 
auf die kleinste Größe verklei- 
nern. 








Programmname: ConMan 
Autor: William S. Hawes 
Kurzbeschreibung/Son- 
stiges: 

Shareware 

Positiv: 

+ Editierung von CLI-Zei- 
len möglich 

+ History-Funktion 

+ als Pipe nutzbar 

+ Flags der CLI-Windows 
lassen sich bestimmen 

+ praktische Belegung der 
F- und Ctrl-Tasten 
Negativ: 


Fazit: Ein Muß für jeden, 
der mit dem CLI arbeitet 


Mit »FuncKey« ist es mög- 
lich, die wohl am wenigsten 
verwendeten Tasten der 
Amiga-Tastatur zu nutzen: die 
Funktionstasten. Die F-Tasten 
können durch FuncKey mit be- 
liebigen Strings bis zu 79 Zei- 
chen Länge belegt werden. 
Dabei läßt sich jede Taste bis 
zu fünfmal belegen. Erreicht 
wird diese Vielzahl durch die 
Verwendung der F-Tasten in 
Kombination mit <Ctrl>, 
<Alt>, <AMIGA-links>, 
<AMIGA-rechts> und ohne 





Kontrolltaste. Wenn man seine 
Belegungen nun in dem kom- 
fortablen Eingabefeld festge- 
legt hat, kann man diese ab- 
speichern, benutzen oder wie- 
der löschen. Das Eingabefeld 
kann dann entweder aus dem 
Speicher gelöscht oder für re- 
sident erklärt werden. Wenn 
das Eingabefeld resident ist, 
kann es durch eine einfache 
Tastenkombination aufgerufen 
werden. 


Programmname: FunckKey 
Autor: Anson Mah 


Kurzbeschreibung/Son- 
stiges: 

Shareware (5 Dollar); für 10 
Dollar gibt es den 
Sourcecode 

Positiv: 


+ komfortable Eingabe 

+ es ist möglich, FuncKey 
resident im Speicher zu be- 
halten 

+ bis zu fünf Belegungen 
pro F-Taste 

+ Definition speicherbar 
Negativ: 


Fazit: für jeden gut geeig- 
net, der viel mit gleichen 
Strings arbeitet 
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P D SOFTWARE 





Vielseitige 
Apfelmännchen 


»MandFXP« ist ein Pro- 
gramm zur Berechnung der 
Mandelbrotbilder (Bild 4), die 
auch als »Apfelmännchen« be- 
kannt sind. Dabei kann der zu 
berechnende Ausschnitt ent- 
weder von Hand eingegeben 
oder mit der Maus bestimmt 
werden. Die Steuerung des 
Programms erfolgt vollständig 
über Pull-Down-Menüs. Hier 
kann man zum Beispiel die 
Auflösung wählen (320 x 200, 
320 x 400, 640 x 200, 640 x 400 
Punkte). Ebenso ist die Fen- 


Programmname: 
MandFXP 

Autor: Bruce Dawson und 
Steve LaRocque 
Kurzbeschreibung/Son- 
stiges: 

Demo-Version, endgültige 
Version gegen 15 Dollar; 
berechnet auch Juliamen- 
gen 

Positiv: 

+ schnelle Berechnungs- 
zeit 

+ vier verschiedene Auflö- 
sungen 

+ 2- und 3-dimensionale 
Berechnung 

+ Berechnung von Julia- 
mengen möglich 

+ Color Cycling 

+ umfangreiche Möglich- 
keiten 

Negativ: 

— keine PAL-Auflösung 

— keine Berechnung im 
Ham-Modus möglich 
Fazit: ein Programm, das 
vor allem durch seine Ge- 
schwindigkeit und zahlrei- 
che Funktionen überzeugt 
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stergröße beliebig zu verän- 
dern, die Anzahl der Farben (2 
bis 32) einzustellen, die Farb- 
palette zu ändern, abzuspei- 
chern und wieder zu laden. Au- 
Berdem können verschiedene 
Modi des Color-Cyclings ein- 
gestellt werden, was mitunter 
erstaunliche Effekte erzeugt. 
Bei all diesen Funktionen ist es 
schon fast selbstverständlich, 
daß sich die Berechnung der 
Farben und die Anzahl der Ite- 
rationen (Rechentiefe) verän- 
dern läßt. Beachtlich ist es, daß 
man zwischen der zwei- und 
der dreidimensionalen Darstel- 
lung wählen kann. Neben den 
Mandelbrotgrafiken lassen 
sich auch die weniger bekann- 
ten, aber nicht minder interes- 
santen Julia-Mengen berech- 
nen. Hier bestehen die glei- 
chen reichhaltigen Auswahl- 
möglichkeiten wie bei den 
Mandelbrotgrafiken. 

Als äußerst nützlich erweist 
sich die Help-Funktion, die auf 
Wunsch jede einzelne Funk- 
tion der Menüleiste erklärt. 

Das wichtigste Bewertungs- 
kriterium der Programme zur 
Erzeugung von Apfelmänn- 
chen ist die benötigte Berech- 
nungszeit für ein Bild. Hier ist 
MandFXP anderen Public Do- 
main-Mandelbrot-Programmen 
für den Amiga weit überlegen. 
So dauert zum Beispiel die Be- 
rechnung eines vollständigen 
Apfelmännchens in einer Auf- 
lösung von 640 mal 400 Punk- 
ten in 16 Farben und 1000 Itera- 
tionen nur zirka 12 Minuten. In 
einer Auflösung von 320 x 200 
Punkten in 32 Farben und 30 
Iterationen sind es dann nur 
noch ungefähr 15 Sekunden. 
Dadurch kann man sich die in- 
teressanten Bereiche zuerst in 
einer niedrigen Auflösung an- 


Wir sind nun am Schluß 
unserer Vorstellung ver- 
schiedener interessanter 
PD-Software angelangt. 
Sicher können auch Sie 
eines oder mehrere der 
beschriebenen Program- 
me gut gebrauchen. Täg- 
lich wächst der Bestand 


an guter, billiger Software 
für den Amiga — wir wer- 
den Sie im AMIGA-Maga- 
zin und den Sonderheften 
ständig auf dem laufenden 


halten. (Henning Wolf/ 
Stefan Roock/ 


Elke Zumbusch/rs) 


sehen und sie dann gegebe- 
nenfalls in einer höheren Auflö- 
sung berechnen lassen. 

MandFXP ist eine Demo- 
Version. Die endgültige Fas- 
sung kann gegen Einsendung 
von 15 Dollar von den Autoren 
bezogen werden. Diese Ver- 
sion enthält noch einige Zu- 
satzfunktionen, die es bei- 
spielsweise erlauben, die Bil- 
der auszudrucken, im IFF- 
Format zu speichern und wie- 
der zu laden. Wünschenswert 
wäre die Möglichkeit, die Bil- 
der im HAM-Modus zu berech- 
nen. 





PD-Kopierservice 


Alle hier vorgestellten 
und getesteten Programme 
gibt es im Paket auf vier Dis- 
ketten für 30 Mark mit Porto 
und Verpackung (35 Mark 
per Nachnahme, 40 Mark 
Ausland) bei: 

CoWaR 

Wolf und Roock GbR 

Am Hang 5 
2054 Geesthacht 
















Deluxe: 
Software für den 
Amiga 


Deluxe Paint II (deutsch)/Print I 
Dieses Grafikprogramm ist eines 
der außergewöhnlichsten auf 
dem Softwaremarkt. Jetzt mit 
Print I. 

Bestell-Nr. 54114 

DM 199,-* (sFr 179,-*/öS 1990,-*) 
Die ideale Ergänzung zu 

Deluxe Paint Il 

Seasons & Holidays 

Bestell-Nr. 52580 

DM 29,-* (sFr 26,-*/öS 290,-*) 
Deluxe Art Parts Il 

Bestell-Nr. 52581 

DM 29,-* (sFr 26,-*/öS 290,-*) 
Deluxe Video 1.2 (deutsch) 

Mit Deluxe Video können Sie 
animierte Grafiksequenzen ein- 
fach entwerfen und zusam- 
menstellen 

Bestell-Nr. 52583 

DM 249,-* (sFr 225,-"/öS 2490,-*) 
Deluxe Photolab (deutsch) 
Integriertes Grafikpaket und 
Druckprogramm mit Poster- 
druckfunktion und einer Viel- 
zahl weiterer erstaunlicher 
Funktionen. 

Bestell-Nr. 54112 

DM 249,-* (sFr 225-165 2490,-") 
Für alle, die nicht auf die deut- 
sche Version warten wollen 
Deluxe Photolab (englisch) 
Bestell-Nr. 54117 

DM 199,-* (sFr 179,-"/6S 1990,-*) 
Deluxe Music (deutsch) 

Das professionelle Musikpro- 
gramm. Jetzt mit deutscher 
Software. 

Bestell-Nr. 52579 

DM 199,-* (sFr 179,-*/6S 1990,-*) 
Die ideale Ergänzung zu 

Deluxe Music: 

It's only Rock’n’Roll 

Bestell-Nr. 54115 

DM 29,-* (sFr 26,-*/öS 290,-*) 
Hot & Cool Jazz 

Bestell-Nr. 54116 

DM 29,-* (sFr 26,-*/öS 290,-*) 
Deluxe Productions 
(englisch/NTSC) 

Bestell-Nr. 54113 
DM 399,-* (sFr 359,-*/öS 3990,-*) 
Updates von der englischen 
auf die deutsche Version: 
Paint Il, Bestell-Nr. 54114U 
Video 1.2, Bestell-Nr. 52583U 
Photolab, Bestell-Nr. 54112 U 

je DM 49,-* (sFr 49-"/6S 490,-*) 
Gegen Einsendung der Original- 
diskette und gegen Vorauskasse. 


In Vorbereitung: 

Deluxe Print Il (deutsch) 
Bestell-Nr. 52582 

DM 199,-* (sFr 179,-*/öS 1990,-*) 


* Unverbindliche Preisempfehlung 


Fragen Sie Ihren Händler nach 
weiteren Informationen. 


Markt &Technik-Support: 

Bei User-Registrierung rechtzei- 
tige Update-/Upgrade-Informa- 
tion und Support-Unterstützung. 
Senden Sie uns bitte Ihre 
Registrierungskarte. 











zn I AEDA DE 
Software für den NR 





° 
Jukte r Technik Fragen Sie Ihren Fachhändler 
en a nach un: stenlosen Gesamtverzeichnis 


über aktuellen Computerbüchern 


Zeitschriften - Bücher nd Software. Oder fordern Sie es direkt 


Software - Schulung 


e 3, CH-6300 Zug, Telefon (042) 415656. ÖSTERREICH: Markt&Technik Verlag 
Rudolf Lechner & Sohn, straße 10, A-1232 Wien, Telefon (0222) 677526; 
udongasse 29, A-1082 Wien, Telefon (0222) 48 1543-0. 





NWENDUNGEN 


as in der Programmier- 

sprache C geschriebe- 

ne Programm DCopy 
(Listing 1) läßt beim Kopieren 
keine Wünsche mehr offen. Bis 
zu vier Laufwerke erkennt 
DCopy automatisch und be- 
nutzt sie auch bei Bedarf. Die 
gewünschten Parameter sind 
schnell und leicht eingestellt. 
Alle Eingaben erfolgen über 
die Tastatur, wobei die Cursor- 
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Steuerung vorbildlich gelöst 
ist, 

DCopy öffnet ein eigenes 
Fenster, wodurch es auch von 
der Workbench aus gestartet 
werden kann. Nach dem Aufruf 
erscheinen in dem Fenster die 
voreingestellten Werte. 

In der ersten Zeile steht 
nach dem Starten »Verify 
OFF«. Dies bedeutet, daß nach 
dem Schreiben der Daten kei- 
ne Überprüfung auf Richtigkeit 
durchgeführt wird. In diesem 
Modus erhöht sich natürlich 
die Kopiergeschwindigkeit, da 
die Daten nicht noch einmal 
gelesen werden müssen. 


Darunter steht, ob das Mehr- 
fachkopieren eingeschaltet ist 
(»Multiple copy OFF«). Ist die- 
ser Modus eingeschaltet, kön- 
nen mehrere Kopien erstellt 
werden, wobei die Daten nur 
einmal geladen werden. Auch 
hierbei ist es möglich, auf meh- 
rere Zieldisketten in einem 
Durchlauf zu kopieren. 

Sehr interessant ist die Fä- 
higkeit von DCopy, nicht nur 
die gesamte Diskette, sondern 
auch beliebige Teile davon zu 
duplizieren. »StartTrack« und 
»EndTrack« sind die Spuren, 
von beziehungsweise bis zu 
denen der Kopiervorgang lau- 
fen soll. Mit »Surface« gibt man 
an, welche Diskettenseite ver- 
vielfältigt werden soll. Auf die 
Bedeutung dieses Parameters 
gehen wir bei der Beschrei- 
bung des Untermenüs ein. 

Durch Drücken von <Fi> 
gelangen Sie in ein Unterme- 
nü, in dem die voreingestellten 
Werte editierbar sind. Um zu 
dem Parameter zu gelangen, 
den Sie ändern wollen, benut- 
zen Sie die Tasten <Cursor 
aufwärts> und <Cursor 
abwärts>. 

Bei »VERIFY« werden nur 
die Tasten <y> und <n> ak- 
zeptiert, die Verify an- bezie- 
hungsweise ausschalten. 





Kopieren 


Mit »TRIES« wird bestimmt, 
wie viele Schreibversuche un- 
ternommen werden, wenn ein 
Schreibfehler auftritt. Diese 
Funktion ist somit nur dann 
sinnvoll, wenn »VERIFY« akti- 
viert ist. 

Für mehrfache Kopien bei 
nur einmaligem Lesen ist der 
Parameter »MULTIPLE COPY« 
zuständig. Genau wie bei VE- 
RIFY kann nur <y> oder 
<n> eingegeben werden. Po- 
sitiv ist dieser Menüpunkt, 
wenn man nur über ein Lauf- 
werk verfügt, da man zeitspa- 
rend mehrere Kopien nachein- 
ander erstellen kann. 

»STARTTRACK« und »END- 
TRACK« geben die Start- und 
Endspur für den Kopiervor- 
gang an. Falls die Startspur 
größer als die Endspur ist, 
kann man das Menü nicht ver- 
lassen. Um nur eine Spur zu 
kopieren, stellt man einfach 
beide Werte auf die gewünsch- 
te Zahl ein. 

Die größtmögliche Flexibili- 
tät erhält man zusätzlich durch 
die Auswahl der Diskettensei- 
te. Mit »Head« läßt sich bestim- 
men, welche Seite kopiert wer- 
den soll. Dabei bedeuten: 


0 - Nur Seite 0 
1 - Nur Seite 1 
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Copy - 
mit Komfort 


2 - Beide Seiten 


Die Angabe, wo sich die 
Quelldiskette befindet, erfolgt 
beim Menüpunkt »Source«. 
Die Anzahl der benutzbaren 
Ziellaufwerke ist abhängig von 
der Zahl angeschlossener 
Laufwerke. Maximal werden je- 
doch vier Laufwerke verwaltet. 
Die Ziellaufwerke 2 und 3 kön- 
nen durch die Eingabe von 
<n> abgeschaltet werden. 
Zum Einschalten gibt man ein- 
fach die Nummer des Lauf- 
werks ein. Werden für Quell- 
und Ziellaufwerk dieselbe Zahl 
eingegeben, schaltet das Pro- 
gramm automatisch alle ande- 
ren Ziellaufwerke ab. 

Mit <ESC> kann nach er- 
folgter Einstellung das Unter- 
menü verlassen werden. Ge- 
schieht nach dem Drücken von 
<ESC> nichts, wurde ein Pa- 
rameter falsch gewählt. 

Der Start des Kopiervor- 
gangs erfolgt mit <F10>.Nun 
zeigt DCopy, welche Diskette 
wo einzulegen ist und wartet 
auf das Drücken von 
<RETURN>. Wird mit nur ei- 
nem Laufwerk gearbeitet, be- 
rechnet DCopy die nötige An- 
zahl der Diskettenwechsel und 
gibt diese auf dem Bildschirm 
aus. 
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Beim Kopieren zeigt DCopy 
die bearbeitete Spur an, Lese- 
und Schreibfehler werden mit- 
geteilt. Kann die Diskette nicht 
kopiert werden (Abbruch oder 
Verify-Error), erscheint eine 
Meldung. 

Um DCopy zu verlassen, ge- 
nügt ein Druck auf <ESC>. 
Vorher gibt DCopy jedoch noch 
die Anweisung, sämtliche Ko- 
pien aus den Laufwerken zu 
entfernen. Dies ist nötig, da die 
Kopien identisch zum Original 
sind und Amiga-DOS Proble- 
me bekäme. Genau dasselbe 
tritt auf, wenn sich vor dem 










gleiche Dis- 
ketten in 
den Lauf- 
werken befin- 
den. In so ei- 
nem Fallmüssen Sie 
erst das Programm 
starten und dann die 
Disketten einlegen. 
Nach der Beendi- 
gung von DCopy kön- 
nen Sie selbstverständ- 
lich ganz normal mit Ih- 
rem Amiga weiterarbeiten. 
Und das viel ruhiger, da Sie 
ja dann Sicherheitskopien von 
Ihren Programmen und Daten 

















Start von DCopy zwei exakt besitzen. (Gerald Fries/rs) 
Programmname: DCopy 
Computer: A500, A1000, A2000 mit Kickstart 1.2 
Sprache: C 
Compiler: Aztec-C V3.40 
Aufrufe: cc dcopy+I-s n dcopy.o-Im32-c032 





1 ej0 #inelude <devices/console.h> 
#inelude <intuition/intuition.h> 


20f 
3 CN 
4hd 


#incelude <stdio.h> 





#include <devices/trackdisk.h> 


5 CH 
64r 
70y 
8 Ic 


97 


#include <exee/nemory.h> 

#include <libraries/dos.h> 

#include <libraries/dosextens.h> 

#define BLOCKSIZE 5632L /%  BLOCKSIZEXNUMSECS 
2) % 

#define YES 1 


(512%1 





Listing 1. 

»DCopy«, ein komfortables 
Kopierprogramm für den Amiga. 
Bitte mit dem Checksummer 
(Seite 159) eingeben. 
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A NWENDUNGEN 
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10 be 
a1 
12 Ke 
13 zt 
14 0k 
15 xM 
16 Fg 


17 ip 
18 21 
19 Sa 
20 UT 
21 ft8 


22 Iq 
23 18 
24 cE 
25 04 
26 Eq 
27 0t 
28 GE 
29 N4 


30 BH 
31 Gn 
32 Xo 


33 qd 


34 GE 
35 X 
36 ix 
37 pvo 
38 1a 


39 bB 
40 jD 
41 wX 


42 7m 
43.Yr 


44.9a 


45 QA 
46 U5 
47 2p 
48 Vo 
49 jD 


50 51 
51 vD 


52. xt 
53. nG 
54 Sw3 
55 Q4 
56 Yk 


57 rK6 
58 UV3 
59 XE 
60 uN6 
61 v3 
62 al 
63 x06 
64 493 
65, WW 
66 0T6 
67 KK3 
‚68 MB 
69 346 
70 Rs3 
7130 
72 626 
73 203 
74 WU 
75 9c6 
76. TP 
77 967 


#define NO 0 

#define FAILED -10 

#define OK 0 

struct Process *mp,*FindTask(); 
struct MsgPort *diskport[4]; 
struct IOExtTD *diskreg[4]; 
BYTE *erase,*puffmerk,*fastdiskpuffer[160] ,*diskpuffer[80], 
*AllocMen(); 

struct IntultionBase *IntuitionBase, XOpenLibrary(); 

extern struct MsgPort *CreatePort(); 

extern struct IORequest *CreateExtI0(); 

struet NewWindow nw = [ 


/* operation-failed flag */ 


0, 10, /* starting position (left,to 
PD ıY/ 
640,100, /* width, height */ 
-1,-1, /* detailpen, blockpen */ 
0, /* flags for idemp */ 
WINDOWDEPTH | 
WINDOWDRAG | 
NOCAREREFRESH | 
ACTIVATE, /% window gadget flags */ 
OL, /%* pointer to ist user gadget 
“7 
NULL, /% pointer to user check */ 
(UBYTE *) "DCopy”, /* title %/ 
NULL, /* pointer to window screen * 
/ 
NULL, /* pointer to super bitmap */ 
0,0, /% min width, height */ 
0,0, /* max width, height */ 
WBENCHSCREEN] ; 
struct Window *w,*OpenWindow(); 
struct I0StdReq *WMsg; /% 1/0 request block 
pointer #/ 
struct MsgPort *consoleWritePort; /* a port at which t 
o receive */ 
struet IOStdReqg *RMsg; /%* 1/0 request block 
pointer %/ 
struct MsgPort *consoleReadPort; /% a port at which t 


o receive #/ 

extern struct IOStdReg XCreateStdI0(); 

char readstring; /* provides a buffer even though using o 
nly one char */ 

char string[50]; /* provides a buffer for writing variabl 
es %*/ 

int error = 0; 

int avail = 0; 

int fastavail = 0; 

int anzdisk = 

/* verify,maxtry‚multiple,starttrack,endtrack,mode,source, 
3x destination */ 


int flag[10] = [ 'n',1,'n',0,79,2,0,-1,'n','n']; 

int t[4] = [-1,-1,-1,-1 ; /* remember OpenDevice 
failures %/ 

main() 


{ 
int i,success,fail = 
long dos_packet(); 
if((IntuitionBase=OpenLibrary("intuition.library”,0))==N 


ULL) 

exit(99L); 
consoleWritePort = CreatePort( "ny.con.write”,OL); 
if(consoleWritePort == 0) 

exit(99L); 


WMsg = CreateStdIO(consoleWritePort) ; 
if(consoleWritePort == 0) 

exit(99L); 
consoleReadPort = CreatePort("ny.con.read”,OL); 
if(eonsoleReadPort == 0) 

exit(99L); 
RMsg = CreateStdIO(consoleReadPort); 
if(RMsg == 0) 

exit(99L); 

= OpenWindow(&nw);  /* create a window */ 
if({w == NULL) 

exit(99L); 
error = OpenConsole(WMsg,Rlsg,w); 
if(error != 0) 

exit(99L); 

/* attach a console to this window, initialize 

* for both write and read */ 





Listing 1. (Fortsetzung) 








zecnniK 
Em 
Besuch en MESSE. aa 


no = (Sana rt 





Stoff für 
Ihren Amiga 


CLimate 1.2 für Amiga 

Mit CLimate 1.2 können Sie end- 
lich die Befehle des Command- 
Line-Interface benutzerfreundlich 
per Mausklick verwenden! Eine 
sehr übersichtliche Bildschirm- 
darstellung, die Bedienung aller 
Befehle mit der Maus und die 
Unterstützung von drei externen 
Laufwerken (3'” oder 5'4”), 
Festplatten, RAM-Disk machen 
das Programm zu einer 
unentbehrlichen Unterstützung. 
Bestell-Nr. 51653 

DM 79,-* (sFr 72,-*/6S 790,-*) 


Devpac Assembler (deutsch) 
für Amiga 

Ein Entwicklungspaket mit 
integriertem Editor/Assembler, 
symbolischem Debugger und 
schnellem Linker zum Einbinden 
von Hochsprachen-Modulen. 
Erzeugt direkt ausführbare 
Programme! 

Bestell-Nr. 51656 

DM 148,-* (sFr 134,-*/6S 1480,-*) 


Zing! (deutsch) 

- das mächtige CLI-Werkzeug 
für den Amiga 

Mit Zing! haben Sie endlich das 
gesamte File-System mit Direc- 
tories und Subdirectories fest im 
Griff. Sie beschleunigen mit Zing! 
und Sie verwalten bis zu 500 
Files und Subfiles und bis zu 
100 Directories auf einmal. Die 
Bedieneroberfläche ist vom 
Feinsten: Pull-down-Menüs, 
(Click-)Icons, Funktionstasten. 
Bestell-Nr. 51669 

DM 99,-* (sFr 89,-*/öS 990,-*) 


Zing! Keys (deutsch) 

- Ihr ganz persönlicher Amiga 
Mit Zing! Keys machen Sie aus 
Ihrem Amiga das variable System, 
das Sie sich schon immer 
wünschen. Es ist Ihren eigenen 
Ansprüchen jederzeit anpaßbar! 
Alle Tasten sind nach Wunsch 
belegbar: z.B. mit Funktionsauf- 
rufen, Programmaufrufen, System- 
befehlen und vorprogrammierten 
Befehlen. Die Belegung ist 
natürlich jederzeit abspeicherbar. 
Durch die Belegung von 
»Hot-Keys« haben Sie mit Zing! 
Keys ein Multitaskingsystem 

par excellence! 

Bestell-Nr. 51670 

DM 79,-* (sFr 71,-°/6S 790,-*) 

" Unverbindliche Preisempfehlung 


Fragen Sie Ihren Händler 
nach weiteren Informationen. 


Markt &Technik-Support: 

Bei User-Registrierung rechtzei- 
tige Update-/Upgrade-Informa- 
tion und Support-Unterstützung. 
Senden Sie uns bitte Ihre 
Registrierungskarte. 


rn PS Ren Rn 


Stoff für Ihren Amiga 


Markt&Technik 


Zeitschriften - Bücher 
Software - Schulung 


Markt&Technik Verlag AG, Buchverlag, Hans-Pinsel-Straße 2, 8013 Haar bi lünchen, Telefon (089) 4613-0 
SCHWEIZ: Markt&Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 415656. ÖSTERREICH: Markt&Technik Verlag 
se 28, A-1040 Wien, Telefon (0222) 587 1393-0; Rudolf Lechner&Sohn, Heizwerkstraße 10, A-1232 Wien, Telefon (0222) 677526; 
Jeberreuter Media Verlagsges.mbH (Großhandel), Laudongasse 29, A-1082 Wien, Telefon (0222) 48 1543-0. 





A NWENDUNGEN 








































QueueRead(RMsg, kreadstring) ; 
here to 


/* tell console w 


* put a characte 
r that 

* it wants to gi 
ve ne 

* queue up first 
read 

° 


Cursoröff(); /* eursor will not b 
e displayed */ 


/* How many drives are connected ? %*/ 
for (anzdisk=0;anzdisk<4;anzdisk++) [| 
if ((diskport[anzdisk] = CreatePort(OL,OL)) == 0) [ 
puts(”\nCan't create port.\n”); 
exit(OL); 
) 
diskreg[anzdisk] = (struct IOExtTD *) 
CreateExtIO(diskport[anzdisk], (long)sizeof(st 
ruct IOExtTD)); 
£ (OpenDevice(TD_NAME, (long)anzdisk,diskreg[anzdisk] 
‚oL)) { 
DeleteExtI0(diskreg[anzdisk], (long)sizeof(struct I 
OEXtTD)); 


Video-Scape 3D - 

Berechnete Realität 

Mit Video-Scape 3D können Sie 
dreidimensionale Objekte aus 
verschiedenen Blickwinkeln 
betrachten und durch Hinzu- 
fügen von Kamerafahrten und 
frei wählbarem Lichteinfall einen 
realistischen Computer-Video- 
film erstellen. 

Bestell-Nr. 51671 

DM 385,-* (sFr 345,-"/öS 3850,-*) 
Aegis Images - 

Farbenpracht leichtgemacht 
Ein ideales Standard-Zeichenpro- 
gramm mit über 4000 Farben. 
Bestell-Nr. 54108 

DM 69,-* (sFr 62,-"/öS 690,-") 
Aegis Animator und Images - 
Bringt Bewegung in Ihre Bilder 
Aegis Animator verbindet drei 
Animationstechniken, damit Sie 
vielseitige Desktop-Video- 


DeletePort(diskport[anzdisk]); Produktionen auf dem Amiga 

t[fail++]=anzdisk+'0'; erzeugen können! 

) Bestell-Nr. 54109 

else { DM 249,-* (sFr 225,-"/öS 2490,-*) 

if (flag[7]==-1 && anzdisk!=0) Aegis Draw 
flag[7]=anzdisk; e a 

/* do not verify dlsk-ohanges #/ Ein leicht zu bedienendes 

mp=FindTask( "File System”); Zeichenprogramm. 

dos_packet(&mp- >pr_MsgPort, AOTION_INHIBIT, TRUE,OL Bestell-Nr. 54106 

‚OL,OL,OL,OL,OL); DM 199,-* (sFr 179,-"/öS 1990,-*) 

} Aegis Draw Plus - CAD: Ein 

] Traum wird erschwinglich 








anzdisk-=fail; /% amount of connected drive Computerunterstütztes Konstru- 
s* 


ieren von strukturierten Grafiken. 





agsageng 


8 EEE EESESEER 
® 258 
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Listing 1. (Fortsetzung) 


sprintf(string, "Verify ON with %d tries”,flag[1 
D; 
ConPutStr(WMsg,string); 
} - 
I 
else [ 
locate(2,35) ;ConPutStr(WMsg, "Verify OFF”); 
} 
locate(3,32) ;ConPutStr(WMsg, "Multiple copy ”); 
if (flag[2]=='y') 
ConPutStr(WMsg, ’ON ”); 
else 
ConPutStr(WMsg, "OFF”); 
locate(4,20); 
sprintf(string, "StartTrack: %d, EndTrack: %d, Surface 
ı 3a”, 
flag[3],flag[4],flag[5]); 
ConPutStr(WMsg,string) ; 
locate (7,7);ConPutStr(WMsg, "press <F1> to change p 
arameters.”); 
locate (7,48) ;ConPutStr(WMsg, "press <F10> to begin 
copy."); 
locate (9,30);ConPutStr(WMsg, "press <ESC> to quit.” 
); 
i=Taste(); 
if (i==155) 
i=ConGetChar(consoleReadPort,RMsg, &readstring) ; 
if (i==48) [ 
ConGetChar(consoleReadPort,RMsg, kreadstring) ; 
success=Menu(); 





if (anzdisk==1) /* only one drive connected Bestell-Nr. 54107 
eigen DM 385,-* (sFr 345-°168 3850,-*) 
ao [ Aegis Video-Titler - 
error = 0; Verwandeln Sie Ihren Amiga 

f (flag[0J=='y') | in eine leistungsfähige Titel- 

f (flag[1]==1) [ maschine 
locate (2,30); Ein Text- und Grafikgenerator. 
sprintf(string, ”Verify ON with %d try”,flag[1]) Bestell-Nr. 54101 
ConPutStr(Wsg, string); a a a 

a { Ihrer Präsentation einen Aus- 
locate (2,29); druck, der Eindruck macht 


Das Desktop-Programm zur 
Erstellung von Präsentations- 
grafiken. 

Bestell-Nr. 54104 

DM 149,-* (sFr 135,-°/öS 1490,-*) 
Aegis Sonix - Wetten, daß 
auch Sie mit diesem Pro- 
gramm einen Hit schreiben? 
Synthesizer- und Kompositions- 
Programm. 

Bestell-Nr. 54105 

DM 149,-* (sFr 135,-"/öS 1490-*) 
Aegis AudioMaster - 

Das Tonstudio für den Amiga 
Nachbearbeitung von digitali- 
sierten Klängen. 

Bestell-Nr. 54103 

DM 99,-* (sFr 89,-"/öS 990,-*) 
Aegis Diga - 

Der Schlüssel zur modernen 
Datenkommunikation 
Telekommunikationssoftware. 
Bestell-Nr. 54102 

DM 149,-* (sFr 135,-/öS 1490,-*) 


* Unverbindliche Preisempfehlung 


Markt &Technik-Support: 

Bei User-Registrierung rechtzei- 
tige Update-/Upgrade-Informa- 
tion und Support-Unterstützung. 
Senden Sie uns bitte Ihre 
Registrierungskarte. 
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Markt&Technik-Produkte Markt &Technik Fragen Sie Ihren Fachhändler 
erhalten Sie in den Fachabteilungen nach unserem kostenlosen Gesamtverzeichnis 


der Warenhäuser, im Versandhandel, : : mit über 500 aktuellen Computerbüchern 
in Computer-Fachgeschäften oder Zeitschriften . Bücher und Software. Oder fordern Sie es direkt 


bei Ihrem Buchhändler. Software Schulung beim Verlag an! 


Markt&Technik Verlag AG, Buchverlag, Hans-Pinsel-Straße 2, 8013 Haar bei München, Telefon (089) 4613-0 
Bestellungen im Ausland bitte an: SCHWEIZ: Markt&Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 415656. ÖSTERREICH: Markt&Technik Verlag 
Gesellschaft m.b.H., Große Neugasse 28, A-1040 Wien, Telefon (0222) 587 1393-0; Rudolf Lechner&Sohn, Heizwerkstraße 10, A-1232 Wien, Telefon (0222) 677526; 
Ueberreuter Media Verlagsges.mbH (Großhandel), Laudongasse 29, A-1082 Wien, Telefon (0222) 48 1543-0. 








A NWENDUNGEN 





143 Jo6 ] 
144 QT else if (i==57) [ 
145 K£9 locate(1,2); 
146 kr ConPutStr(WMsg,” 
147 UNO x Y; 
148 MF9 locate (7,7) ;ConPutStr(WNsg,” 
5 
149 6q locate(7,48) ;ConPutStr(WNsg,” 
); 
150 Rz locate(9,30) ;ConPutStr(WMsg,” 
NY; 
151n) ConGetChar(consoleReadPort,RMsg,&readstring) ; 
152 Qi success=Copy(); 
153 1y6 3 
154 zW else if (1==27) 
155 FB9 End(); 
156 gk6 Cursoroff(); 
157 BF ConPutStr(WMsg, "\f”); 
158 6f if (suecess==FAILED) [ 
159 oU9 locate(1,25); 
160 ox ConPutStr(WMsg, "\x9b0; 33; 40mATTENTION: Copy fa 
iled !!!\x9bm”); 
161 b66 
162 253 | while (1<2); /%* forever I! */ 
163 d80 | 
164 OU Menu() 
165 dA | 


166 p33 int zeile = 8; 

167 9h int i,k,1l,spalte,j; 

168 ze int success = OK; 

169 P3 ConPutStr(WMsg, "\f”) ;CursorOn(); 

170 De locate(1,17);ConPutStr(WMsg, "Use UP- and DOWN-keys to se 
y lect, ” 

171 ysv "ESC to return. ”); 

172 r23 locate (4,15) ;ConPutStr(WMsg, "VERIFY”) ;locate(4,25); 





173 WK if (flag[0]=='y') 

174 B36 ConPutStr(WMsg, "YES”); 
175 eR3 else 

176 DF6 ConPutStr(WMsg, "NO "); 


177 #13 locate (5,16) ;ConPutStr(Wisg, "TRIES”); 
178 IK locate(5,25);sprintf (string, "%d”,flag[1]);ConPutStr(WMsg 





‚string); 

179 zB locate (6,8) ;ConPutStr(WMsg, "MULTIPLE COPY”),locate(6,25 
); 

180 pV if (flag[2]=='y') 

181 IA6 ConPutStr(WMsg, "YES”); 

182 113 else 

183 KM6 ConPutStr(WMsg, "NO ”); 


184 1X3 locate(8,10);ConPutStr(WMsg, "START TRACK”); 

185 ms locate(8,25) ;sprintf(string, "%d”,flag[3]) ;ConPutStr(WMsg 
‚string); 

186 Nr locate(9,12);ConPutStr(WMsg, "END TRACK”); 

187 x5 locate(9,25) ;sprintf (string, "%d”,flag[4]) ;ConPutStr(WMsg 
‚string); 

188 VX locate(3,45) ;ConPutStr‘ 

189 hm locate(4,45) ;ConPutStr 


WMsg,"<0> HEAD 0”); 
WMsg,"<1> HEAD 1”); 





190 nM locate(5,45) ;ConPutStr(WMsg, "<2> HEAD 0/1”); 

191 40 locate(5,60) ;sprintf(string, "%d”,flag[5]) ;ConPutStr(WMsg 
‚string); 

192 IB locate(7,51) ;ConPutStr(WMsg, "SOURCE”) ; 

193 PX locate(7,60) ;sprintf(string, "df%d:”,flag[6]) ;ConPutStr(W 
Msg,string); 

194 Ec k=1; 

195 VL do [ 

196 Sg6 locate(zeile,43);sprintf(string, "2d. DESTINATION”,k); 

197 N9 ConPutStr(WMsg,string) ; 

198 ze if (k>1 && (flag[6+k]=='n'll flag[6+k]==62)) [ 

199 159 locate(zeile,60); 

200 ND ConPutStr(WMsg, ” Not wanted "3 

201 Fk6 } 

202 ıH else [ 

203 mW9 locate(zeile,60); 

204 Us sprintf(string, "df%d: ”,flag[k+6]) ;ConPutStr(WMsg,s 

tring); 

205 Jo6 } 

206 i1 zeile++; 

207 M83 } while (4+k<anzdisk); 

208 DF /% Editor */ 





291g 1-0; 

21065 for (sl 

211 v20 start: 

212 Ha6 switeh (i) [ 
213.Rh9 case 0: 











214 gHC 
215 Vm9 
216 avc 
217 219 
218 fiC 
219 dw9 
220 nBC 
221 h19 
222 DJC 
223 169 
224 wNC 
225 pB9 
226 A£C 
227 169 
228 FIC 
229 xL9 
230 Krc 
231 109 
232 9SC 
233 166 
234 aR 
235 5w 
236 mn 
237 139 


238 cal 
239 W59 


240 suC 
241 1K9 
242 bic 


243 9YF 
244 OW 
245 xSC 


246 CI 
247 H4F 


248 wRI 
249 MvF 
250 2XC 
251 cb 


252 KvF 
253 ucl 
254 x9L 


255 se0 
256 iQR 
257 bj 

258 AfO 
259 BgC 
260 X6 

261 Di9 
262 2F 

263 nLC 
264 bnF 
265 FWI 


266 k5 
267 VR 
268 KpF 
269 Ax 
270 MOL 
271 NsC 
272 19 
273 d4R 
a74 Ofl 


275 tb 
276 ea 
277 TyF 
278 J6 
279 VXI 
280 WIC 
281 ia 


282 JSF 


283 XoI 


zeile=4;spalte=25;break; 








case 1: 
zeile=5;break; 
case 2: 
zeile=6;break; 
case 3: 
zeile=8;break; 
case 4: 
zeile=9;spalte=25;break; 
case 5: 
zeile=5;spalte=60;break; 
case 6: 
zeile=7;spalte-62;break; 
case 7: 
zeile=8;spalte=62;break; 
case 8: 
zeile=9;spalte=62;break; 





case 9: 
zeile=10;spalte=62;break; 
I 
locate (zeile,spalte); 
J=ConGetChar(consoleReadPort,,RMsg, &readstring) ; 
if (J1=155) [ 


if ( /* CRSR dowm 





iH+; 
else if (j==65) /*  CRSR up 
% 
ie; 
else if (j==27) [ IR ESC #/ 
if (flag[3] > flag[4]) [ /% starttra 
ck > endtrack? */ 
ind; 
goto start; 


] 


else if (flag[6]==flag[7]) | /* source=d 
estination */ 
for (je2;5<4;j++) /* unseleet 
other drives */ 
flag[6+J]='n'; 
return(OK); 
I 
else if (anzdisk>2) [ /* more than two dr 
ives connected %*/ 
for (j=6 ; J<6+anzdisk ; J++) 
for (1=1 ; 1<4 ; 1+#+) 
£ (flag[j]!='n' && flag[j]!=62 && 14j 
<10) 
£ (flag[j]==flag[1+j]) | 
4el4j; 
goto start; 


} 
return(OK); 
} 
else | 
£ (1==1) [ 
if (J> 101 B& J<='9t) [ 
flagli]=J-'0'; /* Integer 
% 
sprintf(string, "2d”,flag[i]); 
ConPutStr(WMsg, string); 


) 
else 
ie; 





if (j>=10' && j<=t2t) | 
flag[i]=j-'0'; /* integer 
“ 
sprintf(string, "%d”,flag[i]); 
ConPutStr(WMsg,string) ; 
) 


else 
ie; 
3 
else if (i==6 Il i==7) [ /* ist & 2nd dri 
ve */ 
AP(J>=t01E8J< 14188 j1=t[0]88) 1=tL1JERJT=tL2 
1&8j1=t[3]) [ 
flagli]=j-'0'; /* Integer 
x 


Listing 1. (Fortsetzung) 





AMIGA-SONDERHEFT 1 





500er Speichererweiterung 
Für 512k zusätzliches RAM@alle RAM’s 
gesockelt @ selbstkonfigurierend @ abschalthar @ 
@uUhrenschaltung auf Platine mit Akku- bzw. 
Batteriepufferung nachrüsthar 
Komplett mit 512k 


Superpreis mit Uhr 


Preis auf Anfrage 
Preis auf Anfrage 


Bauteilesatz für Uhr ohne Akku 24.- 
Leerplatine mit Stecker "39.- 
"mit Schaltplan und Bestückunsliste 

“u 
Profilaufwerk 3,5 
Metallgehäuse @ einstellbare Laufwerknummer 
mit Displayanzeige®@ digitale Trackanzeige® 


@Write Protect am Laufwerk schalthar@ ab- 
schaltbar®@ durchgeschleifter Bus 
1 Jahr Garantie 


SuperALCOMPreis 323.- 
Trackanzeige 
Für DFO-DF5_einstellhar@für alle Laufwerke 


(3,5"/5,25") @ Laufwerkbus 
® mit Gehäuse 


SuperALCOMPreis 69.- 


3,5" Laufwerk 


Für alle Amiga’s@ einstellbare Gerätenummer ® 
@abschalthar@ Metallgehäuse @ superflach @ 

1 Zoll (2,54 cm) @ durchgeschleifter 

Bus @ TEAC Laufwerk 

1 Jahr Garantie 


durchgeschleift 


komplett anschlußfertig 239.- 
Amigafarhende Blende +10.- 
Basislaufwerke 1 Jahr Garantie 


TEAC FO 135 FW 3,5° IMB superslimtine 278. 
TEACFO 55 FR5,25° 40/80 Tracks IMB 239. 
TEAC FD 56GFR5,25° 40/80 Tracks 


‚Amigafarhende Blende +1 
1.6MB Diskchange 253.- 
3,5” Gehöuse 25.- 
5,25” Gehäuse 25.- 


Gehäuse für "Gemischtes Doppel” 65.- 


Llaufwerkanschlußkahel 


Zum Anschluß von Laufwerken an alle Amiga s® 
@ mit Ansteuerelektranik 

Für 3,5" Laufwerk 39.- 
Für 5,25” Laufwerk 43.- 


Seehplatzerweiterung 

3-fach für Laufwerke 

Jeder Steckplatz abschaltbar und einstellbare 
Laufwerksnummer®@ Steckplatzerweiterung direkt 
am Amigagehäuse®@ Dadurch keine Kabellangen 
‚probleme 
Anschlußfertig zum SuperALCOMPreis 49.- 


laufwerk 5,25" 


40/80 Track @ Laufwerkshus durchgeschleift @abschaltbar @ einstell- 
bare Adressen @ MS- DOS-kompatibel @ mit Diskchange 


SuperALCOMPreis 
HD 1,6 MB (umschaltbar) 
Amigafarbende Blende 


Gemischtes Doppel 3,5/5,25" 


einzeln ein-/ahschaltbar®@ einstellbare Laufwerksnummern mit Anzeige 
© durchgeschleifter Bus @ bei 5,25” 40/80 Tracks umschaltbar ® Me- 


tallgehäuse @ 1 Jahr Garantie 

SuperALCOMPreis 

Dean rt + Experimentierkarte 
Insionport 

Pe Lochraste und 2 x 6522 Ports 

Leer 

komplett aufgebaut 


Soundsampler 


Für alle Amiga's mit Software @ Type bei Bestellung bitte angeben @ 8- 
Bit Datenbreite @ Betrieb am Parallelport (Druckerport) @ Mit Vorver- 
stärker für Micro-Anchluß (Cinch-Buchsen) ® Musik- und Sprachdigitali- 50mS/ 
sierung möglich @ Arbeitet mit fast allen Digitizer-Programmen®@ Form- 


schönes Gehäuse 
SuperALCOMPreis 





ausgereifte Ingenieurlei- 
stung® 1% Tage Umtau- 
schrecht® 2 Jahre Garan- 
tie® fast alle IC'S gesok- 
kelt® nur professionelle 
leiterplatten® Bauteile 
namhafter Hersteller ® mit 
Bedienungsanleitung 


MIDI - Interface 


4Kanäle einschließlich 1 Thru@Optische Date- 
nanzeige @ Formschönes Gehäuse 


Wahnsinnspreis von nur 83.- 


19.90 


Bootselector 




































Neu!!! 


298.- 
318.- 
+10.- 


598.- 


53.- 
53.- 
83.- 


es 
a 


HEXDUMP 
ren u, 
jer, rammieralgorithmen 
Bi Superschnell 64K-1,5 min 


@Mit Software + Gehäuse 


73- N 


= 


eh 


© Programm zum Generieren und Brennen von Kick- 
starts direkt von Diskette oder aus ROM 225 





2 = 
LLULGIF 
OMPUTERHARDWARE 
kKickstartumschaltung 


Bauen Sie die anderen Kickstart-Versionen in Ihren 
Amiga 500@ Einfacher Einbau ohne Löten @ für 
Original-Kickstart-ROM und 2 zusätzliche Versio- 
nen auf EPROM@ EPROM-Programmierservice auf 
Anfrage 


SuperALCOMPreis 

Kickstartversion auf EPROM's 
Public-Domain-Disketten 
Große Auswahl® schnelle Auslieferung 
Einzelstück 6.- 
Staffelpreise auf Anfrage 


Wir suchen ständig Hardware-Ent- 
wicklungen. Wir garantieren gute 
Umsatzprovisionen und ehrliche 


129. - 


kostenloses Info anfordern!!! 


Bestellung und Versand 


ALCOMP 

A. Lanfermann 
Lessing Str. 46 
5012 Bedhur: 

Tel. 02272/1580 


Nachnahmeversand WN-Spesen 7.50 
DM b. Vorkasse 3.- DM. Auslandsbe 
stellungen: Nachnahmeversand NN- 
Spesen 10.- DM b. Vorkasse 5.-DM. 
Wir liefern Ihnen auf Ihre Rechnung 
und Gefahr zu den Verkaufs- und Liefer- 
bedingungen des Elektronikgewerbes. 
Postgiroamt 

(BLZ370 100 50) 275 54-509 











Meß- und Steuerinterface 
ADC-Kanöle 0-2,55V in 0,01V Stufe 
1 DAC-Kanöle 0-255V in 0,01V Stufe 
Genauigkeit- 1.5LSB 
frei programmierbare TTL-1/O Kanäle 
lit Gehäuse, Anschlüße auf Schraubklemmen 
® interne Referenzspannung 
snansionsportanschluß 
fach Programmierung in Basic möglich 
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Entwurf + Druck PLUM, 


A NWENDUNGEN 


284 2k 
285. n) 
286. c7F 
287 32 


288 egI 
289 fAC 
290 05 


291 sQF 
292 23) 


293 Kyl 
294 c8 
295 GOL 
296 v1 
297 nII 
298 Zp 
299 KAL 
300 B4 


301 32 
302 sNI 
303 tOF 
304 57 
305 vQC 
306 Ni 


307 KIF 
308 kol 
309 Fa 
310 bFL 
311 c5I 
312 EA 
313. 3YF 
314.46 
315 5ac 
316 r7 
317 bRF 
318: VNI 
319 yıF 
320 XZI 
321 MHF 





322 ChC 
323 2x 
324 239 
325 Fk6, 
326 K5 


327 Fe9 
328 mk6 


329 ho9 
330 Kp3 
331 Lq0 } 


} 


sprintf(string, "%d”,flag[i]); 
ConPutStr(WMsg,string) ; 


) 


else /* wrong i 
nput */ 
im; 
} 
else if (1>7) { /* 3rd & 4th 
drive */ 


if((J>=t0'EKa< 41 ERj1=t[OJERII=tLLIER)I=t[ 
2]&&Jj1=t[3]) 


I j=='n!) [  /*% j != unconnected drive 
s* 
flag[i]=j-'0'; 





if(flag[i]==62) [ 
locate(zeile,60); 


ConPutStr(WMsg,” Not wanted 5 
} 
else [ 
locate(zeile,60); 
sprintf(string, "df%d: (or 'n')”,fl 
agli]); 


ConPutStr(WMsg, string) ; 
} 
) 
else i--; 
} 
else if (i==3 Il 1==4) [ /% start- en 
dtrack */ 
if (j>='0' && J<='9') [ 
flag[i]=10*flagli]+j-'0'; 
if (flag[i]>NUMCYLS-1) 
flag[i]=J-'0'; 
sprintf(string, "4 ”,flag[i]); 
ConPutStr(WMsg, string); 
) 
i--; 
} 
else [ 
if (Jesiyt) 
ConPutStr(WMsg, ”YES”); 
else 
ConPutStr(WMsg, "NO ”); 
flag[i]=J; /* character 
* 
j 
itt; 
} 
) 
if (1>k+5) /% bottom o 
f choicetable */ 
i=0; 
if (1<0) /% top of e 
hoicetable */ 
i=k+5; 


332 RT int anzdest[4]; 


333 jv Copy() 


334 Kn | 
335 kV3 
336 23 
337 vk 
338 MR 
339 v1 
340 a2 
341 67 
342 2P 
343 rı 
344 va 
345 306 
346. %69 
347 yn 
348 XgC 
349 486 
350 Bn 


351 259 
352 5V 


353 elC 
354 1D6 





SHORT cylinder; 


int firsttime; 

int i,j,k,1,verify,‚drive,label8, labe19; 
int anz[4]; 

int head; 

int changeflag = NO; 

long warte; 

char meldung[17]; 

Cursoröff(); 

if (!avail) | 


for (avail=0 ; avail<80 ; avail++) [ 
diskpuffer[avail]=AllocMem(BLOCKSIZE,MEMF_CHIP); 
if (diskpuffer[avail]==0) 
break; 
} 
for (fastavail-0 ; fastavail<170-avail ; fastavailt+ 
JE 
fastdiskpuffer[fastavail]=AllocMem{BLOCKSIZE,MEMF_ 
FAST) ; 
if (fastdiskpuffer[fastavail]==0) 
break; 


} 
Listing 1. (Fortsetzung) 





Professional 


Jetzt gibt es Superbase Profes- 
sionall Die Profi-Version der 
bekannten, relationalen Daten- 
bank Superbase mit neuen, 
mächtigen Features: 
-Leistungsfähige Textverarbei- 
tung mit Serienbrieffunktion 
-Intelligenter Formulareditor für 
mehrseitige relationale Formu- 
lare mit bis zu 240 Spalten 
-Mächtige, Basic-ähnliche 
Datenbanksprache »DML« mit 
Unterstützung von sämtlichen 
Superbase-Professional- 
Funktionen, Pull-down-Menüs, 
Eingabe-Masken, Fenstern, 
Scroll-Balken usw. 

Superbase Professional ist das 
ideale Entwicklungswerkzeug - 
auch für komplexe Aufgaben! 


Superbase Professional 
für Amiga 

Bestell-Nr. 51672 

DM 599,-* 

(sFr 539,-*/6S 5990,-*) 
Superbase Professional 
für Atari 

Bestell-Nr. 51673 

DM 599,-* 

(sFr 539,-*/6S 5990,-*) 


Upgrades: 
Upgrade Superbase 
auf Superbase Professional 
für Atari 
Bestell-Nr. 51673U 

DM 300,-* 
(sFr 280,-/6S 3000,-*) 
Upgrade Superbase 
auf Superbase Professional 
für Amiga 
Bestell-Nr. 51672U 
DM 300,-* 
(sFr 280,-"/öS 3000,-*), 
(Gegen Einsendung der 
Originaldiskette und gegen 
Vorauskasse mit Verrechnungs- 
scheck oder der abgedruckten 


Zahlkarte.) 
* Unverbindliche Preisempfehlung 


Fragen Sie bei Ihrem Händler 
nach weiteren Unterlagen. 


Markt &Technik-Support: 

Bei User-Registrierung rechtzei- 
tige Update-/Upgrade-Informa- 
tion und Support-Unterstützung: 
Telefon 089/46 13-646 oder -205. 
Senden Sie uns bitte Ihre 
Registrierungskarte. 


Zeitschriften - Bücher 
Software - Schulung 


Markt&Technik Verlag AG, Buchverlag, Hans-Pinsel-Straße 2, 8013 Haar bei München, Telefon (089) 4613-0 
HWEIZ: Markt&fechnik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 415656. ÖSTERREICH: Ma 
28, A- Wien, Telefon (0222) 587 1393-0, Rudolf Lechner&Sohn, Heizwerkstraße 10, A-1232 Wien, Telefor 
a mbH (Großhandel), Laudongasse 29, A-1082 Wien, Telefon (0222) 4: 





A NWENDUNGEN 















355 333 |) Msg, kreadstring)) 
356 MO for (k=0 ; k<4 ; k++) 413 tuR 27) 
357 1K6 anzdest[k]=0; /* reset amount of des 414 jmO return(FAILED); 
f tinations */ 415 S2L diskreq[flag[6+k]]->iotd_Req. io_Comma 
358 Xo3 for (eylinder=flag[3] ; eylinder<=flag[4] ; eylinder=1) nd=TD_CHANGESTATE; 
{ 416 KO DoIO(diskreg[flag[6+k]]) ; 
359 uh6 if (eylinder==flag[3]) | /* first tine */ 417 olI | while(diskreg[flag[6+k]]-> iotd_Req.io_ 
360 679 if (flag[6]==flag[7]) [| /* only one drive */ Actual); 
361 YrC if ((j=(int) (2*(flag[4]-flag[3])/(fastavailtava 418 kFF } 
11)+1.5))==1) 419 16C } 
362 £RF k=! ı, 420 WE locate (6,19); 
363 gTC else 421 uR ConPutStr(uNsg, ” 
364 OVF ke's'; Y; 
365 WIC locate(6,27); 422 mM for (k=1 ; k<anzdisk ; k+) 
366 kF sprintf(string, "This copy will need %d swapfe.” 423 alF if (flag[6+k] != 'n') { 
slık)i 424 091 locate(6+k,23); 
367 73 ConPutStr(WNsg,string) ; 425 yV ConPutStr(WMsg, ” 
368 08 locate(7,18) ;ConPutStr(WMsg, "Please insert the "5 
\x9b0;33;40m” 426 sNF } 
369 NOX "SOUROE\x9bm disk in drive 427 ggC locate (6+K,32) ; ConPutStr(Wlsg, ” 
\x960;33;40m”) ; "i 
370 Inc sprintf(string, “Affd:\x9bm”,flag[6]) ;ConPutStr( 428 uP9 } 
WMsg,string); 429 vQ6 } 
371 ıE locate(8,32) ;ConPutStr(WMsg, "and press any key” 430 65 else /* belongs to "if (eylinder== 
); flag[3])' %/ ® 
372 3b if ((j=Taste())==27) IR ESC°/ 431 0Y9 if (flag[6]==flag[7]) 
373 47R return(FAILED) ; 432 quo if(WaltForDisk(flag[6], "SOURCE”)==FAILED) 
374 650 do | /* Is any disk inserte 433 25F return(FAILED); 
a? % 434 QH6 MotorOn(flag[6]); 
375 702 /* Abort if ESC is pres 435. KK for (i=0,1=eylinder ; 1<avail-1 ; 14+) [ 
sed %/ 436 hN9 if (1>flag[4]) /* end of co 
376 00F if ((j=ConMayGetChar(consoleReadPort,RMsg,&r By? 
eadstring))==27) 437 370 break; 
377 8BI return(FAILED) ; 438 8d0 /* Abort if ESO is pressed %/ 
378 8yF diskreg[flag[6]]->iotd_Reg.io_Command = TD_ 439 019 if ((J=ConlayGetChar(consoleReadPort RNsg,&readstr 
CHANGESTATE; ing))==27) | 
379 W DoIO(diskreq[flag[6]]); 440 9dC Motoroff(flag[6]); 
380 spC | while(diskreq[flag[6]]->iotd_Req.io_Actual); 44 AD return(FAILED); 
442 849 J 
381 mG locate(6,27) ; ConPutStr(WMsg,” 443 iu if (flag[5]==2) | /* both surfaces */ 
5 Abk v6C if (1==0 &% fastavail>ı) | 
382 ng locate(7,18); 445 pWR if((1=ReadFastTwoHeads(1))==FAILED) 
383 yU ConPutStr(WMsg,” 446 FII return(FAILED); 
ur AUT zxF itt; 
384 HO locate(8,32) ;ConPutStr(WMsg, ” R 448 EjC } 
5 449 Of if (1>flag[4] Il issavail-1) /* end of copy 
385 Di9 j em 
386 2F else | 450 BKF break; 
387 PhC locate (6,19); 451 5gC locate(6,30);sprintf (string, Reading cylinder 
388 25 ConPutStr(WMsg, "Please insert the \x9b0;33;40mS % "15 
OURCE\x9bm disk " 452 UQ ConPutStr(WNsg,string); 
389 IKR "in drive \x960533;40m”); 453. N9 for (head=0 ; head<2 ; i++,head++) | 
390 OsC sprintf(string, "df%d: ”,flag[6]) ;ConPutStr(WMsg, 454 CAO readingl: 
string); 455 xeF ReadCylSec(flag[6],1,head,1); 
391 Hr for (k=1 ; k<anzdisk ; k++) 456 VZ if (diskreg[flag[6]]->iotd_Req.io_Error) 
392 30F if (flag[6+k]!=62 && flag[6+k]!='n') | 457 X51 if (diskreq[flag[6]]-> iotd_Req.io_Error= 
393 Y8I locate (6+k,23) ;sprintf (string, "\x9b60;33;4 =29) | 
Omfd”,k); 458 11L if(DiskRemoved()==FAILED) 
394 YU ConPutStr(WMsg,string) ; 459 Svo return(FAILED); 
395 p6 ConPutStr(WMsg, "\x960;33;40m. DESTINATION 460 HJL goto readingl; 
\x9bm disk in ” 461 RwI I 
396 kCX "drive \x960;33;40m”); 462 44 else 
397 TI sprintf (string, "df%d:\x9bm”,flag[6+k]); 463 qkL if((ReadError(1,1,head, 
398 cY ConPutStr(WMsg, string); 464 qm diskreq[flag[6]]-> iotd_Req.io_Error) 
399 RuF } ==FAILED) 
400 2gC locate (6+K,32) ; ConPutStr(WMsg, "and press any 465 YbO return(FAILED); 
key”); 466 WIC } 
401 W4 if ((j=Taste())==27) /% ESC 467 X29 } 
402 XaF return(FAILED) ; 468 nh eise | /* only one surface 
403 SbC ao | /% Ave disks in all drives ? * 
F BL 
404 g5F if ((j=ConMayGetChar(consoleReadPort,RMsg,&r 469 iPC if (i==0 && fastavail) | /* Is there any fast 
eadstring))==27) mem ? %*/ 
405 adI return(FAILED); 470 KAF if((1=ReadFastOneHead(1,flag[5]))==FAILED) 
406 aQF diskreg[flag[6]]->1otd_Req.io_Command = TD_ 471 ehl return(FAILED) ; 
CHANGESTATE; 472 OMF it; 
407 wx DoIO(diskreg[flag[6]]); 473 480 } 
408 N5C while (diskreq[flag[6]]->iotd_Req.io_Actual); 474 820 reading: 
475 g50 if (1>flag[4] Il i==avail-1) oe 
409 ux for (k=1 ; k<anzdisk ; k++) | nd of copy ? %*/ 
410. LgF if (flag[6+K]!=62 && flag[6+k]!='n') | 476 bkF break; 
477 V6C locate(6,30);sprintf(string, "Reading cylinder 
411 zpI do | 
412 KLL if ((j=ConMayGetChar(consoleReadPort,R Listing 1. (Fortsetzung) 
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Direkt bestellen statt abtippen! 


Die aktuelle Diskette zum Heft: Amiga-Hardware-Service: 


Amiga Sonderheft I: Die Wiederbelebung für die 
Bauen Sie Ihr’eigenes Tonstudio C64-Peripherie 


ee, Plus: Die Ber e,zu unserem Selbstbau- Viele Amiga-Besitzer hat 
Sie digitalen Sound-Studio riegeräten,zu Hause stehe 
beitet mit vier getrennten Software-können Sie diese 
isierung von Klän- und IRre Daten so weiterbei 
viele weitere Poatuns einzelne Spuren nung wirklich einfach. 
Teile ders beliebig gemischt, geschnitten oder ver- Derfertig aufgebaute IE@“Handler erlaubt es, alle C64- 
bunden werden. Die ehe Ausgabe der digitalisieren Geräte wie die\Floppy 1541 oder 1571, Commodöre- 













h einen C 64 mit Periphe- 
ein. bißchen Hard- und 
euem leben erwecken 
enDabei ist die\Bedie- 











Sounds macht die Bearbeitung’zum Kinderspiel. MPS-Drucker und natürlich auch den C64 (zur Daten- 
$uremo iespiel der neuen Dimension: übertragung) am Amiga zu betreiben. 

Begeben Sie Si srne, fremde Welt und befreien Das Ge gimtpaket besteht aus der fertig aufgebauten 
Sie die Bevölken bösen Wesen, die den Zeitfluß® Platine t Verbindungskabel, der Treibersoftware auf 
verlangsamen. 3/a-Zoll-Diskette sowie einer entsprechenden Dokumen- 













Dcopy, ist ein schnelles Kopierprogramm de s 
Neben hoher Geschwindigkeit,bietet'es die Möglic 

bis zu drei Kopien in einem Arbeitsgang anzufertige 
Biorhythmus: Neben Sue sehr sc ıönen gfali 
Darstell g der“ \urven von Geist, 
erlaubt ‚das komfortable Programm auch ie Ausgabe 
einer Jahresstatistik. Sie erfahren alles über Ihre »guten« 
und »kritischen« Tage, 


E) * 
» M Va (sFr 71,-°/65 790," 


nverbindliche Preisempfehlung 


Der\»IEC-Handler« ist ab Ende September 1988 lieferbar. 
Bestellungen bitte nur gegen Vorauskasse bei: 

Ih”. *-Diskette für Amiga arkt&Technik Verlag AG 

Bestell- -Nr-45801 | - Buchverlag - 


DM 29,90° = 
(sFr 24,90 *16S 299,-*) Hans-Pinsel-Straße 2, 8013 Haar bei München 


* Unverbindliche Prebemglshhung 
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Markt&fTechnik Verlag AG, Buchverlag, Hans-Pinsel-Straße 2, 8013 Haar bei München, Telefon (089) 4613-0 
Bestellungen im Ausland bitte an: SCHWEIZ: Markt&dechnik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 415656. ÖSTERREICH: Markt&Technik Verlag 
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Ueberreuter Media Verlagsges. mbH (Großhandel), Laudongasse 29, A-1082 Wien, Telefon (0222) '481543-0 
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Pi 





Sie suchen hilfreiche 
Utilities und professio- 
nelle Anwendungen für 
Ihren Computer? Sie 
wünschen sich gute Soft- 
ware zu vernünftigen 
Preisen? Hier finden Sie 
beides! 

Unser stetig wachsendes 
Sortiment enthält interes- 
sante Listing-Software 
für alle gängigen 
Computertypen. Jeden 
Monat erweitert sich 
unser aktuelles Angebot 
um eine weitere interes- 
sante Programmsamm- 
lung für jeweils einen 
Computertyp. 

Bei Fragen zu Bestellung 
und Versand der 
Programmservice- 
Diiketten wählen Sie 


bitt 
Telefon (089) 4613-232. 


Bestellungen bitte nur gegen 
Vorauskasse an: Markt &Technik 
Verlag AG, Unternehmensbereich 
Buchverlag, Hans-Pinsel-Straße 2 
D-8013 Haar, 

Telefon (089) 4613-0 

Schweiz: Markt &Technik 
Vertriebs AG, Kollerstrasse 3 
CH-6300 Zug, Telefon (042) 
415656, 

Österreich: Markt & Technik 
Verlag Gesellschaft m.b.H 
Große Neugasse 2B 

A-1040 Wien, Telefon 

(0222) 587 1393-0, 
Mierocomput-ique, E. Schiller, 
Fasangasse 24, A-1030 Wien, 
Telefon (0222) 785661; 
Bücherzentrum Meidling, 
Schönbrunner Straße 261 
A-1120 Wien, 

Telefon (0222) 833196 
Ueberreuter Media, 

Verlagsges. mbH (Großhandel), 
Laudongasse 29, A-1082 Wien 
Telefon (0222) 4815430 
Bestellungen aus anderen 
Ländern Bite nur schrihlich an 
Markt &Technik Verlag AG, 

Abt. Buchvertrieb, Hans-Pinsel- 
Straße 2, D-8013 Hoar, und 
gegen Bezahlung der Rechnung 
im voraus 


Bitte verwenden Sie für 
Ihre Bestellung und 
Überweisung die beige- 
heftete Postgiro-Zahlkarte, 
oder senden Sie uns 
einen Verrechnungs- 
Scheck mit Ihrer Bestel- 
lung. Sie erleichtern uns 
die Auftra: sabwicklung, 
und dafür berechnen wir 


Ihnen keine Versand- 
kosten. 





Amiga 8/88: 

C64-Peripherie am Amiga 

IEC-Handler: Mit dem IEC-Handler lassen sich C64-Periphe- 
riegeräte wie die VC 1541 oder ein MPS-Drucker an den Amiga 
anschließen. Zum Betrieb ist die hier zu findende Software 
nötig. 

Virustest: Wir rüsten zum Kampf. Damit Sie mehr Schutz vor 
Computerviren haben, hilft der Virustester beim Erkennen dieser 
lästigen Biester. 

Akolerm: Steversoftware zum Betrieb des ‚Amiga mit einem 
‚Akustikkoppler. Erschließen Sie sich die Welt der Datenfernüber- 
tragung. 

Eliza: Kommunizieren Sie mit Ihrem Amiga. Mit diesem Pie- 
gramm führt der Amiga mit Ihnen ein Gespräch über die ver- 
schiedensten Themen. Der Psychoanalytiker daheim... 

Resi: Macht Programme reseifest. So stehen Ihnen auch nach 
einem Warmstart noch die damit behandelten Programme zur 
Verfügung. ; 

3Va*.Diskette für Amiga 


Bestell-Nr. 48808 DM 29,90* sFr 24,90*165 299,-* 


Amiga 5/88: 

Vom Spiel zum nützlichen Utility 

Diesmal finden Sie auf unserer Programmservice-Diskette 
wieder ein breites Spektrum an Listings. Von Spielen über Werk- 
zeuge bis zu Anwendungen ist alles vorhanden. 

Kniffel: Ein grafisch gut aufgemachtes Spiel für bis zu vier Teil- 
nehmer. Kniffel wird sicher nicht langweilig. Ein Muß für alle 
Glücksspieler. 

Manager: Verschafft Ihnen die Übersicht über Ihre Ausgaben in 


klarer Form und hilft somit Geld sparen. Komfortable un f 


per Maus ist selbstverständlich. 

CrossRef: Hilft Ihnen beim Analysieren von Programfhan, Viele 
wichtige Daten von Basic-Programmen wie labels und Varia- 
blen erhalten Sie schwarz auf weiß ausgedruckt. Ein unentbehr- 
liches Hilfsmittel für Basic-Programmierer. 

3-D-TicTac-Toe: Ein gutes Auge und einen scharfen Verstand 
brauchen Sie für diese dreidimensionale Spielvariante. 
Recover: Rettet versehentlich gelöschte Dateien von Ihrer 
Diskette. Auch teilweise zerstörte Dateien werden soweit als 
möglich restauriert. 

3)/r*.Diskette für Amiga 

Bestell-Nr. 488055 DM 29,90* sFr 24,90*165 299,-* 


Amiga 4188 

3-D-Landschaften aus dem Conjputer 
Fraktalberge: Ein Muß für alle Fans von zufallserzeugten Grafi- 
ken. Fantastisch einfach in der Bedienung und sehr schnell. 
Transfer: Überträgt Bilder vom C64 auf den Amiga. Mit guter 
Software und leicht nachzubauender Hardware. 

DiskSpy: Direktes Ändern von Daten auf der Diskette ist mit 
diesem Werkzeug kein Problem mehr. Es stehen viele Befehle 
zur Verfügung. 

ColorChange: Ein Basic-Unterprogramm, mit dem Sie einfach 
und schnell Ihre Wunschfarben auf beliebigen Bildschirmen ein- 
stellen können. 

Troof: Ein spannendes Spiel in Basic mit starker Grafik und vielen 
verschiedenen levels. 

3)/a*.Diskette für Amiga 


Bestell-Nr. 48804 DM 29,90* sFr 24,90*165 299,-* 


Amiga 3/88 

Bildschirmfüllende Boot-Bilder 

mit allen Extras 

BootGirl: Fantastische Bilder sofort nach dem Reset. Bis zu 32 
Farben mit Color-Cycling. Die Bilder können auch bildschirm- 
füllend ohne Rand sein. Ein absolutes Muß für jeden Amiga- 
Besitzer. 

CassCover: Selbstgedruckte Kassettenhüllen geben Ihnen den 
richtigen Überblick. Einfache Bedienung macht das Eingeben 
und Ausdrucken zur wahren Freude. 

Command: Das Programm ermöglicht die Steuerung des Aztec- 
C-Compilers mit der Maus. Keine langen Eingaben per Tastatur, 
sondern ein einziger Mausklick startet nun die Übersetzung. 





OGRAMMSERVICE 


Videofext: Ein unentbehrliches Werkzeug für alle Video-fans, 
die ihren eigenen Vorspann mit dem Amiga generieren wollen. 
laufbänder, verschiedene Schriften und IFF-Bilder sind nur einige 
Stichpunkte, die das Programm so interessant machen. 
3'prDiskette für Amiga 


Bestell-Nr. 48803 


Amiga 12/87 

Super-Kopierprogramm mit viel 
Komfort 

DCopy: Unser Programm des Monats, ein Kopierprogramm, 
das alles bietet, was man sich nur wünschen kann. Einige Fähig- 
keiten: Bis zu vier laufwerke werden verwendet, Mehrfach- 
kopien, abschaltbares Verify und vieles mehr. 

SpeedHc: Eine sehr schnelle Hardcopyroutine für Schwarz- 
weißausdrucke mit höchster Qualität. Leicht an andere Drucker 
anzupassen. 

Sternenhimmel: Ein unSktbehrliches Werkzeug für alle Him- 
melsbeobachter. Das Programm zeigt alle Sterne und Planeten 
von jedem beliebigen Punkt de, er nördlichen Hemisphäre. 
Checkie42: Der Checksummer ‚für alle Programmiersprachen 
von Assembler über Basic bis zu C. Ab dieser Ausgabe finden 
Sie bei jedem Listing die Prüfziffern. 

Joy: Ein sehr kurzes und schnelles C-Programm zur Abfrage des 
Joysticks. Es ist leicht in eigene Programme einzubinden. 
Amiga-Shell: Ein C-Programm, das Komfort ins CLI bringt. 
Editieren der Befehlszeile, Funktionstastenbelegung und Alias- 
namen sind nur einige Fähigkeiten dieses fantastischen Pro- 
gramms. 

3/a*Diskette für Amiga 


DM 29,90* sFr 24,90*185 299,-* 


- Bestell-Nr. 48705 DM 29,90* sFr 24,90*165 299,-* 


Amiga 10/87 

Super-Malprogramme für alle 
Amiga-Computer 

Rainbow-Drawer: Dieses Programm des Monats bietet 
leistungsfähige Befehle und Funktionen, wie sie von professio- 
nellen Programmen bekannt sind: bis zu 32 Farben, alle Auf- 
lösungen, viele Befehle zum Zeichnen sowie FILL mit Mustern, 
BOW und anderem. 

Turtle: Mit dieser Befehlserweiterung verfügen Sie über die 
Grafikbefehle, die bei logo bekannt und beliebt sind. 
Fractals: Dreidimensionale, realistische Gebirge mit Schat- 
tierung erzeugt dieses Programm. 

Clouds: Genauso wirklichkeitsnah wie die Gebirge, aber noch 
erstaunlicher, sind die Wolken, die Sie mit Clouds generieren. 
Apfelmännchen: Hiermit erzeugen Sie schöne Grafiken aus der 
beliebten Mandelbrot-Ebene. 

Kudiplo: Ein gutes, unverzichtbares Werkzeug für die Kurven- 
diskussion stellt »Kudiplo« dar. 

Senso: Testen Sie mit dieser Computer-Adaption des bekannten 
Spiels Ihr Gedächtnis! 

Division: Bis zu 32000 Nachkommastellen können durch dieses 
Programm berechnet werden. 

Alert: Alarme, zum Beispiel die bekannten Guru-Meditations, 
können Sie nun selbst programmieren. Das Programm ist in erster 
Linie für C-Programmierer aufschlußreich. 

Border: lassen Sie den Fensterrahmen des CLI-Fensters einfach 
verschwinden! 

SCD: Mit diesem Utility können Sie den Pfadnamen in der Titel- 
leiste des Fensters anzeigen. 

3/p".Diskette für Amiga 


Bestell-Nr. 4837068 DM 29,90 * sFr 24,90*165 299,-* 
* Unverbindliche Preisempfehlung 


Mit den Gutscheinen aus dem 
Übrigens: »Super-Software-Scheckheft« für 
DM 149,- können Sie sechs Software-Disketten Ihrer 
Wahl aus dem Programm-Service-Angebot der Zeit- 
schriften 
PC Magazin 


Happy-Computer-Sonderheft Computer persönlich 
PC Magazin Plus 


‚Amiga-Magazin 64'er-Magazin 
‚Amiga-Sonderheft 64’er-Sonderheft 


Happy-Computer 
bestellen - egal, ob diese DM 29,90 oder DM 34,90 
kosten. Das Scheckheft können Sie per Verrechnungs- 
scheck oder mit der eingehefteten Zahlkarte direkt 
beim Verlag bestellen. 

Kennwort: Software-Scheckheft, Bestell-Nr. 39100. 


A NWENDUNGEN 





478. uq 
49 nl 
480 rE 


481 vTF 


482 P6L 
483 qtL 
484 jmI 
485 pKF 
486 £5 

487 ESI 
488 EkJ 


489 wzL 
490 ilC 
491 v09 
492 uR6 
493 ha 


494 aE 
495 109 


496 w06 
497 EX 


498 9L 
499 %20 
500 456 
501 Aug 


502 GmC 
503 BU 
504 xuE 


505 ylC 
506 rtE 


507 aMC 
508 FIF 
509 K7C 
510 Ej9 
511 Fk6 
512 55 
513 oB9 
514 v7V 
515 cc6 
516 zf9 
517 GPC 
518 KLV 
519 6B9 


520 410 
521 85V 
522 Qv9 
523 0C 
524 3rC 


525 6PF 
526 Xal 
527 2DF 
528 Tal 
529 JHF 
530 Y3C 
531 IX 

532 Ver 
533 m9C 


534 75 
535 d2 
536 qm 
537 37 
538 DsO 
539 a4F 
540 10I 
541 InF 
542 501 
543 wY 
544 uAL 


545 GyO 
546 HP 





#a "rl; 
ConPutStr(WMsg, string); 
ReadCy1Sec(flag[6],1,flag[5],1); 
if (diskreg[flag[6]]->iotd_Req.io_Error) /* e 
rror detected */ 
if (diskreg[flag[6]]->iotd_Req.io_Error=-29 
= 
if(DiskRemoved()==FAILED) 
return(FAILED); 
goto reading2; 
3 
else 
if((ReadError(i,1,head, 
diskreq[flag[6]]->iotd_Req.io_Error))== 
FAILED) 
return(FAILED); 
ir; /* inerement memory-buffer */ 
} 
} 
MotorOff(flag[6]) ;locate(6,30) ;ConPutStr(WMsg, ” 
5 
for (k=0 ; k<4 ; k++) 
anz[k]=anzdest[k]; /% remember the amount of 
destinations */ 
drive = flag[7]; /% actual drive-number * 
/ 
label8 = label9 = 0; /* reset multiple-copy la 
bels %*/ 
firsttime = YES; MM flag */ 


change: 


f (anzdest[drive] Il flag[6]==drive)[ 
if (flag[6]==drive Il anz[drive]<anzdest[drive] | 
| changeflag==YES)[ 
changeflag = NO; 
if (firsttime==YES) 
sprintf (meldung, "%d. DESTINATION”,anz[drive]+ 
2); 
else 
sprintf (meldung, ”%d. DESTINATION”,‚anzdest[dri 
ve]-anz[drive]+1); 
if(WaitForDisk(drive,meldung)==FAILED) 
return(FAILED); 
MotorOn(drive); 








} 
} 
else 
MotorOn(drive); 
/% writing data %/ 
for (1=0,1=eylinder ; i<avail-1 ; 14) [ 
f (1>flag[4]) /% end of copy ? */ 
break; 
/* ESC pressed ? %*/ 
if ((j=ConMayGetChar(consoleReadPort,RMsg,&readstr 
ing))==27) [ 
MotorOff(drive); 
return(FAILED); 
I 
if (flag[5]==2) [ /% both surfaces */ 
if (i==0 && fastavail>1) [| /% writing fast 
mem-buffer */ 
if((1=WriteFastTwoHeads(1,drive))==FAILED) 
return(FAILED); 
else if (1==N0) 
goto giveup; 
it; 


£ (1>flag[4] ]] i==avail-ı) 
break; 
verify=0; /% reset amount of verif 
y-errors */ 
locate(6,30); 
sprintf(string, "Writing cylinder %d ",1); 
ConPutStr(WMsg, string); 
for (head=0 ; head<2 ; i++,head++) [ 


writing2: 


if(WriteCylSec(drive,1,head,1)==FAILED) 
return(FAILED); 
if ( /* verify ON %*/ 
ReadCylSec(drive,1,head,i); 
if (diskreq[drive]->iotd_Req.io_Error) 
f (diskreg[drive]->iotd_Req.io_Error 
==29) | 
locate(6,22); 
ConPutStr(WMsg, "Destination is \x9b 

















0;33;40m” 
547 U4d "removed\x9bn. Try i 
t again I”); 
548 WTO MotorOff (drive); 
549 VN if(WaitForDisk(drive, ””) 
550 vyR return(FAILED); 
551 SDO locate(6,25); 
552 86 ConPutStr(WMsg, ” 
; 
553 Sp MotorOn(drive); 
554 SB goto writing2; 
555 xSL } 
556 68 else [ /% verify-error detect 
ed */ 
557 MfO if (verify < flag[1]) [ 
558 4UR if((VerifyError(1,head,drive))== 
FAILED) 
559 47U return(FAILED); 
560 reR else 
561 ZIU goto writing2; 
562 420 } 
563 46 else | 
564 m6R anzdest[drive]--; 
565 4B goto giveup; 
566 8d0 } 
567 gel } 
568 AfF } 
569 BgC } 
570 Ch9 } 
srı Yı else [ /* only one surface 
” 
572 OUC if (i==0 && fastavail) [ /* copying from fastm 
em to chipmem */ 
573 4XF if((1=WriteFastOneHead(1,drive))==FAILED) 
574 JMI return(FAILED) ; 
575 0zF else if (1==N0) 
576 FMI goto giveup; 
577 53F i4+4; 
578 Kpt } 
579 Oh0 writing4: 
580 WKC if (1>flag[4] |] i==avail-ı) 
581 IRF break; 
582 y5C if(WriteCylSec(drive,l,flag[5],1)==FAILED) 
583 SVF return(FAILED) ; 
584 3qC if (flag[0]=='y') | /% verify %/ 
585 Per ReadOylSec(drive,1,flag[5],1); 
586 dF if (diskreg[drive]->iotd_Req.io_Error) 
587 brI if (diskreq[drive]->iotd_Req.io_Error==2 
N 
588 xfL locate(6,22); 
589 y6 ConPutStr(WMsg, "Destination is \x9b0;3 
3;40m” 
590 Bla "removed\x9bm. Try it a 
gain !”); 
591 DAL MotorOff (drive); 
592 04 if(WaitForDisk(drive, ””)==FAILED) 
593 8t locate(6,25); 
594 om ConPutStr(WMsg, ” 
; 
595 8V MotorOn(drive); 
596 GL goto writing4; 
597 d8I } 
598 Pf else [ 
599 2LL if (verify < flag[1]) [ 
600 8r0 if((VerifyError(1,flag[5],drive))== 
FAILED) 
601 knR return(FAILED); 
602 XKO else 
603 N8R goto writings; 
604 KFL } 
605 Wm else [ 
606 Sm anzdest[drive]--; 
607 kr goto giveup; 
608° oJL } 
609 pKI ] 
610 qLC } 
611 db IH; 
612 sN9 } 
613 106 } 
614 ux0 giveup: 
615 XA6 MotorOff (drive) ;1ocate(6,30) ;ConPutStr(WMsg,” 
5; 
616 CL if (flag[2]=='y') [ 
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617 e49 
618 nVC 






619 IV 
620 je 






621 20 
622 IdF 
623 DN 
624 V4 
625 5ac 
626 669 
627 vW 
628 7nC 
629 89 
630 Af9 
631 Bg6 
632 Ne 
633 Dn9 
634 52 
635 gF 
636 616 
637 er 
638 Lu 
639 Zh 
640 1K 
641 146 
642 X13 
643 916 
644 03 
645 kJ 
646 190 
647 9BO 


if (eylinder==flag[3]) [ 
locate (6,27) ; ConPutStr(WMsg, "Another DESTINA 
TION (y/n) 2”); 
j-Taste(); 
locate (6,27) ; ConPutStr(WMsg,” 
"5 
if (Jee'yt |] JeetYt) [ 
anz[drive]=++anzdest[drive]; 
changeflag = YES; 
goto change; 
} 
} 
else if (anz[drive]-- > 0) [ 
firsttine = NO; 
goto change; 


} 


f (flag[8]!='n! && flag[8]!=62 && label8==0) | 
drive=flag[8]; 
label8=1; 
goto change; 
) 
if (flag[9]!='n! && flag[9]!=62 && label9==0) | 
drive=flag[9]; 
labe19=1; 
goto change; 
} 
if (verify==flag[1]) 
return(FAILED); 
} 
return(OK); 
/* end of Copy() %*/ 
/* exit gracefully */ 


648 KpO End() 


649 Ps. | 
650 yU3 
651 1g 
652 AE6 
653 we 
654 uY 
655 8u 
656 j2 
657 Gw 
658 m5 
659 v6 
660 e93 
661 2X 
662 oh6 


663 509 
664 sc 
665 yfA 


666 FX9 


667 hS 
668 mH6 
669 863 
670 p26 
671 sP3 
672 Fu6 
673 3x3 
674 38 
675 Me6 
676 WA3 
677 43 
678 v2 
679 qS 
680 t2 
681 SK 
682 FT 
683 KB 
684 Is 
685 En 
686 270 } 

















689 3 | 
690 023 
691 kE 
692 A£0 ) 








695 9e [| 








36 


int 1; 

f (flag[6]!=flag[7]) [ 
ConPutStr(WMsg, "\f”); 
locate (4,24); 
ConPutStr(WMsg, "Please remove ALL destinations, ”); 
locate (5,27); 

ConPutStr(WMsg, "so DOS won't get confused.”); 
locate(7,33); 

ConPutStr(WMsg, "Press any key.”); 

isTaste(); 


/* more than one drive */ 


j 
for (i=0 ; i<4 ; i++) 
if (il=t[0]-'0' && il=t[1]-'0' && il=t[2]-'0' && il=t 
13]-'0') | 
CloseDevice(diskreq[i]); 
if((mp = FindTask( "File System”))!=NULL) 
dos_packet(&mp->pr_MsgPort,AOTION_INHIBIT,FALSE, 
OL,OL,OL,OL,OL,OL); 
DeleteExtIO(diskreg[i],(long)sizeof(struct IOEXtTD 
5 
DeletePort(diskport[i]); 
} 
for (1=0;i<avail;i++) 
FreeMen(diskpuffer[i],BLOCKSIZE); 
for (i=0;1<fastavail;i++) 
FreeMen(fastdiskpuffer[1],BLOCKSIZE); 
i=CheckIO(RMsg) ; 
f (i==FALSE) 
AbortIO(RMsg) ; 
WaitPort(consoleReadPort); 
GetMsg(consoleReadPort); 
CloseDevice(WNsg) ; 
CloseWindow(w); 
DeleteStdlO(RMsg) ; 
DeletePort(consoleReadPort) ; 
DeleteStdIO(WMsg) ; 
DeletePort(consoleWritePort); 
CloseLibrary(IntuitionBase) ; 
exit (OL); 
/* end of End() */ 


687 JY Changenum(i) 
688 86 int i; 


diskreq[i]->iotd_Req.io_Command = TD_CHANGENUM; 
DoIO(diskreq[i]); 


693 kp MotorOn(i) 
694 gC int i; 








696 753 
697 17 diskreq[i]->iotd_F>q.io_Command = TD_MOTOR; 


diskreg[i]->iotd_Req.io_Length = 1; 





698 rL DoIO(diskreg[i]); 

699 HnO } 

700 id Motoroff(i) 

701 nJ int; 

702.6) | 

703 9t3 _diskreg[i]->iotd_Reg.io_Length = 0; 

704 PE diskreq[i]->iotd_Req.io_Command = TD_MOTOR; 

705 yS DoIO(diskreg[i]); 

706 010 } 

707 6 ReadCylSec(i,cyl,hd,puff) 

708 uQ int i; 

709 k5 SHORT eyl,hd; 

710 26 int puff; 

qıı ps | 

712 8B3 LONG offset; 

713 sy diskreg[i]->iotd_Reg.io_Length = BLOCKSIZE; 

714 UQ diskreg[i]->iotd_Req.io_Data = (APTR)diskpuffer[puff]; 

715 KE diskreq[i]->iotd_Req.io_Command = CMD_READ; 

716 65 offset = TD_SECTOR * (NUMSECS * hd + NUMSECS * NUMHEADS 
*oyl); 

717 OR diskreq[i]->iotd_Req.io_Offset = offset; 

718 Bf DoI0(diskreg[i]); 

719 tx return(YES); 

720 c70 } 

721 Xv WriteCylSec(i,cyl,hd,puff) 

722 8e int i; 

723 yJ SHORT cyl,hd; 

724 nl int puff; 








725 46 | 

726 MP3_ LONG offset; 

727 10 label: 

728 703  diskreg[i]->iotd_Req.io_Length = BLOCKSIZE; 


729 jf diskreq[i]->iotd_Req.io_Data = (APTR)diskpuffer[puff]; 

730 58 diskreq[i]->iotd_Req.io_Command = TD_FORMAT; 

731 Ih offset = TD_SECTOR * (NUMSECS * hd + NUMSECS * NUMHEADS 
*eyl; 

732 dg diskreq[1]->iotd_Req.io_Offset = offset; 

733 Qu DoIO(diskreg[i]); 

734 al if (diskreq[i]->iotd_Req.io_Error) [ 


735 Sm6 if (diskreg[i]->iotd_Req.io_Error == 28) [ 
736 RI9 locate(6,18); 
737 ha ConPutStr(WMsg, "Destination is \x9b0;33;40mwrite-p 

rotected\x9bm. ” 
738 190 "Try it again I”); 
739 e09 Motoroff(i); 
740 K7 if(WaitForDisk(i,”")==FAILED) 
741 030 return(FAILED) ; 
742 XP9 locate(6,18); 
743 mI ConPutStr(WMsg, ” 

5 

7aı Rx Motoron(i); 
745 Zb goto label; 
746 2X6 } 
747 j4 if (diskreq[i]->iotd_Req.io_Error == 29) | 
748 XF9 locate(6,22); 
749 qa ConPutStr(WMsg, "Destination is \x9b0;33;40mremoved 

\x9bm. " 
750 gLo "Try it again I”); 
751 q09 Motoroff(1); 
752 wI if(WaitForDisk(i, ””)==FAILED) 
753 CFC return(FAILED); 
754 aL9 locate(6,22); 
755 Ip ConPutStr(WMsg, ” 

5 

756 d9 MotorOn(1); 
757 In goto label; 
758 EJ6 } 
759 Fk3 
760 Ye return(YES); 
761 HmO } 


762 20 FullSeek(times,unit) 
763 zs int times,unit; 





76465 | 

765 pl3 inti; 

766 tw for (i=0 ; i<times ; I) | /* Move head to cyl 79 
then to eyl 0 */ 

767 116 diskreq[unit]->iotd_Req.io_Offset= 

768 eTV (1ong) (((NUMCYLS-1)*NUMSECS* 

NUMHEADS-1)*512) ; 

769 hu6 diskreq[unit]->iotd_Req.io_Command = TD_SEEK; 

770 je DoIO(diskreg[unit]); 

771.07 diskregq[unit]->iotd_Req.io_Offset=0L; 
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772 kx 

773 mh 

774 023 | 

775 v00 } 

776 DS WaitForDisk(c,text) 

77T RL into; 

778 wc char *text; 

Ivy L 

780 Ac3 

781 rf locate(7, (80-38-strlen(text))/2); 

782 24 ConPutStr(WMsg, "Please insert the \x9b0;33;40m”); 

783 ConPutStr(WMsg, text) ; 

784 sprintf(string, "\x9bm disk in drive \x960;33;40maf%d: \x 
Ibm”,c); 

785 ConPutStr(WMsg,string) ; 

786 do [ /* Is disk removed */ 

787 if((j=ConMayGetChar(consoleReadPort,RMsg, kreadstring) 


diskreg[unit]->iotd_Req.io_Command = TD_SEEK; 
DoIO(diskreg[unit]); 


int J; 


788 return(FAILED); 
) 
diskreq[e]->iotd_Req.io_Command = TD_CHANGESTATE; 
DoIO(diskreq[e]); 
}while(!diskreg[c]->iotd_Req.io_Actual); 
do { /% Is disk inserted ? */ 
J=ConMayGetChar(consoleReadPort,RMsg,&readstring) ; 
if (j==27) 
return(FAILED); 
diskreq[c]->iotd_Req.io_Command = TD_CHANGESTATE; 
DoIO(diskreq[e]); 
}while(diskreq[e]->iotd_Req.io_Actual); 
locate(7,10); 
ConPutStr(WMsg,” 


FtI ” 
803 FJ3 return(YES); 
804 yTo } 
805 Ji Taste() 
806 wP [ 
807 b33 
808 uF 


int J; 

while((j=ConMayGetChar(consoleReadPort,RMsg, kreadstring) 
Yi=-1); 

while((J=ConGetChar(consoleReadPort,RMsg, kreadstring) )== 
nt); 

return(J); 


809 UF 


810 H8 
811 5a0 } 
812 Po locate(lin,col) /* analog BASIC-locate %/ 
813 Jt int lin,col; 
814 4X | 
815 0v3 
816 MI 
817 BgO } 
818 6D ReadFastTuoHeads(1) 
819 27 int l; 
820 Ad | 
821 int J,k,heag; 
822 for (k=0 ; k<fastavail-1 ; 1) [ 
823 if (1>flag[4]) 
824 return(1); 
825 if((j=ConMayGetChar(consoleReadPort,RMsg, kreadstring) 

)==27) { 
826 Motoroff(flag[6]); 

return(FAILED); 
) 


locate(6,30); 
sprintf(string, "Reading 
ConPutStr(Wlsg, string); 
for (head=0 ; head<2 ; head++) [ 
reading}: 
ReadOylSec(flag[6],1,head,0); 
if (diskreg[flag[6]]-> iotd_Req.io_Error) 
if (diskreq[flag[6])-> iotd_Req.io_Error==29) [ 
if(DiskRemoved()==FAILED) 
return(FAILED); 
goto reading3; 
J 
else 
if((ReadError(0,1,head, 
diskreq[flag[6]]->iotd_Req.io_Error))==FAI 
LED) 
return(FAILED); 
erase=fastdiskpuffer[k++] ; puffmerk=diskpuffer[0] 


sprintf (string, "\x9b%d;%dH”,lin,col); 
ConPutStr(WMsg, string) ; 


eylinder %d ”,1); 


**#asm 


movem.l dO/a0-al,-(sp) 
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848 5D 
849 LU 
850 BK 


851 830. laber 


852 47D 
853 uzB 


move.w 
move.1 


** #41407,d0 
_erase,a0 
move.1 _puffmerk,al 
move.l (al)+,(a0)+ 
dbra dO,laber 
moven.1 (sp)+,d0/a0-al 


854 QKO ** #endasm 


855 nI6 
856 043 
857 A3 
858 qLO ] 


} 
} 


return(1); 


859 dn ReadFastOneHead(1,head) 
860 nF int 1,head; 


861 pI | 
862 NE3 
863 db 
864 ap6 
865 IB9 
866 T56 
867 13 
868 08 


int J,k; 
for (k=0 ; k<fastavail ; 14+) [ 
if (1>flag[4]) 
return(1); 
locate(6,30); 
sprintf(string, "Reading 
ConPutStr(WMsg, string); 


eylinder %4 ”,1); 


869 560 reading4: 


870 H46 


871 689 
872 7A 
873 586 
874 x) 
875 GK 
876 Ig9 
877 mTC 
878 DGF 
879 EJC 
880 Ch9 
881 2p 
882 5fC 
883 b7D 


884 JMF 
885 uK6 


if((j=ConMayGetChar(consoleReadPort,RMsg, kreadstring) 
)==27) [ 
MotorOff(flag[6]); 
return(FAILED) ; 
} 
ReadCylSec(flag[6] ,1,head,0); 
f (diskreg[flag[6]]->iotd_Req.io_Error) 
f (diskreg[flag[6]]->iotd_Req.io_Error==29) [ 
if(DiskRemoved()==FAILED) 
return(FAILED) ; 
goto reading4; 





) 


else 
if((ReadError(0,1,head, 
diskreq[flag[6]]->iotd_Req.io_Error))==FAILED 
) 
return(FAILED); 
erase=fastdiskpuffer[k++] ; puffmerk=diskpuffer[0]; 


886 6mO **#asm 


887 528 
888 jr 
889 28 
890 py 


891 1VO laberO 


892 KYA 
893 Yd8 


movem.1 
move.w 
move.l 


d0/a0-al,-(sp) 
%%#1407,d0 
_erase,a0 
move.1 _puffmerk,al 
move.1  (a1)+,(a0)+ 
dbra d0,1laberO 
movem.1 (sp)+,d0/a0-al 


894 4y0 ** #endasm 


895 Rw3 
896 ng 
897 Ty0 } 


} 


return(1); 


898 2A ReadError(1,track,head,errnumber) 
899 PF int 1,track,head,errnunber; 


900 Sv [ 
901 723 
902 PT 
903 9 


904 Ra 


905 n) 
906 19 


907 gA6 
908 hk 
909 £A3 
910 bN 
911 FN 
912 CT6 
913 6V3 
914 ax 
915 xt 
916 78 
917 nIO } 


int J; 
locate(10,1); 
ConPutStr(WMsg, "\x9b0;33;40mRead-error\x9bm at cylinder 
= 
sprintf(string,”%d, head = 8d error = %d”,track,head,err 
number) ; 
ConPutStr(WMsg, string); 
if ((j=ConMayGetChar(consoleReadPort,RMsg, kreadstring))= 
=27) [ 
MotorOff(flag[6]); 
return(FAILED); 
) 
erase=diskpuffer[i]; 
for (j=0;j <BLOCKSIZE; j++) 
*erase++ = '\0'; 
locate(10,60); 
sprintf (string, "Read-errors: %d”,++error); 
ConPutStr(WMsg,string) ; 
return(OK); 


918 Za DiskRemoved() 


919 ıE | 
920 N73 
921 20 


922 vP 
923 iT 


locate(6,24); 

ConPutStr(WMsg, "Source is \x960;33;40mremoved\x9bm. Try 
it again !”); 

Motoroff(flag[6]); 

if(WaitForDisk(flag[6], ””)==FAILED) 
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return(FAILED); 
locate(6,24); 
ConPutStr(WNsg, ” 
MotorOn(flag[6]); 
return(YES) 3 


 struct Window *window; 


int error; 
writerequest->1o_Data = (APTR) window; 
writerequest->io_Length = sizeof(*window) ; 
error = OpenDevice(”console.device”, OL, writerequest, 0 
1); r 
readrequest->io_Device = writerequest->io_Device; 
readrequest->io_Unit = writerequest->io_Unitz 
/% clone required parts of the request */ 

2 return(error); 

0 


/* Output a single character to a specified conso- 


945 e8 ConPutChar(request,character) 


struct IOStdReq *request; 
char character; 


request->io_Command = CMD_WRITE; 
request->io_Data = (APTR)&character; 
request->io_Length = 1L; 
DoIO(request); 

return(YES); 


) ConPutStr(request,string) 
| struct IOStdReq *request; 
"char *string; 
[ 
request->io_Command = CMD_WRITE; 
request->io_Data = (APTR)string; 
request->io_Length = -1L; /* tells console to end when 
it 
* sees a terminating zero on 
* the string. */ 
DoIO(request); 
return(YES) ; 


[) QueueRead(request,whereto) 
struet 10StdReq *request; 
" char *whereto; 


request->io_Command = CMD_READ; 
request->io_Data = (APTR)whereto; 
request->io_Length = 1L; 
SendIO(request); 

return(YES); 


ConMayGetChar(consolePort,request,whereto) 
struct Port *consolePort; 

struct I0StdReq *request; 

" char *whereto; 


register temp; 

if ( GetMsg(consolePort) == NULL ) return(-1); 
temp = *whereto; 

QueueRead(request,whereto); 

return(temp); 


ConGetChar(consolePort,request,whereto) 
" struct I0StdReq *request; 

struct MsgPort *consolePort; 

char *whereto; 





register UBYTE temp; 
while((GetMsg(consolePort) == NULL)) WaitPort(consolePor 
Y; 
temp = *whereto; /* get the character */ 
QueueRead(request,whereto); 
return(temp); 

J 

Cursoron() 


[ 
ConPutStr(WMsg, "\x9b\x20\x70”); 


Cursoroff() 


[ 





dos_packet(port,type,argl,arg2,arg3,arg4,arg5,arg6,arg7) 
struet MsgPort *port; 
long type, argl, arg2, arg3, arg4, arg5, arg6, arg7; 


register struct StandardPacket *sp; 
register struet MsgPort *rp; 
char *22; 
long ret; 
if ((rp = CreatePort(OL, OL)) == 0) 
return(FAILED); 
if ((sp = (struct StandardPacket *) 
AllocMem( (long)sizeof(*sp), MEMF_PUBLIC] MEMF_C 
LEAR)) == 0) [ 
DeletePort(rp) 
return(FAILED); 





22="BBBBB”; 
sp->sp_Msg.mn_Node.In_ Name = (char *)&sp->sp_Pkt; 
sp->sp_Pkt.dp_Link = &sp->sp_Msg; 
sp->sp_Pkt.dp_Port = rp; 
sp->sp_Pkt.dp_Type = type; 
sp->sp_Pkt.dp_Argi = argl; 
sp->sp_Pkt.dp_Arg2 = arg2; 
sp->sp_Pkt.dp_Arg3 = arg3; 
sp->sp_Pkt.dp_Arg4 = arg4; 
sp->sp_Pkt.dp_Arg5 = argd; 
sp->sp_Pkt.dp_Arg6 = arg6; 
sp->sp_Pkt.dp_Arg7 = arg7; 
if (argl == TRUE) [ 
locate(6,20); 
ConPutStr(WMsg, ”DOS is confused. Please reset your Am 
iga.”); 
) 
PutMsg(port, &sp->sp_Msg) ; 
locate(6,20); 
ConPutStr(WMsg, ” 
5 
WaitPort(rp); 
Getlsg(rp); 
ret = sp->sp_Pkt.dp_Resi; 
FreeMem(sp, (long)sizeof(*sp)); 
DeletePort(rp); 
return(ret); 


WriteFastTwoHeads(l,drive) 
int 1,drive; 


int head; 
int J,k; 
int verify=0; /* reset amount of verify-err 
ors % 
for (k=0 ; k<fastavail-1 ; 1++) [ 
if (1>flag[4]) 
return(1); 
if((j=ConMayGetChar(consoleReadPort ,RMsg, &readstring) 
)==27) [ 
Motoroff(drive); 
return(FAILED); 
} 
locate(6,30); 
sprintf(string, Writing cylinder %d ",1); 
ConPutStr(WMsg, string); 
for (head=0 ; head<2 ; head++) | 
erase=fastdiskpuffer[k++] ; puffmerk=diskpuffer[0] 


5 





** #asm 
movem.1 d0/a0-al,-(sp) 
move.w  **3#21407,d0 
move.1l _erase,a0 
move.1l _puffmerk,al 
laber3 move.1 (a0)+,(al)+ 
dbra dO,laber3 
movem.1 (sp)+,d0/a0-al 
** #endasm 
writingl: 
if(WriteöylSee(drive,l,head,0)==FAILED) 
return(FAILED); 
if (flag[O y)l /% verify ON *%/ 
ReadCylSec(drive,1,head,0); 
if (diskreg[drive]->iotd_Req.io_Error) 
if (diskreg[drive]->iotd_Req.io_Error==29) 
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1136 yD6 if (1>flag[4]) 









































1083 wel locate(6,22); 1137 829 return(1); 
1084 x5 ConPutStr(WMsg, "Destination is \x960;33;4 1138 b06 if((j=ConMayGetChar(consoleReadPort,RMsg, kreadstring) 
Om” )==27) { 
1085 AkX *removed\x9bm. Try it agai 1139 309 MotorOff(drive); 
n!"); 1140 RU return(FAILED); 
1086 c91 Motoroff (drive); 1141 Pu6 } 
1087 B3 if(WaitForDisk(drive, ””)==FAILED) 1142 37 erase=fastdiskpuffer[k++] ; puffmerk=diskpuffer[0]; 
1088 beL return(FAILED); 1143 FvO ** #asm j 
1089 8tI locate(6,25); 1144 E86 moven.1  dO/a0-al,-(sp) 
1090 om ConPutStr(WMsg,” 1145 s0° move.w  **#1407,d0 
0 1146 8H move.1 _erase,a0 
1091 8V MotorOn(drive); 1147 y7 move.1 _puffmerk,al 
1092 4m goto writingl; 1148 JMO laber4 move.1l (a0)+,(al)+ 
1093 d8F } 1149 9WA dbra d0,1laber4 
1094 mY else [ /% verify-error detected */ 1150 hm6 movem.1  (sp)+,d0/a0-al 
1095 2L1 if (verify < flag[1]) [ 1151 D70 ** #endasn 
1096 kAL if((VerifyError(l,head,drive))==FAILED » 1152 Br writing3: 
) 1153 066 if(WritecylSec(drive,1,flag[5],0)==FAILED) 
1097 kno return(FAILED); 1154 219 return(FAILED) ; 
1098 XKL else 1155 636 if (flag[0]=='y') [ /* verify */ 
1099 BtO goto writingl; 1156 w69 ReadCylSec(drive,1,flag[5],0); 
1100 FI } 1157 q8 if (diskreg[drive]-> iotd_Req.io_Error) 
1101 Wm else [ 1158 040 if (diskreq[drive]->iotd_Req.io_Error==29) [ 
1102 SnL anzdest[drive]--; 1159 AsF locate(6,22); 
1103 00 return(NO); 1160 BJ ConPutStr(WMsg, "Destination is \x9b0;33540m” 
1104 0J1 } 1161 Oyu "removed\x9bm. Try it again ! 
1105 pKF ] 7 
1106 q19 ) 1162 QNF MotorOff (drive); 
1107 rm6 ) 1163 PH if(WaitForDisk(drive, ””)==FAILED) 
108833 |] 1164 psI return(FAILED); 
1109 E7 return(1); 1165 M7F locate (6,25); 
1110 uPo } 1166 20 ConPutStr(WNsg, ” 
1111 VL VerifyError(l,head,drive) "N; 
4112 hV int 1,head,drive; 1167 MJ MotorOn(drive); 
a3 tm | ; 1168 QA goto writing3; 
‚1114 103 int J; 1169 rMC } 
1115 ny locate (6,21); 1170 dt else | 
1116 35 ConPutStr(WNsg, "\x9b0;33;40n” 1171 G2F if (verify < flagl1)) [ 
1117 7HI "verify Error\x9bm at cylinder ”); 1172 M5T if((VerifyError(1,flag[5],drive))==FAILED 
1118 163 sprintf(string,”%d, Head %a !!1”,1,head); # ) 
1119 FB ConPutStr(WMsg, string); 1173 yiL return(FAILED) ; 
1120 840 /* Abort if ESC is pressed */ 1174 ıY1 else 
1121 013 if ((j=ConMayGetChar(consoleReadPort,RMsg, kreadstring))= 1175 XHK goto writing3; 
‘ =27) { 1176 yIr } 
1122 mj6 MotorOff(drive); 1177 x0 else | 
1123 AD return(FAILED); 1178 g0I anzdest[drive]--; 
1124 843 } 1179 cE return(NO); 
1125 Re FullSeek(2,drive); /* move head one time */ 1180 2XF } 
1126 „9 locate (6,21); 1181 3XC } 
1127 kR ConPutStr(WMsg, ” 1182 426 ) 
); 1183 xy , 144; 
1128 X6 return(0K); 1184 03 | 
1129 DiO } 1185 SL return(1); 
1130 ft WriteFastOneHead(1,drive) 1186 8d0 } 
4131 rX int 1,drive; (c) 1987 M&T 
1132 08 | 
1133 kb3 int J,k; 
1134 nB int verify=0; 





1135 WB) for (k=0 ; k<fastavail ;) [ Listing 1. (Schluß) 
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Die besten 


Tage des 
Jahres 


ie sogenannten Biorhythmen sind Sinuskurven, die am 

Tage der Geburt eines Menschen beim Nullpunkt starten. 

Die klassische Theorie des Biorhythmus kennt Kurven für 
den geistigen, physischen (körperlichen) und seelischen Zu- 
stand. Die Kurven besitzen verschiedene Zyklen, laufen also sehr 
bald nach der Geburt auseinander. Kritische Tage sind die Um- 
kehrpunkte der Kurven sowie der Durchgang durch die Mittellinie 
der y-Achse. Nach dem Starten des Programmes Bio (Listing 1) 
erscheint das Hauptmenü mit den sieben Menüpunkten und den 
Daten des letzten Programmlaufs. Als erstes sollte man das ak- 
tuelle Datum eingeben, da die folgenden Angaben dieses Datum 
benutzen. Als nächstes ist ein Geburtsdatum einzugeben, das 
zur Berechnung der verschiedenen Kurven benötigt wird. Das 
Programm gibt aus, an welchem Wochentag man geboren wurde 
und wieviel Tage man alt ist. Danach wird gefragt, ob man in die 
Datei mit den Geburtsdaten aufgenommen werden will. Stehen 
die Daten schon in dieser Datei, kann man sie bei späteren Pro- 
grammläufen mit dem zweiten Menüpunkt wieder laden und er- 
spart sich die Mühe der erneuten Eingabe. 

Hat man all diese Eingaben erledigt, kann man sich die Bio- 
rhythmuskurve ansehen. Außer den Kurven für Körper, Seele und 
Geist wird auch die Gesamtkurve gezeichnet (Bild 1). Zusätzlich 
werden die Werte für das aktuelle Datum noch zahlenmäßig dar- 
gestellt. Nach einem Druck auf eine beliebige Taste gelangt man 
wieder ins Hauptmenü. Nachdem man den fünften Menüpunkt 
ausgewählt hat, wird die Gesamtkurve für das laufende Jahr ge- 











Programmname: Bio V1.1 
Computer: Amiga 500, Amiga 1000, Amiga 2000 
mit Kickstart 1.2 
Amiga-Basic 





Sprache: 





SUB Init (n$,t,m,j,tg,mg,jg,a,Anz,Tage(),Monat$(),‚TagNa 
me$()) STATIC 
SHARED Datum$(),Namen$() 
SCREEN 2,640,200,4,2 
WINDOW 2,"BI0”,(0,0)-(631,186),0.2: WINDOW OUTPUT 2 
FOR i=0 10 9: READ r,g,b: PALETTE i,r,g,b: NEXT i 
DATA 1,.87,.73,0,0,0,.3,.5,.9,.9,.5,.57,.9,.08,.83, 
‚23, .77,0 
DATA .37,.77,.9,.9,.9,.07,1,1,1,.7,.7,.7 
DEFINT x: DIM x(256) 
FOR i=0 TO 127: x(1)=-128: NEXT i 
FOR 1=128 TO 255: x(1)=127: NEXT 1: WAVE O,x: ERASE 
it 
FOR i=1 70 12: READ Tage (i),Monat$ (1): NEXT i 
DATA 31, “Januar ”,29, "Februar”,31, "Maerz”,30, "April" 
DATA 31, "Mai”,30, "Juni”,31,"Juli”,31, "August” 
DATA 30, "September ”,31, "Oktober ”,30, "Novenber”,31,” 
Dezenber” 
FOR i=1 TO 8: READ TagName$ (1): NEXT i 
DATA “Montag”, "Dienstag”, “Mittwoch”, “Donnerstag” 
DATA "Freitag", "Samstag”, “Sonntag”, "Montag” 
OPEN ":Namen.dat” FOR INPUT AS #2 
INPUT #2,Anz 
FOR i=1 TO Anz 
INPUT #2,Namen$ (i),Datum$ (1) 

NEXT i: CLOSE #2 
n$="Herbert”: t=28: m=4: j=1987: tg=8: mg-7: jg=196 
% 
CALL Alter (tg,mg,jg,t,m,j,a) 











Der Amiga sagt Ihnen an 
welchen Tagen Sie Bäume ausreißen 
können. 

Die gute grafische Darstellung und 
einige Besonderheiten machen dieses 
Biorhythmus-Programm für jeden 
interessant. 





zeichnet. Mit dem Menüpunkt »Extremwerte berechnen« kann 
man die Tage des laufenden Monats anzeigen lassen, an denen 
die Kurven ihr Minimum oder Maximum erreichen. 

(Herbert Schwabli/rs) 





34 bl CALL Daten (n$,tg,mg,Jg,t,m,J,a) 
35 bd4 END SUB 
36 36 SUB Menue STATIC 
37 198 CALL Clr: PRINT "MENU”: LINE (233,6)-(398,17),2,b 
38 pH LOCATE 2,31: PRINT "BIORYTHMUS” 
39 ıF LOCATE 5,10: PRINT ”1) Geburtsdatum eingeben” 
40. H£ LOCATE 7,10: PRINT ”2) Geburtsdatum aus Datei uebe 
nehmen” 
41 Ra LOCATE 9,10: PRINT ”3) Heutiges Datum eingeben” 
42 xx LOCATE 11,10: PRINT ”4) Biorythmus berechnen” 
43 EA LOCATE 13,10: PRINT *5) Jahreskurve berechnen” 
44 Im LOCATE 15,10: PRINT ”6) Extremwerte berechnen” 
45 ko LOCATE 18,10: PRINT "7) Programm beenden” 
46 mo4 END SUB 
AT XS SUB Eingabe (n$,tg,mg,jg,a,Anz,Namen$(),Datum$()) STATI 
c 
48 105 SHARED t,m,j,Anzahl,Tage(),Monat$() ‚TagName$() 
49 v68 CALL Clr: PRINT "EINGABE” 
50 zh LOCATE 3,3: PRINT ”Geben Sie bitte Ihren Namen ein: 
51 FY LOCATE 5,6: nn$=n$: INPUT n$: SOUND 1000,1 
52 xk IF n$="" THEN n$=nn$: EXIT SUB 
53 8b n$=LEFT$ (n$,11): LOCATE 8,3 
54 Ge PRINT "Geben Sie bitte Ihr Geburtsdatum im Format ' 
TT-MM-JJJI' ein:” 
55 Km Korrekt=0 
56 Tu WHILE (NOT Korrekt) 
57 9BB LOCATE 10,6: PRINT ” 
"58 5K LOCATE 10,6: INPUT d$: SOUND 1000,1 
59 FI PRINT: PRINT ” “ 
‚60 WD PRINT ” R 
61.06 CALL Kontrolle (d$,tg,ng,jg,Korrekt) 
62 RF& WEND 
3m CALL Alter (tg,mg,jg,t,m,j,a) 
64 bF CALL Tag (tg,mg,jg,TagName$()) 
65 HL CALL Sternzeichen (tg,mg,jg,s$) 
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A NWENDUNGEN 




















66 pJ CALL Cir: PRINT: PRINT " Hallo ";n$;” I” 138 vb CLS: CALL Daten (n$,tg,mg,jg,t,m,J,a) 
67 vv PRINT: PRINT ” Du bist am ";TagName$ (0);”, den 139 HJ4 END SUB 
"; 140 fo SUB EingabeDatum (t,m,j,a) STATIC 
68 BN PRINT tg;”.";Monat$ (mg);”.";jg;” geboren,” 141 sJ5 SHARED n$,tg,mg, Jg, Tage() ‚Monat$() ‚TagName$() 
69 xx PRINT ” und bist am ”;t”.";Monat$(m);”.";j;" "; 142 OR8 CALL CAr: PRINT EINGABE”: LOCATE 3,3 
a;"Tage alt I” 143 g0 PRINT ”Geben Sie bitte das heutige Datum im Format 
70 5) PRINT: PRINT * Dein Sternzeichen ist: ";s$ "TT-M-JJIJ' ein:” 
71 TC IF Anz<Anzahl THEN 144 In Korrekt=0: dd$=d$ 
72 MgB PRINT: 1$="" 145 jL WHILE (NOT Korrekt) 
73 BL PRINT ” Willst Du in die Datei aufgenommen werd 146 whB LOCATE 5,6: PRINT ” 
en ? (J/N)” „ 
74 wF WHILE (1$< > "n") 147 xp LOCATE 5,6: INPUT d$:SOUND 1000,1 
75 ZFE i$=INKEY$ 148 02 IF d$="" THEN dd$=d$: EXIT SUB 
76 UY IF 1$<>"" AND i$<>"j" AND i$< > "n" THEN 149 vY PRINT: PRINT ” 
BEEP ” 
77 3u IF i$="n" THEN SOUND 1000,1 150 xa CALL Kontrolle (d$,t,m,j,Korrekt) 
78 N7 IF i$="j" THEN 151 sg8 WEND 
79 piH SOUND 500,1: Anz=Anz+1: i$="n" 152 vE CALL Alter (tg,mg,jg,t,m,J,a) 
80 Ig Namen$ (Anz)=n$: Datum$ (Anz)=d$ 153 Q2 CALL Tag (t,m,j,TagName$()): CALL Cir 
81 Iy CALL SpeicherDatei (Anz,Namen$()‚Datum$()) 154 ot PRINT: PRINT ” Heute ist also ";TagName$ (0);”, 
82 C9E END IF der "; 
83 maB WEND 155 4B PRINT t;”.”;Monat$ (m);”.";j;" .” 
84 1B8 END IF 156 MD PRINT ” ";n$;” ist heute genau ”;a;” Tage alt I” 
85 SU IF Anz>=Anzahl THEN CALL Taste 157 a7 CALL Taste: CALL Daten (n$,tg,mg,jg,t,m,J,a) 
86 Rb CALL Daten (n$,tg,ng,Jg,t,m,J,a) 
87 RI4 END SUB 158 ach END SUB 
88 Pa SUB Datei (n$,tg,mg,jg,a,Anz,Namen$(),Datum$()) STATIC 159 02 SUB Biorythmus (tg,mg,jg,t,m,j) STATIC 
89 055 SHARED t,m,j,Anzahl,Tage() ‚Monat$() ‚TagName$() 160 506 SHARED Tage() 
90 Di6 CLS: PRINT "DATEI: ”;Anz; "Eintraege Noch frei:” 161 3x8 CALL BioGrafik (t,m,J) 
;Anzahl-Anz 162 AQ CALL Alter (tg,mg,jg,1!,m,j,a) 
91 gF LINE (240,13)-(405,25),2,b 163° hB pi=3.14151265# 
92 83 LOCATE 3,32: PRIND NAMENLISTE” 164 Gu PP=60%SIN ((a-23*INT (a/23))/23*2*pi) 
93 qi PRINT: PRINT TAB (68); "Alter am” 165 sP ee=60XSIN ((a-28*INT (a/28))/28*2*pi) 
1 PRINT ” Name Geburtsdatum 166 v1 BE=60XSIN ((a-33#INT (a/33))/33%2%pi) 
" 167 Rn ss=INT ((pptee+gg)/3) 
95 7K PRINT “Sternzeichen ”5STR$ (t);”.";STR$ (m);”.";ST 168 0X FOR i=1 TO Tage (m)-1 
RS ()) 169 eTB p=60XSIN ((ari-23*INT ((a+1)/23))/23*2*pi) 
96 FX PRINT: 170 sı e=60%SIN ((a+i-28%INT ((a+1)/28))/28%2%p1) 
97 KO FOR i=1 TO Anz 171 cB, 8=60XSIN ((a+1-33XINT ((a+1)/33))/33*2*pi) 
98 009 IF INKEY$< >" THEN SOUND 1000,1: s=NOT s 172 Ez s=INT ((pte+g)/3) 
99 Ab IF s THEN 173 BL IF a+1>0O THEN 
100 S7C CALL Nummer (LEFT$ (Datum$ (1),2),tt,Korrekt) 174 g0E LINE (20+1*13,80-pp)-(33+1*13,80-p) ‚3 
101 2n CALL Nummer (MID$ (Datum$ (1),4,2) ‚mm,Korrekt) 175 yk LINE (20+1%13,80-gg)-(33+1%13,80-g) ‚6 
102 Gy CALL Nummer (RIGHT$ (Datun$ (1),4),jj,Korrekt) 176 9 LINE (20+4%13,80-ee)-(33+1*13,80-e),5 
103 mB CALL Alter (tt,mm,JJ,t,n,J,a) 177 TK LINE (20+1*13,80-85)-(33+1%13,80-s) ‚1 
104 xN CALL Sternzeichen (tt,mm,jJ,s$) 178 9F / Pp=p: ee=e: gg=g: ss=s 
105 119 ELSE 179 UDB ELSE 
106 JPG s$="": a=0 180 oKE Pp=0: gg=0: ee=0: ss=0 
107 29 END IF 181 rkB END IF 
108 2A PRINT " % 182 Nas NEXTE 
109 3B PRINT ” % 183 RJ CALL/ALter (tg,mg,Jg,t,m,J,a) 
110 xu LOCATE CSRLIN,1: PRINT USING "_ ##_:";1; 184 it ‚ P=SIN: ((a-23*INT (a/23))/23*2*pi) 
111 Iq PRINT TAB (7);Namen$ (1);TAB (35);Datun$ (1); 185 6L e=SIN ((a-28%INT (a/28))/28%2%pi) 
112 No IF s THEN 186 Ya 8=SIN ((a-33*INT (a/33))/33*2%pi) 
113 250 PRINT TAB (50);5$;TAB (68) ;USING "AHr#eer 187 Gh = (pte+g)/3 
"a 188 NG LOCATE 6,71: PRINT USING +#.##";p 
114 RA9 ELSE 189 hS LOCATE 9,71: PRINT USING "+#.## "je 
115 Dge PRINT 190 Ou LOCATE 12,71: PRINT USING +#.##";g 
116 oh9 END IF 191 th LOGATE 16,71: PRINT USING +#.##";s 
117 Ag IF 4 MOD 10=0 AND i<>Anz THEN 192 qU CALL Taste 
118 8yC PRINT : PRINT 193 9B4 END SUB 
119 Gm PRINT ” =. A)uswahl N)aechste Seite - 194 06 SUB Extreme (n$,tg,mg,Jg,t,m,j) STATIC 
"; 195 NP8 CALL ExtremGrafik (n$,n,j) 
120 vo Eingabe}: 196 iy CALL Alter (tg,mg,Jg,1!,m,j,a) 
121 Jar A$=INKEY$ 197 pF CALL Kritisch (4!1,23!,a) 
122 mo IF 1$<>"" AND 1$< > "a" AND i$< > "n" THEN 198 nQ CALL Kritisch (10!,28!,a) 
BEEP 199 be CALL Kritisch (16!,33!,a) 
123 8e IF i$="@” THEN SOUND 500,1: GOTO Auswahl 200 Yb CALL Taste: CLS 
124 scC IF 1$<>"n" THEN Eingabe3 201 IS CALL Daten (n$,tg,ng,Jg,t,n,j,a) 
125 LF SOUND 1000,1: LINE (8,50)-(600,180),0,bf: LOCAT 202 IK4 END SUB 
x E 8,1 203 EE SUB Jahreskurve (tg,mg,jg,j,m) STATIC 
126 yr9 END IF 204 Cc8 CALL JahresGrafik (j,m) 
127 Uk6 NEXT i 205 81 CALL Alter (tg,mg,Jg,1!,1!,j,a) 
128 aq Auswahl: 206 Os pi=3.14151265 # 
129 149 LOCATE 22,4 207 xb Pp=60*SIN ((a-23*INT (a/23))/23*2*pi) 
130 gh PRINT "Bitte Nummer der gewuenschten Person einge 208 26 ee=60*SIN ((a-28*INT (a/28))/28%2*pi) 
ben: "; 209 Yi 8g=60*SIN ((a-33*INT (8/33))/33*2*pi) 
131 kE INPUT n: SOUND 1000,1: n=INT (n) 210 8U ss=INT ((pp+ee+gg)/3) 
132 Yx IF n<1 OR n>Anz THEN n=1 211 jk FOR i=1 TO 365 
133 FF n$=LEFT$ (Namen$ (n),12) 212 - P=60%SIN ((a+i-23*INT ((a+1)/23))/23%2*pi) 
134 zu CALL Nummer (LEFT$ (Datum$ (n),2),tg,Korrekt) . & 5 
135 9M CALL Nummer (MID$ (Datum$ (n),4,2)‚ng,Korrekt) Listing 1. »Bio« zeigt Ihnen die Tage an, an denen Sie, 
136 9U CALL Nummer (RIGHT$ (Datun$ (n),4),jg,Korrekt) Bäume ausreißen könnten. Bitte mit dem Checksummer 
137 ha CALL Alter (tg,mg,jg,t,m,J,a) (Seite 159) eingeben. 
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e=60*SIN ((a+i-28*INT ((a+1)/28))/28*2*pi) 
8=60XSIN ((a+1-33*INT ((a+1)/33))/33*2*pi) 
s=INT ((pte+g)/3) 
IF a+1>0 THEN 
LINE (70+1*479/365,80-ss)-(70+(1+1)*479/365,8 
0-s),1 
s5=5 
ELSE 
ss=0 
END IF 
NEXT i 
CALL Taste 


END SUB 
SUB Kritisch (1,n,a) STATIC 


SHARED m, j,Tage() 
pi=3.14159265#: p=l: k=l 
FOR i=0 TO Tage (m)-1 
« 5=8IN ((ati-nKINT ((a+1)/n) /nx2rpif 
IF a+1>=0 THEN 
IF 5>.98 AND ss<.98 THEN 
LOCATE 1,10: 1=1+1 
PRINT USING "##_.##_. rem) 
END IF 
IF 8<-.98 AND ss>-.98 THEN 
LOCATE p,62: p=p+1 
PRINT USING "Ar_.##_. A #eelm) 
END IF 
IF ABS (s)<.15 AND ABS (ss)>.15 THEN 
LOCATE K,36: k=k+l 
PRINT USING "##_.##_. HR) 
END IF 
END IF 
S8=8 
NEXT A 


END SUB 


SUB ExtremGrafik (n$,m,j) STATIC 
SHARED Monat$() 
LINE (0,0)-(600,165) ,0,bf 
LOCATE 1,1: PRINT "EXTREMWERTE im ";Monat$ (m);J 
LINE (13,10)-(616,161) ,1,b 
LINE (213,11)-(213,160),9 
LINE (426,11)-(426,160) ,9 
LOCATE 20,10: PRINT "Aktive Tage” 
LOCATE 20,33: PRINT "Kritische Tage” 
LOCATE 20,60: PRINT "Passive Tage” 
LINE (16,12)-(613,52),3,b 
LOCATE 3,4: PRINT *Koeperlich” 
LINE (16,60)-(613,100) ,5,b 
LOCATE 9,4: PRINT "Seelisch” 
LINE (16,108)-(613,148) ‚6,b 
LOCATE 15,4: PRINT "Geistig” 


END SUB 
SUB BioGrafik (t,m,j) STATIC 


SHARED Monat$()‚Tage() 

CALL Cir: PRINT "BIORYTHMUS” 
LOCATE 2,24: PRINT Monat$ (m);J 
LOCATE 3,55: PRINT "+1" 
LOCATE 18,55: PRINT ”-1” 
LOCATE 11,3: PRINT "1" 
LOCATE 11,23+Tage (m): PRINT STR$ (Tage (m)) 
IF m=2 AND j MOD 4=0 THEN LOCATE 11,51: PRINT STR$ 
(28);” ” 
xm=Tage (m)*13+20 
FOR 1=33 TO xm STEP 13 

LINE (1,20)-(1,140),9 
NEXT i 
FOR 1=20 T0 140 STEP 6 

LINE (33,1)-(xm,1),9 
NEXT i 
LINE (30,18)-(xm+3,142),1,b 
LINE (33,80)-(xm,80),2 
LINE (20+13*t,20)-(20+13%t,140) ,4 
LINE (458,36)-(610,50),3,b 
LOCATE 6,59: PRINT "Koerperlich” 
LINE (458,60)-(610,74),5,b 
LOCATE 9,59: PRINT "Seelisch” 
LINE (458,84)-(610,98) ,6,b 
LOCATE 12,59: PRINT "Geistig” 
LINE (458,116)-(610,130),1,b 
LOCATE 16,59: PRINT "Gesant” 
SUB 
JahresGrafik (j,m) STATIC 
CALL Clr: PRINT *BIORYTHMUS” 
LOCATE 2,37: PRINT J 





295 ye 
296 5). 
297 ni 
298 gL 
299 IF 
300 Jf 
301 VUB 
302 I28 
303 go 
304 MBB 
305 Mc8 
306 Z1 
307 DU 
308 024 
309 67 
310 v68 
311 fPB 
312 DT 
313 10E 
314 VIB 
315 K88 
316 844 
317 Mu 
318 Hy5 
319 648 
320 F6 
321 4a 
322 s2 
323 9c 
324 12 
325 mnB 
326 Pd 
327 D68 
328 ut 
329 voB 
330 Vi 


331 Vi 
332 188 
333 XL 
334 CNB 
335 Ym 
336 MF& 
337 Qm 
338 uzB 
339 PI8 
340 11 
341 x2B 
342 S18 
343 2b4 
344 6F 
345 WV8 
346 s5 
347 A2B 


348 3VE 
349 mo 

350 ‚aTB 
351 hT 

352 7N8 
353 j14 
354 VI 

355 Av 

356 dN6 
357 Mö4 
358 JP6 
359 Je4 
360 Me 

361 166 
362 RA4 
363 Xw6 
364 oh4 
365 dW8 


366 PM 


LOCATE 3,72: PRINT "+1” 
LOCATE 18,72: PRINT ”-1” 
LOCATE 11,5: PRINT "Jan” 
LOCATE 11,72: PRINT Dez” 
LINE (30+m*40,20)-(70+m*40,140) ,4,bf 
FOR i=70 TO 550 STEP 40 
LINE (1,20)-(1,140),9 
NEXT i 
FOR i=20 TO 140 STEP 6 
LINE (70,1)-(550,1),9 
NEXT i 
LINE (67,18)-(553,142) ,1,b 
LINE (70,80)-(550,80) ‚2 
SUB 
SpeicherDatei (Anz,Namen$(),Datum$()) STATIC 
OPEN ”:Namen.dat” FOR OUTPUT AS #2 
PRINT# 2,Anz 
FOR i=1 TO Anz 
WRITE #2,Namen$ (i),Datum$ (1) 
NEXT i 
CLOSE# 2 
END SUB 
SUB Kontrolle (d$,tt,mm,jj,Korrekt) STATIC 
SHARED Tage() 
LOCATE CSRLIN-1,1: Korrekt=-1 
IF LEN (d$)< >10 THEN Korrekt=0 
CALL Nummer (LEFT$ (d$,2),tt,Korrekt) 
CALL Nummer (MID$ (d$,4,2),mm,Korrekt) 
CALL Nummer (RICHT$ (d$,4),jJ,Korrekt) 
IF NOT Korrekt THEN 
BEEP: PRINT "Fehlerhafte Eingabe !” 
EXIT SUB 
END IF 
IF jJ<O OR J5>3000 THEN 
BEEP: Korrekt=0 
PRINT "Bitte nur Jahreszahlen zwischen 0000 und 
3000 eingeben !” 
EXIT SUB 
END IF 
IF mm<1 OR mm>12 THEN 
BEEP: PRINT “Fehlerhaftes Monat I”: Korrekt=0 
EXIT SUB 
END IF 
IF tt<1 OR tt>Tage (mm) THEN 
BEEP: PRINT *Fehlerhafter Tag ! *: Korrekt=0 
END IF 
IF mm=2 AND jj MOD 4<>0 AND tt>28 THEN 
BEEP: PRINT "Fehlerhafter Tag ! ": Korrekt=0 
END IF 
SUB 
Nummer (i$,n,Korrekt) STATIC 
n=0 
FOR i=1 TO LEN (i$) 
IF MID$ (1$,1,1)> "9" OR MID (i$,1,1)<*0” THEN 


Korrekt=0 
EXIT SUB 
END IF 
n=10Xn+ASC (MID$ (1$,1,1))-48 
NEXT 4 
END SUB 
SUB Alter (tg,mg,Jg,t,m,j,a) STATIC 
IF m<3 THEN 
mi=m+12:j1=j-1 
ELSE 
mien:J1=) 
END IF 
IF mg<3 THEN 
m2=mg+12:j2=jg-1 
ELSE 
m2=mg:j2=Jjg 
END IF 
a=INT (365.25%j1)-INT (51/100)+INT (51/400)+INT (30 
.6001% (m1+1))+t 
b=INT (365.25%j2)-INT (52/100)+INT (32/400)+INT (30 
.6001* (m2+1))+tg 
asa-b 
SUB 
Tag (tt,mm,jJ,TagName$()) STATIC 
CALL Alter (tt,mm,jJ,0!,01,0!,n) 
n=ABS (n): n=n-7XINT (n/7)+2 
TagName$ (0)=TagName$ (n) 
SUB 
Sternzeichen (tt,mn,jj,s$) STATIC 
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€ 
375 cH8 IF mm= 1 AND tt>=21 OR mm= 2 AND tt<=19 THEN s$=" 400 W6 LINE (13,166)-(616,177) ,0,bf 
Wassermann” 401 va LINE (13,166)-(616,177) ,5,b 
376 VG IF mm= 2 AND tt>=20 OR mm= 3 AND tt<=20 THEN s$=" 402 02 LOCATE 22,4: PRINT "Name: ”;n$;TAB (23); "Geburtsdat 
Fische” um: "; 
377 jK IF mm= 3 AND tt>=21 OR mm= 4 AND tt<=20 THEN s$=" 403 ER PRINT tg; ”. "mg; ”.";jg 
Widder” 404 x6 LOCATE 22,54: PRINT "Alter in Tagen: ";a 
378 Ot IF mm= 4 AND tt>=21 OR mm= 5 AND tt<=20 THEN s$=" 405 Zb4 END SUB 
Stier” 406 YRO BEGIN: 
379 nv IF mm= 5 AND tt>=21 OR mm= 6 AND tt<=21 THEN s$=" 407 D34 Anzahl=100 
Zwillinge” 408 ER DIM Tage (12), Monat$ (12), TagName$ (8) 
380 mm IF mm= 6 AND tt>=22 OR mm= 7 AND tt<=22 THEN s$=" 409 uc DIM Namen$ (Anzahl), Datum$ (Anzahl) 
Krebs” 410 sk ON ERROR GOTO Dateiänlegen 
381 IN IF mm= 7 AND tt>=23 OR mm= 8 AliD tt<=23 THEN s$=" 411 70 OPEN "dfO:Namen.dat” FOR INPUT AS #2 
Loewe” 412 dF CLOSE #2: GOTO Weiter 
382 6d IF mm= 8 AND tt>=24 OR mm= 9 AND tt<=23 THEN s$=" 413 sb2 Dateiänlegen: 
Jungfrau” 414 Ind Anz=1: Namen$ (1)="Herbert”: Datum$ (1)="08-07-1967” 
383 FF IF mm= 9 AND tt>=24 OR mm=10 AND tt<=23 THEN s$=" 415 7M CALL SpeicherDatei (Anz,Namen$(),Datum$()) 
Waage 416 2P2 Weiter: CALL Init (n$,t,m,j,tg,mg,jg,a,Anz,Tage(),‚Monat$( 
384 18 IF mm=10 AND tt>=24 OR mm=11 AND tt<=22 THEN s$=" ),TagName$()) 
Skorpion” 417 054 CALL Menue 
385 hl IF mm=11 AND tt>=23 OR mm=12 AND tt<=21 THEN s$=" 418 wM WHILE (1$< > "7") 
Schuetze” 419 xv8 i$=INKEY$: IF i$>="1" AND i$<="6" THEN SOUND 500, 
386 Ir IF mm=12 AND tt>=22 OR mm= 1 AND tt<=20 THEN s$=" & 
Steinbock” 420 ri IF i$="1” THEN CALL Eingabe (n$,tg,mg,jg,a,Anz,Name 
387 HJ4 END SUB n$() ‚Datum$()) 
388 fF SUB Clr STATIC 421 99 IF i$="2" THEN CALL Datei (n$,tg,mg,jg,a,Anz,Namen$ 
389 cM8 LINE (0,0)-(617,145),0,bf: LOCATE 1,1 () ‚Datun$()) 
390 KM4 END SUB 422 DW IF i$="3" THEN CALL EingabeDatum (t,m,j,a) 
391 06 SUB Taste STATIC 423 DY IF 1$="4" THEN CALL Biorythmus (tg,mg,5g,t,m,J) 
392 xk8 WHILE (INKEY$="") 424 rh IF i$="6" THEN CALL Extreme (n$,tg,mg,jg,t,m,J) 
393 na WEND 425 OA IF i$="5" THEN CALL Jahreskurve (tg,mg,jg,J,m) 
394 ns SOUND 1000,1 426 y2 IF 1$>="1" AND i$<="6" THEN CALL Menue 
395 PRA END SUB 427 9Q IF (i$< "1" OR 1$>"7") AND i$< > "" THEN BEEP 
396 09 SUB Daten (n$,tg,mg,jg,t,m,j,a) STATIC 428 194 WEND 
397 Po8 LINE (154,150)-(416,161) ,‚0,bf 429 at WINDOW CLOSE 2: SCREEN CLOSE 2 
398 sc LINE (154,150)-(416,161),3,b 430. gb0, END 
399 Oh LOCATE 20,21: PRINT *Heutiges Datum: ";t;”.";m;”.”; (C) 1987 MET 
J 
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enn urplötzlich Pfer- 
degewieher aus Ih- 
rem Wohnzimmer 


dringt, muß das noch lange 
kein Grund zur Panik sein. Ver- 
mutlich experimentiert nur je- 
mand mit einem Amiga- 
Sounddemo. Das enorme 
Klangvolumen und die klang- 
getreuen Imitationen von Ge- 
räuschen und Instrumenten 
verblüffen immer aufs neue. 
Das Geheimnis des exzel- 
lenten Amiga-Sounds liegt in 
der Tatsache, daß dieser Com- 


Digitizer im 
Selbstbau 

oftware 
inklusive 











puter keine Tongeneratoren 
mit festgelegten Klangcharak- 
teristiken besitzt, sondern je- 
der Ton durch Wiedergabe ei- 
ner frei definierbaren Wellen- 
form entsteht. Damit läßt sich 
jeder denkbare Klang generie- 
ren, es muß nur dessen Wel- 
lenform im Computer gespei- 
chert sein. 

Hier liegt nun das Problem, 
vor dem jeder musikbegeister- 
te Amiga-Fan steht, der einen 
tollen Sound mit dem Compu- 
ter spielen oder ein Geräusch 
aufnehmen will: Wie bringt 
man die Töne in eine für den 
Computer verständliche Form? 

Hier tritt nun unser Sound- 
Digitizer in Aktion, der am Ami- 
ga 1000 (Bild 1, Seite 46) und 
mit einer kleinen Zusatzplatine 
auch an Amiga 500/2000 (Bild 
7, Seite 51) betrieben werden 
kann. Er berechnet aus einem 
analogen Eingangssignal (der 
Tonschwingung) die entspre- 
chenden digitalen Werte und 
schickt diese zum Computer, 
der sie dann weiterverarbeitet. 
Die Anwendungen reichen 
vom Aufzeichen von Musik 
über die Verwendung selbstdi- 
gitalisierter Instrumente und 
Geräusche in Musik- oder 
Spielprogrammen bis hin zum 
Speicheroszillografen. 
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Erleben Sie live die 
Faszination digitali- 
sierter Klänge mit 
unserem Selbstbau- 
Digitizer und »Digi- 
soft plus«, dem di- 
gitalen Soundstu- 
dio zum Abtippen. 
Das Klangwunder 
ist perfekt. 


Doch bevor man sich an sol- 
che Projekte heranwagen 
kann, muß erst einmal der Digi- 
tizer gebastelt werden. Unsere 
Schaltung kommt mit einem 
Minimum an Bauteilen aus, die 
zudem keine Schwierigkeiten 
bei der Beschaffung machen 
sollten. Die Kosten für den Di- 
gitizer liegen bei rund 60 Mark, 
wobei der Wandlerbaustein al- 







Ändere 


leine auf 40 bis 50 Mark 
kommt. Das Schaltbild sehen 


"Sie in Bild 2 (Seite 46). 


Am besten bauen Sie den Di- 
gitizer auf einer Platine auf, wie 
sie Bild 3 (Seite 47) zeigt. Alle 
benötigten Bauteile sind in der 
Tabelle zusammengefaßt. Die 
Anordnung der Bauteile ist in 
Bild 4 (Seite 47) dargestellt. Bit- 
te sockeln Sie unbedingt das 


wertvolle Wandler-IC und 
schützen Sie es dadurch vor 
Überhitzung beim Einlöten. 
Die 25polige Kupplung (für den 
Druckerport des Amiga) löten 
Sie mit der oberen Reihe (13 
Stifte) direkt an die Digitizer- 
Platine, um so eine kompakte 
Einheit mit kurzen Signalwe- 
gen zu schaffen. Die untere 
Reihe (12 Pins) ist bis auf zwei 
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Commodore woon 1081 


Ausnahmen nicht belegt: zum 
einen muß Pin 14 des Steckers 
mit einem blanken Stück Draht 
nach außen zum Ende der brei- 
ten Masseleitung auf der Plati- 
nen-Unterseite geführt werden 
(diese Anschlußstelle ist auf 
der Platine mit einer »14« ge- 
kennzeichnet). Zum anderen 
muß man auch eine Leitung 
vom offenen Ende des Wider- 
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Baum LEITUNG 


tung, die zu dem —5-Volt-An- 
schluß unseres Digitizers führt. 
Ein Tip für Bastler, die einen 
kleinen Amiga-Umbau nicht 
scheuen: Pin 24 des parallelen 
Druckerports ist nicht belegt 
und läßt sich im Amiga mit Pin 
14 der seriellen Schnittstelle 
verbinden, worauf auch am 
Druckerport —5-Volt anliegen. 
Das Kabel und die Kupplung 
für die serielle Schnittstelle 
entfallen sodann, und die ne- 
gative Spannung wird am 
Druckerport-Pin 24 abgegrif- 
fen. Der Amiga 500/2000 stellt 
leider an keinem Port —5 Volt 
zur Verfügung. Mit einem klei- 
nen Trick läßt sich diese Span- 
nung jedoch aus den vorhan- 
denen +5 Volt erzeugen. 








Digitizeranschluß Computeranschluß 
Pin-Nummer Pin-Nummer 
2 - 2 
3 3 
4 4 
5 5 
6 6 
7 - 7 
8 8 
9 9 
11 1 
13 13 
14 18 
23 14 








A\ddataddddd 


standes Ri zu Pin 23 des 
Steckers ziehen. 

Am Druckerport des Amiga 
stehen alle Leitungen bereit, 
die unser Digitizer zum Betrieb 
benötigt; bis auf eine —5- Volt- 
Leitung. Beim Amiga 1000 liegt 
diese Spannung an der seriel- 
len Schnittstelle. Wir löten da- 
heran einen 25poligen Stecker 
für den seriellen Port eine Lei- 


Tabelle 1. Anschlüsse für das Adapter- 
kabel zum Betrieb mit Amiga 500/2000 


Der ICL 7660 erzeugt aus ei- 
ner anliegenden positiven 
Spannung eine gleichwertige 
negative. Seine Anschlußbele- 
gung finden Sie in Bild 5 (Seite 
49). Er besitzt acht Anschlüs- 
se, von denen nur fünfbeschal- 
tet sind. Die an Pin 8 zugeführ- 
te positive Spannung stellt der 
Baustein als negative Span- 
nung an Pin 5 zur Verfügung. 


Der 10,uF-Kondensator zwi- 
schen Pin 2 und 4 dient zur 
Umladung des internen Oszil- 
lators. An Anschluß 3 liegt die 
Masse des Computers. Deram 
Ausgang (Pin 5) befindliche 
104F-Kondensator dient als 
Block- und Siebkondensator. 
Es ist allerdings noch zu er- 
wähnen, daß die positive 
Spannung direkt von Pin 23 
des 25poligen Steckers am Di- 
gitizer zur Zusatzplatine führt. 
Bild 6 (Seite 50) zeigt Ihnen 
den kompletten Stromlaufplan 
und wie Sie die Schaltung an 
die Grundschaltung anbinden. 
Die Schaltung wird am besten 
auf einer kleinen Lochraster- 
platine aufgebaut. 

Da Amiga 500/2000 am 
Druckerport eine andere Bele- 
gung aufweisen, als der Amiga 
1000, benötigen Sie noch ein 
Adapterkabel mit zwei männli- 
chen, 25poligen Sub-D- 
Steckern auf jeder Seite, das 
Sie nach den Angaben in der 
Tabelle 1 anfertigen. Alle nicht 
aufgeführten Anschlüsse blei- 
ben unverbunden. Geschickte 
Hardware-Bastler können die 
Pinänderungen natürlich auch 
gleich auf der Grundplatine 
vornehmen. Die fertig umge- 
baute Schaltung sehen Sie in 
Bild 7 (Seite 51). 

Nun fehlt nur noch die Ver- 
bindung des Digitizers mit der 
Tonquelle. Ein einadriges, ab- 
geschirmtes Kabel wird mit der 
Abschirmung an Masse, mit 
der Signalleitung an den Ton- 
eingang des Digitizers (siehe 
Bild 4) gelötet. Am anderen En- 
de des Kabels sollte sich ein 
Stecker für den Kopfhörer-Aus- 
gang ihrer Stereoanlage oder 
einer anderen Tonquelle befin- 
den. Der äußere Teil eines Klin- 
kensteckers für die 
Kopfhörer-Buchse 

ist mit Masse, 
der Innere mit 
der Signal- 
leitung zu 
verbinden, 
wobei auf 
eventuelle 
Kurzschlüsse zu achten ist. 

Bevor wir uns an einen er- 
sten Test wagen, hier für inter- 
essierte Tüftler noch einige 
technische Daten. Der 7574 ist 
ein 8-Bit-Analog-Digital-Wand- 
ler mit einer minimalen Wand- 
lungszeit von 15 Mikrosekun- 
den. R4 und C5 bestimmen die 
Wandlungszeit und können bei 
Timingproblemen vergrößert 
werden. Die Chip-Select-Lei- 
tung ist fest auf Masse gelegt, 
was bedeutet, daß die Read/ 
Write-Leitung allene den 
Wandlungsvorgang starten 
kann. Geht Read/Write nach 
0 Volt, so startet die Umset- 
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zung und Busy wechselt eben- 
falls nach O Volt. Liegt der 
digitalisierte Wert an den Da- 
tenregistern an, so schnellt 
Busy auf 5 Volt und die 8-Bit- 
Daten können ausgelesen wer- 
den. 

Jetzt wird’s ernst: Computer 
ausschalten, Digitizer in den 
Centronics-Druckerport stek- 
ken (die Bauteile müssen nach 
oben zeigen) und den Stecker 
für die Spannungsversorgung 
zum seriellen Port führen. Star- 
ten Sie nun den Amiga wie ge- 
wohnt. 

Listing 1 (Seite 48) zeigt den 
Assembler-Quellcode eines 
einfachen Testprogramms im 
Format des Seka-Assemblers. 
Besitzer dieses Assemblers 
müssen nur das Listing einge- 
ben, assemblieren und rufen 


Bild 2. Der Schaltplan 
des Amiga-Digitizers 


c3 


Ton- 
Eingang 
(5 V,, max.) ! du 


Signal 


Stecker in einen passenden 
Ausgang an der Anlage ein- 
stecken. Am besten eignet sich 
für Digitalisierungen der 
Kopfhörer-AnschluB am Ver- 
stärker oder Receiver. Die 
Klangfarbe und die optimale 
Lautstärke für den Digitizer 
sind dort am leichtesten einzu- 
stellen. Doch halt! Drehen Sie 
bitte zunächst den Lautstärke- 
regler auf Null. Der Digitizer 
muß an die Anlage ange- 
schlossen sein, darf aber noch 
keinen Ton empfangen. 

Durch gefühlvolles Einstel- 
len des Potentiometers P1 auf 
der Digitizer-Platine müssen 
Sie jetzt eine Stelle suchen, an 
der der zunächst dunkelblaue 
Bildschirm schwarz wird und 
nicht flackert. Haben Sie die 
optimale Einstellung gefun- 








Bild 1. Der fertig aufgebaute Digitizer in der Version für 


Amiga 1000 


+5 Volt 


Paralleler 
Port 


Serieller 
Port 





0 o00000000000o0 
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es anschließend mit »g start« 
auf. Es sollten dabei rund 80 
KByte Arbeitsspeicher reser- 
viert sein (Workspace auf 80 
setzen). Sind Sie nicht im Be- 
sitz eines Assemblers, so fin- 
den Sie auf der Programmser- 
vice-Diskette zu diesem Son- 
derheft auch das ablauffähige 
Programm. 

Bei dem Maschinenpro- 
gramm handelt es sich um ein 
Testprogramm zur Überprü- 
fung der einwandfreien Funk- 
tionstüchtigkeit des Amiga- 
Digitizers und zur Abstimmung 
der Schaltung. Zu diesem 
Zweck starten Sie zunächst 
das Programm und verbinden 
den Digitizer mit der Stereoan- 
lage, indem Sie den Kopfhörer- 
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den, so kann der Verstärker 
aufgedreht werden! Während 
die Musik läuft, sind auf dem 
Bildschirm schwarze und 
blaue Linien zu sehen, die der 
Musik entsprechend flackern. 
Sind gelegentlich rote Striche 
zu sehen, so ist der Digitizer 
optimal ausgesteuert. Leiser 
stellen heißt es, wenn viele rote 
Streifen erscheinen. 
Experimentieren Sie nun 
ausgiebig mit Lautstärke, Baß- 
und Höhenreglern des Verstär- 
kers. So bekommen Sie bald 
ein Gefühl dafür, wie man ei- 
nen optimalen Klang aus dem 
Digitizer zaubert. Ein langan- 
haltender Druck auf die linke 
Maustaste beendet das Pro- 
gramm. Unser Testprogramm 


ist allerdings noch nicht auf op- 
timale Tonqualität ausgelegt. 
Außerdem bietet es keinerlei 
Editiermöglichkeiten für die di- 
gitalisierten Klänge. 


Das digitale 
Soundstudio 


Hier greift nun die Software 
für unseren Digitizer ein: ein 
paarmal die Maustaste ge- 
drückt, und schon ist jeder 
Klang in Bits und Bytes ge- 
bannt. Die komfortable Menü- 
steuerung und der übersichtli- 
che Bildschirmaufbau garan- 
tieren eine unkomplizierte und 
dennoch schnelle Bedienung 
aller Funktionen. Dabei kennt 





»Digisoft plus« nicht nur alle 
Standardbefehle wie Aufneh- 
men, Wiedergeben, Laden und 
Speichern, sondern beherrscht 
zudem viele Spezialfunktionen 
zum Mischen, Kopieren oder 
Rückwärts-Spielen. Die einge- 
baute grafische Ausgabe der 
Klangdaten ist dabei ständig 
sichtbar. 

Bei »Digisoft plus« handelt 
es sich um eine Weiterentwick- 
lung des bekannt-bewährten 
»Digisoft« mit wesentlichen . 
Verbesserungen. Um nun in 
den Genuß dieses Klangwun- 
ders zu kommen, müssen die 
Listings 3 bis 12 abgetippt und 
mit dem Aztec C compiliert 
werden. Eingabehinweise fin- 
den Sie auf Seite 159. Dabei ist 
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zu beachten, daß vor dem 
Compilieren der Listings 4 bis 
11 das Listing 3 compiliert wer- 
den muß, da das dabei erzeug- 
te File »dmp« in diese einge- 
bunden wird. Listing 12 muß 
assembliert werden. Nach 
dem Linken kann das Pro- 
gramm vom CLI aus aufgeru- 
fen werden. Dabei sollte in den 
Preferences der 80-Zeichen- 
Modus eingestellt sein. 

Nach dem Laden des Steu- 
erprogramms sehen Sie schon 
die wichtigsten Bedienungs- 
elemente auf dem Monitor 
(Bild 8, Seite 51). Am oberen 

. Rand des Bildschirms liegt ei- 
ne Menüleiste, die wie ge- 
wohnt durch Festhalten der 
rechten Maustaste aktiviert 
wird. Den Hauptteil des Bild- 
schirms vereinnahmt die grafi- 





4 Bild 3. Das Platinenlayout. Bitte 


achten Sie darauf, daß zwische 
Rahmen und Leiterbahnen kein 
Kontakt entsteht. 


sche Anzeige des angewähl- 
ten Tracks. Über dieser befin- 
den sich vier getrennte Blöcke 
mit Schaltern für die einzelnen 
Spuren von »Digisoft plus«. Un- 
ter der Anzeige befindet sich 
eine Reihe symbolisierter Gad- 
gets für Aufnahme, Wiederga- 
be und vieles mehr. 

Sehen wir uns nun die ein- 
zelnen Komponenten etwas 
genauer an. Um eine Tonspur 
zu wählen, muß der Schalter 
mit der entsprechenden Num- 
mer am oberen Bildschirm- 
rand angeklickt werden. Viele 
der per Menü aufrufbaren 
Funktionen und das Aufneh- 
men beziehen sich immer auf 
die gerade angewählte Spur. 

Diese Spuren spielen bei un- 
serem Steuerprogramm eine 
wichtige Rolle. Jedem der vier 
Amiga-Tonkanäle ist ein eige- 
ner Speicherbereich mit eige- 
nen Parametern zugeordnet, 
so daß insgesamt vier ver- 
schiedene Klänge aufgezeich- 
net, manipuliert und gleichzei- 
tig wiedergegeben werden 
können. In Anlehnung an ein 
Mehrspur-Tonbandgerät nen- 
nen wir diese vier Sound- 
Speicher auch Spuren. 
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Für jede Spur existiert ein ei- 
gener Parameterblock, in dem 
alle zur Aufnahme und Wieder- 
gabe eines Kanals notwendi- 
gen Werte angezeigt werden 
und veränderbar sind. Unmit- 
telbar unter der grafischen An- 
zeige werden die Parameter 
des angewählten Tracks darge- 
stellt. 


Die Maus gehört 
zum guten Ton 


Neben der jeweiligen Spur- 
nummer befindet sich das 
»Status«-Feld, in dem entwe- 
der »ON« oder »OFF« zu lesen 
ist. »ON« bedeutet, daß die 
Spur gespielt wird, »OFF« 
schaltet den Kanal stumm. Ein 
Mausklick auf dieses Feld 
schaltet zwischen beiden Zu- 


IN 


«IH 
I" Pin 23 


Bauan LEITUNG 


tus auf»ON« schalten oder das 
»Play«-Feld anklicken. 

Der im »Start«-Feld ange- 
zeigte Wert gibt an, ab welcher 
Position der Amiga die in der 
jeweiligen Spur gespeicherten 
Klangdaten spielen soll. Steht 
dort der Wert »0«, wird von An- 
fang an gespielt. Sie ändern 
den Wert zum Beispiel da- 
durch, daß Sie das Feld mit der 
Maus anklicken, worauf der 
Cursor erscheint und Sie den 
neuen Wert eintippen können. 
Die Cursortasten, <DEL> 
und <Backspace> erleich- 
tern und beschleunigen die 
Eingabe. Wer mit der Tastatur 
auf Kriegsfuß steht, klickt ein- 
fach das Feld neben dem zu 
ändernden Wert an und erhöht 
oder verringert diesen sodann 
mit den über der unteren Gad- 


Eingang —5 V (Pin 14 serieller Port) 


(Parallelport- 
stecker) 








Tel. 089/570050 


(nur Amiga 1000) 


Bauteileliste 


IC 7574 (z.B. AD7574, MP7574) 
Hersteller: Analog Devices, 


Stecker 25polig f. RS232-Port 


Kupplung 25polig f. Drucker-Port 
Platine, IC-Sockel, Drahtbrücken 


4 Bild 4. So wird 
die Platine 
bestückt. Achten 
Sie auf die Ein- 
baurichtung des 


P1 Potentiometer 10 kOhm linear ICs (Kerbe). 
R1, R2 Widerstand 1 Ohm 

R3 Widerstand 910 Ohm 

R4 Widerstand 100 kOhm 

C1, C2 Kondensator 100 „F, 10 Volt 

c3 Kondensator 680 nF 

c4 Kondensator 22 nF 

c5 Kondensator 120 pF 





ICL 7660 
C6, C7_ Kondensator 10 „F 





Die folgenden Bauteile nur für Amiga 500/2000 


zwei Stecker 25polig f. Adapter 








ständen um. Dieser Schalter 
ist jedoch nur dann wirksam, 
wenn die Wiedergabe mit der 
»Play«-Taste aktiviert wurde. 
Mit einem Mausklick wech- 
seln Sie beim »Mode«-Feld zwi- 
schen »LOOP« und »ONCE«. 
Im »LOOP«-Modus wird die 
Spur laufend wiederholt, bei 
»ONCE« ertönt der digitalisier- 
te Klang des jeweiligen Kanals 
nur einmal, wenn Sie den Sta- 


get-Reihe liegenden Pfeilsym- 
bolen. Statt der Pfeilsymbole 
eignet sich auch der Schiebe- 
regler zum Einstellen des ge- 
wünschten Wertes. Klicken Sie 
dazu das kleine, viereckige 
Kästchen im Schieber mit der 
Maus an und halten Sie die 
Maustaste gedrückt. Setzen 
Sie dieses Kästchen an die 
richtige Stelle und lassen Sie 
dort die Maustaste los. 


Die nun folgenden Parame- 
ter lassen sich nach dem sel- 
ben Prinzip einstellen. »End« 
bestimmt das Ende der Sound- 
daten und markiert zusammen 
mit »Start« den Sounddaten- 
Bereich, der gespielt oder be- 
arbeitet werden soll. »Repeat« 
enthält, falls gewünscht, einen 
Wert, der zwischen »Start« und 
»End« liegt. Diese Zahl ist nur 
bei manchen digitalisierten In- 
strumenten von Belang und 
gibt den Beginn des Wieder- 
holteils (Loop) an. Verwenden 
Sie ein selbstdigitalisiertes In- 
strument in einem IFF-kompa- 
tiblen Musikprogramm, so wird 
nach dem Drücken einer Taste 
zuerst der Ton komplett von 
»Start« bis »End« gespielt und 
danach der Bereich von »One- 
Shot« bis »End« so lange wie- 
derholt, bis die Taste losgelas- 
sen wird. Der Repeat-Punkt 
wird in der grafischen Anzeige 
durch eine senkrechte Linie 
markiert, genauso die Start- 
und Endpositionen. Bei »Na- 
me« kann man dem Track eine 
entsprechende Bezeichnung 
verleihen. Mit »Volume« legt 
man die Lautstärke zwischen 0 
(Stille) und 64 (sehr laut) fest. 
»Period« ist der Geschwindig- 
keitswert für den Amiga- 
Soundchip und sollte zwi- 
schen minimal 124 und maxi- 
mal 1000 liegen. Je niedriger 
der Wert, desto schneller ist 
die Aufnahme- und Abspielge- 
schwindigkeit und entspre- 
chend erhöht sich die Klang- 
qualität. Werte unter 256 brin- 
gen normalerweise keine hör- 
bare klangliche Verbesserung. 
Indirekt proportional zu die- 
sem Wert verhält sich »Rate«, 
das die Anzahl der digitalisier- 
ten Bytes pro Sekunde angibt. 
Dabei gilt: Je niedriger »Pe- 
riod«, desto höher »Rate« und 
desto höher damit auch der 
Speicherplatzbedarf bei glei- 
cher Spieldauer. 

Die Schalter »Zoom out«, 
»Zoom in« und »Display Ran- 
ge« werden weiter unten be- 
schrieben. Die eingestellten 
Parameter gelten immer für 
den jeweils aktivierten Track. 
Genauso verhält es sich mit 
der grafischen Anzeige. 


Qualität ist 
kein Zufall 


Die großen »Play«- und 
»Stop«-Felder am unteren Bild- 
schirmrand gelten für alle 
Stimmen und starten oder 
beenden die Wiedergabe aller 
Spuren, deren Status auf »ON« 
gestellt ist. Die Digitalisierung 
eines Klangs starten »Mouse 
Rec« und »Auto Rec«. »Mouse 
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5 --- Amiga-Digitizer Testprogramm --- 
68000er 1/87 --- 
; --Copyright 1986 Markt&Technik Verlag AG -- 


3 





buffer=$40000 
len=$E000 
speed=182 


base1=$BFEOO1 
base2=$BFDO00 
dra2=base2 
drb1=base1+$100 
ddra2=base2+$200 
ddrb1=base1+$300 


start: move.1l 4,86 ; Supervisor-Modus 
lea super,a5 
Jnp -30(86) 

super: addq.1 #8,a7 
move #$2700,sr ; Interrupts sperren 
move.b #%00000000,ddrbi1 ; Parallel-Port 
move.b ddra2,dO ; initialisieren 
andi.b #%11111010,d0 
ori.b #%00000100,d0 
move.b dO,ddra2 
move.l1 #buffer,$dff0a0 ; Soundparameter 
move #64 ,$Aff0a8 ; setzen 
move # speed, $dff0a6 
move #1en/2,$dff0a4 
move.1 #buffer,$dffObO 
move #64,$dffOb8 
move # speed,$dff0b6 
move #1len/2,$dffOb4 
move #38003,$dff096 
lea block,al ;Farben 
move #$0000,block 
move #$0F00, block+254 
move #$0F00,b1ock+256 

schleife: lea buffer,a0 
move #1en,d3 

digit: ori.b #%00000100,dra2 ; Digitalisierung 
andi.b #%11111011,dra2 ; starten 

busy: andi.b #%00000001,dra2 ; Noch beschäftigt? 
beq.S busy ; Ja, warten 
elr di 
move.b drbi,di ; Sounddaten holen 
eori.b #128,d1 ; Umrechnung 
move.b di,(a0)+ ; Wert speichern 
asl #1,d1 ; Farbe berechnen 
move (al,d1),$dff180 
dbra d3,digit 
andi.b #64,$bfe001 ; Linke Maustaste... 
bne.s schleife 5 „..nicht gedrückt 
move #$0003, $dff096 ; Sound-DMA aus 
move #0,sr ; User-Modus 
illegal ; =) Seka 
even Listing 1. Der Assembler-Quellcode 


block: blk.w 256,8 


Rec« beginnt nach einem 
Druck auf die linke Maustaste 
mit der Aufzeichnung auf dem 
angewählten Kanal. Ein weite- 
rer Mausklick beendet die Auf- 
nahme. »Auto Rec« wartet mit 
der Aufnahme so lange, bis 
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des Digitizer-Testprogramms 


; Musikspeicherlänge 
; Geschwindigkeit 


auch wirklich ein Ton am Digiti- 
zer anliegt. Dieses Verfahren 
setzt allerdings einen optimal 
justierten Digitizer voraus. 
»Listen« dient zum Abhören 
der momentan am Digitizer an- 
liegenden Musik, »Adjust« zum 





Abgleich des Digitizers. Bei ab- 
soluter Stille muß der Bild- 
schirm dabei bis auf einen 
schmalen Streifen am oberen 
Randeine flackerfreie, schwar- 
ze Farbe annehmen. Damit ist 
der Nullpunkt definiert. Nun 
den Lautstärkeregler an der 
Stereo-Anlage so weit aufdre- 
hen, bis der Bildschirm 
schwarz und blau flackert und 
sich gelegentlich feine, rote 
Streifen zeigen. Leiser stellen 
heißt es bei dicken roten Strei- 
fen. Bitte beachten Sie, daß die 
Tonqualität bei »Test« und »Ad- 
just« immer etwas schlechter 
ist als bei der Aufzeichnung. 

Kommen wir nun zu den 
Pull-Down-Menüs. Im »Disk«- 
Menü erlauben die beiden Me- 
nüpunkte »Load« und »Save« 
das Laden und Speichern von 
digitalisierten Tönen und Ge- 
räuschen auf Diskette, Fest- 
platte oder RAM-Disk. Die Ein- 
gabe des Dateinamens erfolgt 
ganz komfortabel über eine 
Datei-Auswahl-Box. Auch alle 
verfügbaren Volumes werden 
angezeigt und können ganz 
einfach angeklickt werden. 
Beim Laden wird nach einer Si- 
cherheitsabfrage die aktuelle 
Spur gelöscht und automa- 
tisch genügend Speicher re- 
serviert. Gespeichert wird im- 
mer der durch »Start« und 
»End« definierte Datenbereich 
der angewählten Spur. Sowohl 
beim Laden als auch beim 
Speichern haben Sie die Wahl 
zwischen drei verschiedenen 
Formaten: »IFF«, »Future 
Sound« oder »Data«. Bei »Da- 
ta« handelt es sich ausschließ- 
lich um die Klangdaten, wäh- 
rend der IFF-Standard auch 
die Parameter enthält. Beim 
»Future Sound«-Format steht 
vor den Daten noch die Länge 
der Datei (ein Longword) und 
die Wiedergabegeschwindig- 
keit (ein Word). 

Im »Track«- und im »Range«- 
Menü verbergen sich nützliche 
Funktionen, die sich fast im- 
mer mit der Manipulation der 
gerade angewählten Spur be- 
fassen. »Clear« löscht die ak- 
tuelle Spur und gibt den dafür 
reservierten Speicher wieder 
frei, »Clear all« löscht alle 
Kanäle. »Reset Track« setzt 
die Parameter auf ihren Ur- 
sprungswert zurück. »Copy 
Range« kopiert alle Soundda- 
ten der angewählten Spur von 
»Start« bis »End« in eine ande- 
re Spur, die nach dem Aufruf 
der Funktion eingegeben wird. 
Die Speicherreservierung für 
diese Spur erfolgt bei Bedarf 
automatisch. = 

»Concat Range« funktioniert 
im Prinzip genauso wie »Copy 
Range«, nur wird diesmal die 


Zielspur nicht gelöscht, son- 
dern die zu kopierenden Daten 
werden an die Sounddaten des 
Zielkanals angehängt. Damit 
können Sie beispielsweise ein- 
zelne Wörter auseinem in Spur 
1 digitalisierten Satz herausko- 
Pieren und in Spur 2 zu einem 
neuen Ausspruch zusammen- 
setzen. Mit »Paste Range« wird 
der aktuelle Bereich ab der 
Endposition des Zieltracks an 
diesen angehängt. »Insert 
Range« fügt den aktuellen Be- 
reich beim Zieltrack an dessen 
Startmarkierung ein. 

Im »Effects«-Menü finden 
sich noch weitere Extras. So 
kann mit »Reverse Range« der 
Bereich zwischen »Start« und 
»End« umgedreht werden. Das 
heißt er wird rückwärts abge- 
spielt. Mit »Mix Range« mi- 
schen Sie den Bereich mit ei- 
ner anderen Spur. »Period * 2« 
verdoppelt die Periode des Be- 
reichs. Dazu werden die Daten 
im Speicher verdoppelt. Dies 
bewirkt, daß der Klang eine Ok- 
tave tiefer kommt. »Period / 2« 
hat genau den umgekehrten 
Effekt. 

Das Menü »Options« erlaubt 
die Auswahl verschiedener Di- 
gitizer-Typen. Wenn sie den Di- 
gitizer aus unserer Bauanlei- 
tung verwenden, stellen Sie 
»68000er« original ein. 

Im großen Fenster in der 
Bildschirmmitte werden die 
Klangdaten der momentan an- 
gewählten Spur grafisch dar- 
gestellt. Damit sehen Sie so- 
fort, ob die Aufnahme über- 
steuert ist, wo der Ton beginnt, 
wo er endet und vieles mehr. 
Drei senkrechte Linien stellen 
Start-, End- und Repeat-Posi- 
tion dar. Sie können durch ein- 
faches Ziehen mit der Maus 
verschoben werden. Norma- 
lerweise wird der gesamte 
Track in gestauchter Form dar- 
gestellt (Bild 8, Seite 51). Wird 
nun ein Track abgespielt, so 
läuft synchron zur Musik eine 
senkrechte Linie über den dar- 
gestellten Bereich. Diese zeigt 
an, welcher Teil des Samples 
gerade ausgegeben wird. 
Klicken Sie »Display Range« 
an, so wird auf die »1:1-Dar- 
stellung« umgeschaltet und die 
Daten werden so angezeigt, 
wie sie im Speicher stehen 
(Bild 9, Seite 51). Es werden 
dann ab der Startmarkierung 
so viele Daten dargestellt, wie 
im Fenster Platz finden. 

Mit »Zoom In« ist der zwi- 
schen Start- und Endmarkie- 
rung liegende Bereich über 
das ganze Display zu sehen. 
Es kann so stufenlos gezoomt 
werden. Bei »Zoom Out« wird 
wieder auf die ursprüngliche 
Darstellung umgeschaltet. 


AMIGA-SONDERHEFT 1 


Die Titelzeile des »Digisoft 
plus«-Fensters zeigt den freien 
Speicherbereich an. Dabei 
werden Chip- und Fast-Memo- 
ry getrennt angezeigt. »Digisoft 
plus« erkennt selbständig 
Speichererweiterungen und 
nutzt so den vorhandenen 
Speicherbereich voll aus. 


Unser Digitizer 
und Audiomaster 


Als Tüpfchen präsentieren 
wir Ihnen nun auch noch eine 
Anpassung unseres Digitizers 
an den weitverbreiteten »Au- 
diomaster«. Wenn Sie also im 
Besitz von AudioMaster sind 
und damit nicht nur Geräusche 
nachbearbeiten, sondern auch 
selbst digitalisieren wollen, 
dann benötigen Sie einen pas- 
senden Digitizer. Was liegt also 
näher, als unseren Selbstbau- 
Digitizer dafür zu verwenden. 
Dazu sind also wie gesagt eini- 
ge, leicht durchführbare, An- 
passungen nötig. 

Nehmen Sie zunächst den 
Digitizer zur Hand. Auf der 
Oberseite der Platine sehen 
Sie zwei unterschiedlich lange 
Drahtbrücken. Die längere der 
beiden führt mit dem einen En- 





Bild 5. Die Pinbelegung des 
Spannung-Inverters ICL 7660 


de zu Pin 13 des 25poligen 
Parallel-Port-Steckers. Löten 
Sie dieses Ende der Draht- 
brücke vorsichtig aus. Führen 
Sie den Draht nun zu Pin 1 des 
Steckers, kürzen das überste- 
hende Stück und löten ihn dort 
fest. Vorsicht! Es darf kein 
Kurzschluß zu anderen Bautei- 
len oder Leiterbahnen entste- 
hen. 


Mit Tuning der 
Hardware... 


Oben haben wir beschrie- 
ben, wie Sie den Digitizer an 
den Amiga 500 und 2000 an- 
passen. Wenn Sie das dort be- 
schriebene Adapter-Kabel ver- 
wenden, dann müssen Sie 
auch bei diesem die Leitung, 
welche normalerweise die Pins 
13 der zwei Stecker des Kabels 
verbindet, auf beiden Seiten 
an den Pin 1 löten. Der Pin 1 
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des Digitizers muß also in je- 
dem Fall mit dem Pin 1 des 
Computer-Parallel-Ports ver- 
bunden sein. Li 

Nach diesen Änderungen 
funktioniert der Digitizer aller- 
dings nicht mehr mit unserem 
oben beschriebenen Steuer- 
programm »Digisoft plus«. Ein 
Umlöten der Drahtbrücke von 
Pin 1 zurück auf Pin 13 würde 
die Kompatibilität wiederher- 
stellen. Der Einbau eines 
Schalters würde einfaches 
Umschalten ermöglichen. 

Damit wären alle Umbauar- 
beiten abgeschlossen, welche 
die Hardware betreffen. Doch 
damit ist es leider noch nicht 
getan, auch die Software hat 
einen kleinen Tapetenwechsel 
nötig. Fertigen Sie sich dazu 
eine Sicherheitskopie Ihrer 
AudioMaster-Diskette an, wie 
im Handbuch beschrieben. 
Tippen Sie nun Listing 2ein, le- 
gen die AudioMaster-Kopie in 
das interne Laufwerk und star- 
ten das Programm mit »RUN«. 

Rund neun Minuten später, 
wenn sich der Amiga mit »Fer- 
tig!« meldet, ist der Software- 
Umbau beendet und die Audio- 
Master-Kopie an den Digitizer 
angepaßt. Bitte lassen Sie die 
Original-Diskette unverändert 


für den Fall, daß Sie das ur- 
sprüngliche Programm irgend- 
wann noch einmal benötigen 
sollten. Zudem würde beim 
Verändern des Originals kein 
Garantieanspruch mehr beste- 
hen. 

Geschafft! Dem fröhlichen 
Digitalisieren mit AudioMaster 
und unserem Amiga-Digitizer 
steht nichts mehr im Wege. 
Ganz im Gegenteil: Bei der 
Software-Anpassung haben 
wir zudem noch eine kleine Be- 
sonderheit eingebaut, über die 
das Originalprogramm nicht 
verfügt. Wenn Sie das Samp- 
ler-Window aufrufen und den 
Monitor-Betrieb aktivieren, 
dann verändert sich die Farbe 
des Hintergrundes in Abhän- 
gigkeit von der Lautstärke des 
Signals, das am Digitizer an- 
liegt. 

Zum optimalen Nullpunkt- 
Abgleich stellen Sie zunächst 
den Lautstärkeregler Ihrer Ste- 
reoanlage auf Null und suchen 
durch Drehen des Reglers auf 
der Digitizer-Platine den Null- 
punkt. Der Bildschirm, norma- 
lerweise dunkelblau, muß an 
der richtigen Position vollkom- 
men schwarz werden. 

Starten Sie jetzt Band, Platte 
oder CD und stellen Sie die 





» Eine neue Dimension DE LUXE SOUND V. 2.5 « 


Der Audiodigitizer der Luxusklasse 
Exklusiv-Test im AMIGA-MAGAZIN 6/88 


»Leistungsmerkmale in Stichworten« 

Erzeugen aller SONIX-SOUNDS 

* Erzeugen aller IFF-SOUNDS (auch Instruments) 
Erzeugen von DUMP-Soundfiles (Standard-Sounds) 
Direct-Sampling auf bis zu 255 Disketten Nonstop 
mit 2 Laufwerken (Longplay mit RECORDMAKER) 
Direktes Mithören vor und während des Digitalisierens 
Echo-Halleffekte in Stereo mit Standard-Sounds oder 
im Direct-Outputmodus ohne Digitalisierung 
Klangverfremdungen (Amplituden- & Frequenzmodulation) 
regelbarer hochempfindlicher Vorverstärker 
Nur noch 1 Anschlußkabel (Parallel-Port) erforderlich 
Wesentlich verb. DISK-Handling mit Anzeige für »FREE BYTES ON DISK« 
einstellbarer Threshold-Level für Autosampling 
komfortabler Schneidetisch mit Grafikanzeige 
Startzeiger, Loopzeiger & Endzeiger frei einstellbar 
Sound-Merging (Verketten von Einzelsounds) 
SONIX & IFF-Sounds in 1-5 Oktaven speicherbar 
‚Abspieltools (Player) in C und Assembler mit SOURCE 


NEU AMIGA-MIDI mit Gehäuse und Anschlußkabell!! 

Unser neues AMIGA-MIDI-Interface besitzt alle wichtigen Ein- und Ausgän- 
ge: 2x MIDI-OUT, 1x MIDI-IN und 1x MIDI-THRU. Gern liefern wir Ihnen auch 
ein passendes MIDI-Gerät (Keyboard, Expander, Sampler). Auf Wunsch un- 
terbreiten wir Ihnen ein individuelles Angebot nach Ihren spezifischen Anga- 
ben (z.B. bestimmter Gerätetyp) oder (Preisvorgabe). Bei Bestellung von 
AMIGA-MIDI bitte AMIGA-Typ angeben. Preis nur 98,- DM 


NEU AMIGA-CLOCK-Echtzeituhr im Gehäuse mit Anschlußkabel. AMIGA- 
CLOCK ist die sinnvolle Ergänzung für alle die noch keine Echtzeituhr besit- 
zen. Software zum Stellen und Auslesen der Uhr wird mitgeliefert. AMIGA- 
CLOCK ist an alle AMIGAs am JOY-PORT (durchgeschleift) anschließbar! 
Die erforderliche Software gehört zum Lieferumfang nur 98,- DM 


Preissenkung für AMIGA-LAUFWERKEI (sehr leise) 


AMIGA Einzellaufwerk 3,5” im robusten kunststofflackierten Metallgehäu- 
se mit heller Frontblende, Busdurchführung und Abschalter kostet 
nur noch 278,- DM 


High-Frequency-Sampling mit allen AMIGAS bei denen der 

Tiefpaßfilter sich softwaremäßig abschalten läßt 

LOOPING an- und abschaltbar 

Umfangreiche Bedienungsanleitung 

Nach wie vor superschnell und kurz, da Assemblerprogramm 

Nach wie vor ist die HARDWARE kompatibel zu fast allen Sampler- 
Programmen AUDIOMASTER, PERFECT-SOUND, FUTURE-SOUND, usw. 
UPDATE-SERVICE-INFO unter 02381-880077 


WIR LIEFERN BESTMÖGLICH AB LAGER HAMM PER NACHNAHME ODER VORKASSE ZUZÜGLICH VERSANDSPESEN. 


ua 


hagenau computer 
LAST fe IA TB E:7] 
4700 Hamm 1 
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AMIGA Einzellaufwerk 5,25” im robusten kunststofflackierten Metallge- 
häuse mit heller Frontblende, Busdurchführung, Abschalter, 40/80-Track- 
Umschaltung usw. nur noch 398,- DM 


AMIGA Kombilaufwerk 5,25” & 3,5” Ausführung s.o. nur 648,- DM 


Unsere Produkte erhalten Sie ebenfalls bei: 


Niederlande 

CAT & KORSH Int. BV 
Postbus 62255 

3002 Rotterdam 

Tel: 010- 4507696 


Österreich: 

MAR Computershop 
Inh. Peter Rauscher 
Weldengasse 41 
1100 Wien 

Tel: 0222-62 1535 


Schweiz 
MEGASHOP AG 
Falkenplatz 7 
3012 Bern 

Tel: 024- 4005 


Schweden: 
TRI-DATA 
Ljungbacksv. 30 
240 13 Genarp 
Tel: 040-482211 


Norwegen 
Kreativ Tekknik 
Sofies Gate 12 
0170 Oslo 1 

Tel: 02- 460744 
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Lautstärke der Anlage so hoch 
ein, bis sich auf dem nun blau- 
schwarz flackernden Bild- 
schirm gelegentlich rote Strei- 
fen zeigen. Viel Rot auf dem 
Bildschirm bedeutet Übersteue- 
rung. Jetzt ist der Digitizer opti- 
mal ausgesteuert und die Digi- 
talisierung kann beginnen. 


„.„.und der Soft- 
ware zum Erfolg 


Ein Wermutstropfen für 
Amiga-500-Besitzer: Im Moni- 
tor-Betrieb von AudioMaster 
knackst es beimanchen Amiga 
500-Modellen mit. zu schwa- 
chem Netzteil wie bei einem 
Geiger-Müller-Zähle. Wenn 
Sie aber in den Aufnahme- 
Modus schalten, verschwin- 
den diese Störungen vollstän- 
dig, Sie brauchen also kein 
Knacken während der Digitali- 
sierung zu befürchten. Der 
Grund für dieses Phänomen 
liegt in dem Amiga-500-Netz- 
teil, dessen Spannung nur 
dann konstant ist, wenn das 
Amiga-Bild ausgeblendet, also 
die Bildschirm-DMA abge- 
schaltet wird. Genau dies 


Ton- 
Eingang 
(SV, max.)9 L 


angesteuert. Sobald diese Lei- 
tung auf Null wechselt, beginnt 
der Digitizer mit dem Digitali- 
sier-Prozeß, der nach rund 15 
Mikrosekunden abgeschlos- 
sen ist. Danach ist der digitale 
Amplituden-Wert an den acht 
Datenleitungen abrufbar. Um 
sicherzustellen, daß dieser 
Vorgang schon abgeschlossen 
ist, kann man vor dem Lesen 
des Datenregisters die Busy- 
Leitung des Digitizers abfra- 
gen (sie ist mit Pin 11 des 
Parallel-Ports verbunden). So- 
lange dieses Signal auf Low- 
Pegel ist, arbeitet der Digitizer 
noch. 

Die eben erwähnten 15 Mi- 
krosekunden sind die kürzest 
mögliche A/D-Wandlunggszeit. 

Ein  Digitalisier-Durchlauf 
sah also bislang wie folgt aus: 
Read-Bit löschen, Read-Bit 
setzen, warten, bis Busy-Bit 
gesetzt wird, Datenregister 
auslesen. Wesentlich kürzer 
und schneller geht dies, wenn 
die Read-Leitung mit Pin 1 des 
Parallel-Ports, dem Strobe- 
Signal, verbunden wird. Immer 
dann, wenn ein Schreibzugriff 
auf das Datenregister erfolgt, 
wechselt die Strobe-Leitung 


+ 5 Volt 


REM von 


vouaubumr 


REM AudioMaster/Amiga-Digitizer Patch 
Toni Schwaiger 
REM Markt&Technik 


68000er 1/88 


SCREEN 2,950,800,1,2 

WINDOW 2,"68000er",(0,0)-(631,10),0,2 
w&=WINDOW (7) :S&=PEEKL (w&+46) 

a&=PEERL (PEEKL (88+s&) +8) 


10 OPEN "i",#1,"df®:AudioMaster" 


12 FOR t&=a& TO a&+93863& 
13 PORE. t&,ASC(INPUT$(1,1)) 


14 NEXT t& 


16 CLOSE #1 


18 FOR t&=a& TO a&t+39 


19 READ d$ 


20 POKE 65976&+t&,VAL("&h"+d$) 


21 NEXT t& 


23 RESTORE 


24 FOR t&=a& TO a&+t39 


25 READ d$ 


26 POKE 66048&+t&,VAL("&h"+d$) 


27 NEXT t& 


28 POKE 66081&+a&,212 


30 FOR t&=a& TO a&+13 


31 READ d$ 


32 POKE 1724&+t&,VAL("&h"+d$) 


33 NEXT t& 


35 FOR t&=a& TO a&+51 


36 READ d$ 


37 PORE 43132&+t&,VAL("&h"+d$) 


38 NEXT t& 


40 FOR t&=a& TO a&+5 


Paralleler 











Bild 6. Der modifizierte Schaltplan des Digitizers. Betrieb am Amiga 500/2000 mit Adapterkabel. 


macht AudioMaster glückli- 
cherweise in beiden Digitali- 
sier-Modi. 

Abschließend noch einige 
Erläuterungen zu den genann- 
ten Modifikationen für alle 
interessierten Bastler und 
Amiga-Programmierer. Die 
Read-Leitung ging vormals zu 
Pin 13 des Parallel-Ports und 
wurde durch kurzes Löschen 
und darauf folgendes Setzen 
des entsprechenden Port-Bits 
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kurzzeitig auf Low und liefert 
damit das ideale Signal für die 
Read-Leitung, wie es der 
7574-Chip erwarte. Der 
Sample-Prozeß reduziert sich 
damit auf folgende Operatio- 
nen: einen beliebigen Wert in 
das Datenregister schreiben, 
mindestens 15 Mikrosekunden 
warten, Datenregister ausle- 
sen. Das spart nicht nur Zeit, 
sondern hält auch den Pro- 
grammcode klein. So klein, 


daß er fast ohne Verluste in den 
AudioMaster-Quellcode paßt. 
AudioMaster setzt voraus, 
daß der Digitizer einen eige- 
nen Taktgenerator enthält und 
damit laufend eigenständig di- 
gitalisiert. Ein solcher Taktge- 
nerator fehlt bei unserem Digi- 
tizer, um Kosten, Größe und 
Bastelaufwand möglichst klein 
zu halten. Zudem ist die Abta- 
stung exakter und damit die 
Klangqualität besser, wenn der 


Computer das Takten über- 
nimmt. 

Das Programm wurde also iin 
den beiden Sample-Routinen 
um die Operation »Schreiben 
in das Datenregister« (= Start 
der Digitalisierung) ergänzt. 
Die nötigen freien Bytes haben 
wir durch Entfernen der Befeh- 
le zum Mithören während des 
Sample-Vorgangs gewonnen. 
Die Routinen zur farblichen 
Darstellung von Übersteue- 
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41 READ d$ 

42 POKE 44128&+t&,VAL("&h"+d$) 
43 NEXT t& 

45 OPEN "o",#1,"df®:AudioMaster" 
47 FOR t&=a& TO a&+93863& 

48 PRINT #1,CHR$ (PEEK(t&)); 

49 NEXT t& 

51 CLOSE 1 


53 WINDOW CLOSE 2 
54 SCREEN CLOSE 2 


56 PRINT "Fertig!" 


58 END 


61 DATA 13,FC,00,00,00,BF,E1,01,12,39,00,BF 
62 DATA E1,01,04,01,00,80,10,C1,08,39,00,06 
63 DATA 00,BF,E0,01,67,0A,B3,C8,62,D6,4E,71 


64 DATA 4E,71,4E,71 


66 DATA 36,38,6F,6F,6F,65,72,53,.61,6D,70,6C 


67 DATA 65,72 


69 DATA 60,3C,13,FC,00,00,00,BF,E1,01,16,39 
70 DATA 00,BF,E1,01,3A,3C,0F,00,0C,03,00,00 
71 DATA 67,12,0C,03,00,FF,67,0C,3A,3C,00,0F 
72 DATA 0C,03,00,80,66,02,42,45,33,C5,00,DF 


73 DATA F1,80,4E,75 


75 DATA 61,00,FC,1C,4E,71 


Listing 2. Dieses Programm stimmt AudioMaster 


Amiga-Digitizer-freundlich 





(ERBETEN gas] 
EL Jfreee) [2 Jforrliuoe] [3 ITorelfime) La |lorr] [oe] 





Bild 8. Die Benutzeroberfläche von »Digisoft plus«... 
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rung und Nullpunkt-Justage 
fanden in einer NOP-Wüste 
Platz, die aus unerfindlichen 
Gründen mitten im Programm- 
code ein einsames Dasein fri- 
stete. Ein abschließender Hin- 
weis: Es kann bei der Software- 
Anpassung geschehen, daß 
das Original-AudioMaster-Icon 
verschwindet und statt dessen 
das bekannte Basic-Daten- 


Icon zu sehen ist. Kopieren Sie 
in diesem Fall einfach das 
Symbol von der Original-Dis- 
kette auf die Diskette mit dem 
veränderten Programm. Dies 
geschieht mit folgendem Be- 
fehl: COPY AudioMaster. info 
dfl: (Original-Diskette im Lauf- 
werk 0, Kopie in Laufwerk 1). 

(Toni Schwaiger/Christian 
Wolf/M. Greulich/M. Jobst/rs) 














WERSITEELLEERENNTENTT 


EN Len Jfno] [2 JTorrltuoer) [3 Jlore)fuoe] [a ]Lorr] [oe] 








Bild 7. Der Digitizer mit Erweiterungsplatine und Adapter- 
kabel für Amiga 500/2000 








Bild 9. ...macht das Editieren der Klänge zum Kinderspiel 





SONDERAKTION! 


30 Disketten Ihrer Wahl und 2 Gratis Disk 
— mit Viruskiller, Conman, Df.c.AssigDev. 
Funckey. PopCli.RunBack. Turbo Backup, 
Virus X, Zaploon M.RBackup usw...... 


für 145.- DM inkl. Porto (V-Scheck/bar) 


Ray-Tracing-Construction 
& Grafik-Paket 


10 Disketten mit DBW-Render C-Light, 
Ray Tracing-Cons.-Set 

mit deutscher Anleitung, m. CAD, 
DTP-Grafik, Font-Edit, Fonts und 
vieles mehr. 


für 45,- DM inkl. Porto (V-Scheck/bar) 


VIRUSKILLER GRATIS 


Gratis zu unseren Katalog-Disketten 
bekommen Sie einen Super-Viruskiller. 


3 Katalog-Disketten 


mit Information über den Inhalt der 
PD-Programme. 
+ VirusKiller + CLI-Wizard 
gegen 10,- DM (Bar/V-Scheck) 


Fachhandel 
für Public Domain 
& Shareware 


Telefon 0203/376448, Fax. 0203/359690 


SCT-Datentechnik, U. Schmielewski 
Postfach 101264, D-4100 Duisburg 
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Programmname: myincludes.h SW! #aerine Em 21 

















Computer: Amiga 500, 1000, 2000 26 G5 define PERIOD 22 
mit Kickstart 1.2 27 p3 #define RATE 23 
28 BZ #define VOLUME 24 
Sprache: C 29 PL #define ONESHOT 25 
Compiler: Aztec C V3.6 30 CN #define ONEONE 26 
- 31 GN #define ALL 27 
Aufrufe: cc +1-s +hdmp myincludes.h 32 by #define ZOOMOUT 28 
Bemerkung: Dieses Listing muß unbedingt vor der 33 0X #define ZOOMIN 29 
Compilierung der Listings 4 bis 11 34 Bm #define SAMPLING 4 


35 SqQ #define CANCEL FALSE 
36 Xg s#define OK TRUE 
37 1J | #define MODUS1 38 
38 WU #define MODUS2 39 
39 BA #define MODUS3 40 
40 KF | #define MODUS4 41 
41 PD #*define MYPOTI 46 
42 vs #define ON TRUE 
43 bI #define OFF FALSE 
44 IM #define RICHT 61 
45 WX | #define LEFT 62 
46 pg define SELECTL 69 
47 P4 #define SELECT2 70 
48 a0 #define SELECT3 71 


compiliert werden. 





Programm : myincludes.h 


1430 #include <exec/types.h> 

2bQ #include <clib/macros.h> 

3Rg #include <intuition/intuition.n> 

419 #inelude <intuition/intuitionbase.h> 

5x%e #include <exec/exec.h> 

615 #include <exee/execbase.h> 

712 #include <hardware/custom.h> 
#include <hardware/dmabits.h> 
#include <hardware/intbits.h> 
# include eh AK #define SELEOT4 72 


#include <libraries/dosextens.h> a: en eg en mn 
#include <stdio.h> Er 


13 6v #include <exec/interrupts.h> I] struot NewWindow Newlindov = | 





























53 pD7 0,0,640,234,0,1, 
” = as Su ee a 548g CLOSEWINDOWI MENUPICKI GADGETUPI GADGETDOWN, 
grap & £ 55 122 WINDOWCLOSEI ACTIVATEI WINDOWDEPTHI WINDOWDRAG, 
16 WA, #include <graphics/sprite.h> 56 68 NULL NULL 
‚NULL, 
(6) 1987 M&T 57 hH "Amiga Sound-Digitizer Plus (C) 1988 by Markt & Te 
Listing 3. »myincludes.h«. Bitte mit dem Checksummer chnik”, 
(Seite 159) eingeben. 2. MUESSNIEL, 
59 ax 640,200,640,200, 
60 26 WBENCHSCREEN } ; 
5 : - 61 RGO UBYTE eoordinates[609]; 
rogrammname: main.c 62 25 USHORT Linesäll[] = [ 0,0,117,0,117,12,0,12,0,0 }; 
Computer: Amiga 500, 1000, 2000 63 UN | USHORT Linesi[] = [ 0,0,87,0,87,15,0,15,0,0 }; 
mit Kickstart 1.2 &% ji USHORT Lines2[] = | 3,2,84,2,84,13,3,13,3,2 }; 
65 Da USHORT LinesRegi[] = [ 0,0,0,0,0,39,0,39,0,0 }; 
Sprache: C 66 7: USHORT LinesReq2[] = | 3,2,3,2,2,37,3,37,3,2 ]; 
Compiler: Aztec C V36 67 By  USHORT LinesTracki[] = [| 0,0,23,0,23,15,0,15,0,0 ]; 
= . 68 19 | USHORT LinesStatus[] = | 0,0,40,0,40,12,0,12,0,0 |; 
Aufrufe: cc +l-s +idmp main.c 69 Ex USHORT LinesStart[] = [ 0,0,138,0,138,12,0,12,0,0 ]; 
Linkeraufruf: In -o digitizer myfunctions.o effects.o n ee an evenert | ee h 
r ; 1 in. ir. yi nesVolume[] = »0,91,0,91,12,0,12,0,0 ); 
a ee adkum EN 72 12 USHORT LinesPeriod[] = | 0,0,98,0,98,12,0,12,0,0 ]; 
& P ‚Smyınie 73 ag USHORT LinesTrackName[] = [ 0,0,184,0,184,12,0,12,0,0 ]; 
Bemerkung: Vor dem Linkeraufruf müssen die 74 a0 SHORT LinesLeft[] = [ 0,0,45,0,45,12,0,12,0,0 ]; 
Listings 4 bis 11 compiliert und Li- 75 DO USHORT LinesRate[] = [ 0,0,105,0,105,12,0,12,0,0 ]; 
sting 12 assembliert werden 76 2n USHORT LinesZoon[] = {| 0,0,73,0,73,12,0,12,0,0 }; 
77 bP USHORT Sleepy[54] = [ 0x0000,0x0000,0xfffe,0x0000,0xfffe,0x 
0000, 
78. LoM 0x4004 ,0x0000, 0x4004 ,0x0000 ,0x600c,0x 
0000 
1180, ZRRsnnaHORRRRBRRRRRRRRRROHERRRRERRRRRRRRRR/ 79 Nu 0x600« ,0x0000,0x5014,,0x0000,0x5014,0x 
2 sK /* Amiga Digitizer Software plus main *% 0000, 
3uj /* written by: Christian Wolf ” 80 Ik 0x4c64,0x0440,0x4064 ,0x0440,0x46c4,0x 
200 ,* Matthias-Claudius-Weg 58 % 0280, 
5QE /* 2190 Cuxhaven 1 ”/ 81 41 0x47c4,0x0380,0x4384 ,0x0100,0x4284,0x 
SQL x 04721/24269 ” 0000, 
X PRRRRRRRRRRRRRRHRBRRBRRRRHRRRRRRRRHRRRRER/ 82 UI 0x4444 ,0x0000,,0x4444 ,0x0000 ,0x4924 ,0x 
"8 ZM #define MakeID(a,b,c,d) ( (long)(a)<<24 | (long)(b)<<16 0100, 
I ()<<8l (a) ) 83 nV 0x4824 ,0x0000, 0x5114,0x0100,0x5014,0x 
9 sa #define PLAY 1 0000, 
#define RECORD 2 84 tg 0x610c ,0x0100, 0x638c ,0x0380, Ox4fe4,0x 
#define STOP 3 Ofeo, 
#define ADJUST 4 85 XL Ox5ffe,0x1ff0,0xfffe,0x0000,0xfffe,0x 
#define AUTOREC 5 0000 }; 
#define TEST 6 86 ayO USHORT LeftData[18] = [ 0x00c0,0x0000,0x03c0,0x0000,0x0fc0, 
#define CONTINUE 11 0x0000, 
#define SELECT 12 87 1r0 On3£Ff,OxfLER,OxfLLL,OXfFFL,OXZELR, 
#define DEZIMAL 13 Oxffft, 
#define NANE 14 88 iL- 0x0fc0, 0x0000,0x03c0,0x0000,0x00c0, 
#define STATUS1 15 \ 0x0000 ] ; 
#define STATUS2 16 89 VgO USHORT RightData[18] = [ 0x0000,0x0300,0x0000,0x03c0,0x0000 
#define STATUS3 17 : ‚0x03£0, 
#define STATUS4 18 90 Sp OxfffR,OXffLO,OXfELT,OXFFER,OXFeLR 
#define DRAW 19 8 ‚oxfffe, 
#define START 20 91 0x0000, 0x03£0, 0x0000, 0x03c0, 0x0000 
Listing 4. »main.c«. Das Hauptprogramm unserer ‚0x0300 } ; 
Sampling-Software »Digisoft plus«. 92 780 struct Image LeftImage = [ 15,199,32,9,1,NULL,1,0,NULL ] ; 
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struct Image RightImage = | 592,199,32,9,1,NULL,1,0,NULL } ; 


USHORT *ChipSleepy,*e1,*02,*Chipleft,*ChipRight; 

struct Border BorderZoom = [| 0,0,1,3,JAM2,5,&LinesZoom, NULL 

5 

struct Border Borderi = [| 0,0,1, 
0,0,1, 


3,JAM1,5,&Lines1,NULL } ; 
struct Border Border2 = [ 3,J 


‚0,1,3,JAM1,5,&Lines2,&Borderi } 


struct Border Borderfeql 0,0,3,3,JAM2,5,&LinesReq1,NULL 
1; 
struct Border BorderReq2 0,0,3,3,JAM2,5, &LinesReg2,&Bor 
derReqi }; 
struct Border BorderStatusi = | 0,0,1,3,JAM2,5,&LinesStatus 
„NULL } ; 
struct Border BorderRate = [| -53,-3,1,3,JAM2,5,&LinesRate,N 
UL}; 
struct Border BorderStart = | -74,-3,1,3,JAM2,5,&LinesStart 
„NULL }; 
struct Border BorderModus = | 0,3,1,3,JAM2,5,&LinesStart,NU 
IL}; 
struct Border Borderleft = | 0,0,1,3,JAM1,5,&LinesLeft,NULL 
1; 
struct Border BorderTrackName = | -44,-3,1,3,JAM2,5,&LinesT 
rackName,NULL } ; 
struct Border BorderDraw = [| -8,-2,1,3,JAM2,5,&LinesDraw,NU 
IL}; 

struct Border BorderVolume = | -66,-3,1,3,JAM2,5,&LinesVolu 
me,NULL ]; 

struct Border BorderPeriod = | -62,-3,1,3,JAM2,5,&LinesPeri 
od,NULL ]; 

struct Border BorderAll = [ 0,0,1,3,JAM2,5,&LinesAll,NULL } 





struct Image MyPotilmage; 
struct IntuiText TextZoomOut = [1,0,JAM2,3,3,NULL, "Zoom Out 
"NULL }; 
struct IntuiText TextZoomIn = [1,0,JAM2,7,3,NULL, "Zoom In”, 
NULL }; 
struct IntuiText TextAll = [1,0,JAM2,7,3,NULL, "Display Rang 
e”,NULL } ; 
struct IntuiText TextOne_One = [1,0,JAM2,15,3,NULL, "Display 
1:1”,NULL }; 
struct IntuiText TextTest = [1,0,JAM2,19,4,NULL, "Listen”,NU 
IL}; 
struct IntuiText TextIFF = [0,1,JAM2,2,3,NULL, "IFF 8SVX Fil 
e”,NULL }; 
| struet IntuiText TextFSound = [0,1,JAM2,2,3,NULL, "Future So 
und File”,NULL }; 
struct IntuiText TextData = [0,1,JAM2,2,3,NULL, "Data File”, 
NULL}; 
struct IntuiText TextInfo = [0,1,JAM2,2,3,NULL, "About... ”,N 
ULL }; 
struct IntuiText TextLoad = [0,1,JAM2,2,3,NULL, "Load file”, 
NULL } ; 
struct IntuiText TextSave = [0,1,JAM2,2,3,NULL, "Save...”,NU 
IL}; 
struct IntuiText TextRead = [0,1,JAM2,2,3,NULL, "Read from d 
isk",NULL ] ; 
struct IntuiText TextWrite = [0,1,JAM2,2,3,NULL, "Write to d 
isk”,NULL ] ; 
struct IntuiText TextDelete = [0,1,JAM2,2,3,NULL, "Delete fi 
1e”,NULL }; 
struct IntuiText TextRecord = [1,0,JAM2,9,4,NULL, "Mouse Rec 
"NULL } ; 
struct Intuifext TextPlay = [1,0,JAM2,27,4,NULL, "Play”,NULL 
5 
struct IntuiText TextStop = [1,0,JAM2,27,4,NULL, "Stop”,NULL 
I; 
struct IntuiText TextAdvance = [1,0,JAM2,19,4,NULL, "Adjust” 
„NULL ] ; 
struet IntuiText TextRewind = [1,0,JAM2,11,4,NULL, "Auto Rec 
NULL}; 
struct IntuiText TextAllocate = [0,1,JAM2,2,3,NULL, "Allocat 
" e Track”,NULL }; 
| struet IntuiText TextClear = [0,1,JAM2,2,3,NULL, "Clear Trac 
" k”,NULL }; 
struct IntuiText TextCopy = [0,1,JAM2,2,3,NULL, "Copy Range” 
„NULL ] ; 
struct IntuiText TextReverse = [0,1,JAM2,2,3,NULL, "Reverse 
Range” ,NULL ] ; 
struct IntuiText TextDouble = [0,1,JAM2,2,3,NULL, "Period * 
2”,NULL ]; 
struct IntuiText TextHalve = [0,1,JAM2,2,3,NULL, "Period / 2 
"NULL }; 
struct IntuiText TextClearAll = [0,1,JAM2,2,3,NULL, "Clear a 





AMIGA-SONDERHEFT 1 


Bauan LEITUNG 


11 tracks”,NULL }; 


struct IntuiText TextMix = [0,1,JAM2,2,3,NULL, "Mix Range”,N 
Au); - 


struct IntuiText TextConcat = [0,1,JAM2,2,3,NULL, "Concat Ra 


nge”,NULL }; 


truct IntuiText TextPaste = [0,1,JAM2,2,3,NULL, "Paste Rang 
e”,NULL }; 


"struct IntuiText TextZero = [0,1,JAM2,2,3,NULL, "Zero Range” 
wur); 


IntuiText TextCut = [0,1,JAM2,2,3,NULL, "Cut Range”,N 


IntuiText TextInsert = [0,1,JAM2,2,3,NULL, "Insert Ra 
nge”,NULL }; 
struct IntuiText TextDisplay = [0,1,JAM2,2,3,NULL, "Display 


|track”,NULL }; 
"struct IntuiText TextReset = [0,1,JAM2,2,3,NULL, "Reset Trac 
|k”,NULL }; 


struct IntuiText TextStart = [1,0,JAM2,3,2,NULL, "Start”,NUL 
1); 


|struct IntuiText TextEnd = [1,0,JAM2,3,2,NULL, ”End”,NULL } ; 


struct IntuiText TextPeriod = [1,0,JAM2,3,2,NULL, “Period”,N 


UL}; 
struct IntuiText TextRate = [1,0,JAM1,3,2,NULL, "Rate”,NULL 


nl; 

"struct IntuiText TextVolume = [1,0,JAM2,3,2,NULL, "Volume”,N 
ur); 

struct IntuiText TextModus = [1,0,JAM1,28,59,NULL, "Mode”,NU 


11}; 


F struct IntuiText TextTrackName = [ 1,0,JAM1,-39,0,NULL, "Nam 


e",NULL }; 
struct IntuiText TextOneShot = [1,0,JAM1,3,2,NULL, "Repeat”, 
NULL ]; 
struct IntuiText TextCurrent[4] = [1,0,JAM2,17,3,NULL, ”1”,N 
ULL, 
1,0,JAM2,17,3,NULL, *2",N 
ULL, 
1,0,JAM2,17,3,NULL, "3”,N 
ULL, 
1,0,JAM2,17,3,NULL, "4”,N 
ULL}; 
IntuiText TextOn = [1,0,JAM2,0,0,NULL, ”ON”,NULL } ; 
IntuiText TextOFF = [1,0,JAM2,0,0,NULL, "OFF”,NULL } ; 


IntuiText TextLoop = [1,0,JAM2,5,3,NULL, ”LOOP”,NULL 
IntuiText TextOnce = [1,0,JAM2,5,3,NULL, "ONCE”,NULL 
Intuifext TextProbe = [1,0,JAM2,0,0,NULL, "000000 ,NU 
IntuiText TextPrefer = [0,1,JAM2,2,3,NULL, "Prefer”,N 
IntuiText TextChip = [0,1,JAM2,2,3,NULL, "Chip”,NULL 
IntuiText TextFast = [0,1,JAM2,2,3,NULL, Fast” ,NULL 
IntuiText TextHardware = [0,1,JAM2,2,3,NULL, *Hardwar 


struct IntuiText TextDig3 = [0,1,JAM2,2,3,NULL,” Future Sou 
na”,NULL }; 


'" struct IntuiText TextDig2 = [0,1,JAM2,2,3,NULL,” Perfect So 


und”,NULL ]; 

struct IntuiText TextDigi1 = [0,1,JAM2,20,3,NULL, "68000er mo 
aified”,NULL ]; 

struct IntuiText TextDigO = [0,1,JAM2,20,3,NULL, "68000er or 
iginal”,NULL }; 

struct Menultem MenuIFF = | 0,40,0,144,13, ITEMTEXTI HIGHCOMP 
| ITEMENABLED, 

0, &TextIFF,NULL,O,NULL,O } ; 
struct Menultem MenuFSound = [ &MenulFF,40,13,144,13,ITEMTE 
XTI HIGHCOMPI ITEMENABLED, 

0, &TextFSound,NULL,0,NULL,O ]; 
struct Menultem MenuData = [ &MenuFSound,40,26,144,13,ITEMT 
EXT! HIGHCOMP| ITEMENABLED, 

0,&TextData,NULL,O,NULL,O }; 
struct Menultem Menulnfo = [ NULL,0,39,160,13, 

ITEMTEXTI HIGHCOMPI ITEMENABLEDI 
COMMSEQ, 
0,&TextInfo,NULL, 'I',NULL,O }; 


struct Menultem MenuDelete = [| &MenuInfo,0,26,160,13, 


Listing 4. (Fortsetzung) 





en 


201. 


ITEMTEXTI HIGHCOMPI COMMSEQI IT 
EMENABLED, 
0,&TextDelete,NULL, 'D',NULL, 
0); 
Menultem MenuSave = [| &MenuDelete,0,13,160,13, 
ITEMTEXTI HIGHCOMP| ITEMENABLED, 


0,&TextSave,NULL,O,&MenuData,0 


5 

Menultem MenuLoad = | &MenuSave,0,0,160,13, 
ITEMTEXTI HIGHCOMP| ITEMENABLEDI 
COMMSEQ, 
0,&TextLoad,NULL, 'L',NULL,O }; 


Menultem MenuHalve = [ NULL,0,39,181,13, 
ITEMTEXTI HIGHCOMPI COMMSEQI ITE 
MENABLED, 
0,&TextHalve, NULL, '/'‚NULL,O 


; 
Menultem MenuDouble = | &MenuHalve,0,26,181,13, 
ITEMTEXTI HIGHCOMPI COMMSEQI ITEME 
NABLED, 
0,&TextDouble,NULL, '8',NULL,O } 
; 
Menultem MenuMix = [ &MenuDouble,0,13,181,13, 
ITEMTEXTI HIGHCOMPI COMMSEQI ITEME 
NABLED, 
0,&TextMix,NULL, 'M',NULL,O }; 
Menultem MenuReverse = [| &MenuMix,0,0,181,13, 
ITEMTEXTI HIGHCOMPI COMMSEQI I 
TEMENABLED, 
0,&TextReverse,NULL, 'R',NUL 
x 10}; 
FCO struct Menultem Menulnsert = | NULL,0,39,152,13, ITEMTEXTI HI 


sev ITEMENABLED, 0, &TextInsert,NU 
LL,0,NULL,O ] ; 


202 ej0 struct Menultem MenuPaste = | &Menulnsert,0,26,152,13,ITEMT 


203 
204 


205° 
206 | 
207° 


 EXTI HIGHCOMPI 
uss ITEMENABLED, 0, &TextPaste,NULL,O 
! „NULL,O }; 
tuO struct Menultem MenuConcat = | &MenuPaste,0,13,152,13,ITEMT 
EXTI HIGHCOMPI 
sRV ITEMENABLED, 0, &TextConcat,NU 
LL,0,NULL,O }; 
NUO struct Menulten MenuCopy = [ &MenuConcat,0,0,152,13,ITEMTEX 
TI HIGHCOMPI 
FT ITEMENABLED, 0, &TextCopy ‚NULL,O 
„NULL,O ]; 


208 #30 struct Menultem MenuReset = [ NULL,0,26,160,13, 


209 
210 
2ı1 
212 


zu, 


IsU ITEMTEXTI HIGHCOMPI ITEMENABLED 

ö I COMMSEQ, 

I 0,&TextReset,NULL, 'R',NULL,O 
x 1 

'SkO struct Menultem MenuClearAll = [ &MenuReset,0,13,160,13,ITE 
) MTEXTI HIGHCOMPI 

20X ITEMENABLED, 0, &TextClearAl 
i 1,NULL,O,NULL,O } ; 

&20 struct Menultem MenuClear = | &MenuClearA11,0,0,160,13,ITEM 
| TEXTI HIGHCOMPI 

KCU ITEMENABLED, 0, &TextClear,NULL 

‚O,NULL,O |; 


15 800 struct Menultem MenuDigi = [| NULL,72,13,152,13, 


CHECKITI ITENTEXTI HIGHCOMPI ITEM 
ENABLED, 
Oxfffffffd, KTextDig1,NULL,O,NU 
11,0}; 

MenuDigO = [ &MenuDig1,72,0,152,13, 
CHECKITI CHECKEDI ITEMTEXTI HIGHC 
OMPI ITEMENABLED, 
Oxfffffffe, &TextDigO,NULL,O,NU 
11,0); 

MenuHardware = | NULL,0,0,80,13, ITEMTEXTI HL 


ITEMENABLED,0,&TextHardwar 
e,NULL,0,&MenuDig0,0 ]; 
struct Menu MenuOptions = | NULL,304,0,64,8,MENUENABLED, "Op 
| tions”, &MenuHardware ]; 
struct Menu MenuEffects = | &MenuOptions,224,0,64,8,MENUENA 
| BLED, "Effects ”,&MenuReverse ]; 
.struct Menu MenuRange = | &MenuEffeets,152,0,48,8,MENUENABL 
ED, "Range”,&MenuCopy ] ; 
)struct Menu MenuTrack = | &MenuRange,80,0,48,8,MENUENABLED, 
 "Track”,8MenuClear }; 











245 Unu 


246 EyO struct Gadget G6Status4 = | &6CStatus3,540,11,41,13,GADGHOO 


249 19 char BufferVolume[3] = 


struct Menu MenuProject = [ 8&MenuTrack,0,0,64,8,MENUENABLED 
‚"Project”,&Menuload }; 
struet Gadget GGPlay = { NULL,8,214,88,16,GADGHCOMP,RELVERI 


BOOLGADGET, &Border2,0,&TextPlay,0, 
0,PLAY,0] ; 
"struet Gadget GGRecord = | &6GPlay,220,214,88,16,CADGHCOMP, 
RELVERIFY, 
BOOLGADGET , &Border2,0,&TextRecord, 
0,0,RECORD,0] ; 
\struct Gadget G6Stop = [| &G6GRecord,114,214,88,16,GADGHCOMP, 


BOOLGADGET, &Border2,0,&TextStop,0, 
0,5T0P,0} ; 
134 410 struct Gadget GGAutoRec = | 860Stop,326,214,88,16,GADGHCOMP 


BOOLGADGET, &Border2,0,&TextRewi 
nd,0,0,AUTOREC,0) ; 
struct Gadget GGAdvance = [| &GGAutoRec,543,214,88,16,GADGHC 
OMP,RELVERIFY, 
BOOLGADGET , &Border2,0,&TextAdvance 
‚0,0, ADJUST,0) ; 


BOOLGADGET, &Border2,0,&TextTest,0, 
0,TEST,0) ; 
struct Gadget G6Status1 = [ &66Test,57,11,41,13,GADGHCOMP,R 


BOOLGADGET, &BorderStatus1,0,N 
| ULL,0,0,STATUS1,0 }; 
20 struct Gadget G6Status2 = | &G6GStatus1,218,11,41,13,GADGHCO 
" MP,RELVERIFY, 
BOOLGADGET, &BorderStatus1,0,N 
H ULL,0,0,STATUS2,0 ]; 
PRO struct Gadget G6Status3 = | &GGStatus2,379,11,41,13,GADGHCO 
MP,RELVERIFY, 
BOOLGADGET , &BorderStatus1,0,N 
ULL,0,0,STATUS3,0 }; 


BOOLGADGET , &BorderStatus1,0,N 
ULL,0,0,STATUS4,0 }; 


248 uh0 char BufferEnd[8] = "enpty”,BufferPeriod[4] = "358”,Buffers 


N tart[8] = "begin”; 
N "64”,BufferRate[6]= ”10000”,BufferO 
neShot[8] = "0"; 
"char Not_Allocated[] = "Track 1 is not allocated”; 
‚char Out_of_Memory[] = "Sorry there's no more memory”; 
0 char BufferTrackName[4][60] = [| "untitled”, “untitled”, "unti 
tled”, “untitled” ; 
, char MyTitle[40]; 
‚struet StringInfo EndInfo = | Buffer&nd,0,0,8,0,0,0,0,10,27 
‚0,0,0 ); 
"struet StringInfo PeriodInfo = | BufferPeriod,0,0,4,0,0,0,0 
»10,27,0,0,0 }; 
struet StringInfo StartInfo = | BufferStart,0,0,8,0,0,1,6,1 
0,27,0,0,0 }; 
struct StringInfo RateInfo = | BufferRate,0,0,6,0,0,5,4,10, 
'27,0,0,0 }; 
struet StringInfo VolumeInfo = [ BufferVolume,0,0,3,0,0,3,2 
‚10,27,0,0,0 }; 
struct StringInfo OneShotInfo = [| BufferOneShot,0,0,8,0,0,3 
»2,10,27,0,0,0 ]; 
struct StringInfo TrackNameInfo = | BufferTrackName[0],0,0, 
‚49,0,0,0,0,10,27,0,0,0 }; 
"struet PropInfo MyPotiInfo; 
struct Gadget GCDrawHand = | &66Status4,16,29,608,128,GADCH 
NONE, 
RELVERIFYI GADGIMMEDIATE , BOOLGA 
DGET, 
&BorderDraw,0,NULL,O,NULL,DRAW 
0; 
|struet Gadget GGZoomIn = | &6GDraxHand,426,180,74,13,GADGHC 
. | OMP,RELVERIFY, 
q BOOLGADGET ‚&BorderZoon, 0, &TextZo 
omIn, 
0,0,Z00MIN,0} ; 
struet Gadget GGAl1 = [ &6GZoomIn,512,180,118,13,GADGHCONP, 


GADGIMMEDIATEI RELVERIFY, 

BOOLGADGET, &BorderA1l1,0,&TextAll,0, 

0,ALL,0] ; 

[ &GGA11,82,166,64,11,GADGHCOMP, 
RELVERIFYI STRINGCENTERI LONGINTI GA 
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DGIMMEDIATE,STRGADGET, 
273 Lr &BorderStart,0,NULL,0,8StartInfo, 
START, 0} ; 
274 800 struct Gadget GGSelectStart = | &G6Start,9,164,48,11,GADGHO 
OMP, 
275 bsW GADGIMMEDIATE, BOOLGADGET,, 
276 RF NULL, 0, &TextStart,0,0,START 
0; 
277 890 struct Gadget GGEnd = | &G6GSelectStart,228,166,64,11,GADGHC 
OMP, 
278 I50 RELVERIFYI STRINGCENTER| LONGINTI GADG 
IMMEDIATE, STRGADGET,, 
279 c1 &BorderStart,0,NULL,0,&EndInfo,END, 
0; 


280 Ae0 struct Gadget GGSelectEnd = | &GGEnd,155,164,33,11,GADGHCOM 
P,GADGIMMEDIATE, 


281 68W BOOLGADGET ‚NULL, 0,&TextEnd, 
282 07 0,0,END,0] ; 
283 230 struct Gadget GGPeriod = | &G6SelectEnd,173,183,32,11,GADGH 
COMP, 
284 UXR RELVERIFYI STRINGRIGHTI LONGINTI GA 
DGIMMEDIATE,STRGADGET, 
285 oM &BorderPeriod,0,NULL,O,&PeriodIn 


fo,PERIOD,0] ; 
286 1WO struct Gadget GGSelectPeriod = | &GCPeriod,112,181,55,11,CA 


DGHCOMP, 

287 mLX GADGIMMEDIATE, BOOLGADGET,N 

ULL,0,&TextPeriod, 

288 0x 0,0,PERIOD,0] ; 

289 070 struct Gadget GGRate = | &G6GSelectPeriod,274,183,48,11,GADG 
HCOMP, 

290 adP RELVERIFYI STRINGRIGHTI LONGINTI GADG 

IMMEDIATE,STRGADGET, 
291 v2 &BorderRate,0,NULL,0,&RateInfo,RAT 


E,0); 





292 GtO struct Gadget GGSelectRate = | &GGRate,222,181,39,11,GADGHC 


MP, 
293 9W GADGIMMEDIATE, BOOLGADGET,,NUL 
L,0,&TextRate, 
294 P9 0,0,RATE,O ]; 
295 RCO struct Gadget GGVolume = | &GGSelectRate,74,183,24,11,GADGH 
COMP, 
296 gjR RELVERIFYI STRINGRIGHTI LONGINTI GA 
DGIMMEDIATE, STRGADGET, 
297 02 &BorderVolume ‚O,NULL, 0, &Volumeln 
fo, VOLUME, 0] ; 
298 9TO struct Gadget GGSelectVolume = | &6GVolume,9,181,54,11,GADG 
HCOMP, 
299 wKX GADGIMMEDIATE, BOOLGADGET,N 
ULL,0, &TextVolune, 
300 10 0,0,VOLUME,O } ; 
301 7£0 struct Gadget G6ZoomOut = [ &GGSelectVolume,340,180,74,13,6 
ADGHCOMP, 
302 128 RELVERIFY, BOOLGADGET, 
303 4P &BorderZoon, 0, &TextZoomOut,0,NU 
LL,ZOOMOUT,0} ; 
304 ed0 struct Gadget GCModusi = | &GGZoomOut,105,11,41,13,GADGHCOM 
P, 
305 McR RELVERIFY,, BOOLGADGET, 
306 p6 &BorderStatus1,0,&TextLoop,O,NUL 
L,MODUS1,0] ; 


307 yMO struct Gadget GCModus2 = | &GCModus1,266,11,41,13,GADCHCOMP 

308 PfR RELVERIFY , BOOLGADGET, 

309 yB &BorderStatus1,0,&TextLoop,0,NUL 
L,MODUS2,0] ; 

310 OKO struct Gadget GCModus3 = | &GCModus2,427,11,41,13,GADGHCOMP 


311 SiR RELVERIFY,BOOLGADGET, 


Listing 4. (Fortsetzung) 

















Aktuell 


Errow-Gehäuse Bausatz zum Umbau 

des A 500 in ein PC-Metallgehäuse mit 

abgesetzter Tastatur und Aufnahme 

von 2 x 3,5” Laufwerken, internes 

Netzteil, 5,25" Festplatte, sowie 

4 x A 2000 Steckplätze, davon 

3 als AT/XT Amiga möglich. 
Gehäusebausatz 

ab 398,- DM 


Gehäusekombinationen: 
Gehäuse + A 500 eingebaut 
Gehäuse + A 500 jedoch mit 2. Laufwerk 
Gehäuse + 20 MB< 65 ms 1185,— DM 
Gehäuse + 40 MB< 40 ms 1480,— DM 
Gehäuse + A 2000 Adapterplatine 698,— DM 
Laufwerke: 
3,5" intern, für Gehäuse mit Interface 222,— DM 
3,5" extern, Metallgehäuse, abschaltbar, Bus 255,— DM 
3,5” extern, wie oben, jedoch NEC 1037 278,— DM 
5,25” extern, Metallgehäuse, 40/80 Track, abschaltbar 336,— DM 
5,25” extern, jedoch TEAC 55 366,— DM 
20 MB externe Festplatte für A500 978,— DM 
PD; Speichererweiterungen; 
weitere Infos sind gegen 
Freiumschlag erhältlich. 
Lieferung gegen Nachnahme 
‚oder Vorauskasse 
Obermörmtererstraße 1 - nähe Reeser Rheinbrücke 
4192 Kalkar 4 (Niedermörmter) 


Tel.:0 28 24 / 38 67 


1288,— DM 
1492,— DM 


ComsTee versand 


+ Ladenverkauf 
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NEUE AMIGA SOFTWARE ! EEE 
El SPRITE - ANIMATOR 


Dieser neue Sprite-Editor weist bisher noch nie dagewesene 
Eigenschaften auf. Mit Hilfe dieses Sprite-Editors können 
Sie animierte Sprites mit bis zu 16 Bewegungsphasen kinder- 
leicht erstellen. Weiterhin stellt dieser Sprite-Editor um- 
fangreiche und komfortable Funktionen zum Erstellen und 
Animieren von Sprites zu Verfügung. 

Die daraus entstehenden Sprites können im Assembler-, 
C-, Basic- oder IFF-Format abgespeichert werden. Durch 
Programmierung in Assembler ist der Sprite-Editor auch in 
seiner Verarbeitungsgeschwindigkeit bisher unübertroffen. 
Weiterhin wird die volle Pal-Auflösung des Bildschirm ge- 
nutzt. Diesen Sprite-Editor sollte jeder haben, der mit Sprites 
zu tun hat, Am besten gleich bestellen: 


SPRITE ANIMATOR Best.-Nr. A 07 00188 
Preis: 109,- DM zuzügl. 5,- DM Versandspesen 
Versand per Nachnahme oder gegen V-Scheck! 


Gegen 1,30 in Briefmarken erhalten Sie unsere Info- 

Blätter über unser derzeitiges Angebot an Amiga-Soft- 

ware. Bestellungen unter: 

Software 2000, Lange Straße 19, 2320 PLÖN 
Telefon: 04522 /13 79 


HÄNDLERANFRAGEN ERWÜNSCHT! 





&BorderStatus1,0,&TextLoop,0,NUL 
L,MODUS3,0} ; 
0 struct Gadget GGModus4 = | &GGModus3,588,11,41,13,GADGHCOMP 
s 
RELVERIFY ,BOOLGADGET, 
&BorderStatus1,0,&TextLoop,0,&Te 
ü xtLoop ‚MODUS4,0} ; 
struct Gadget GCMyPoti = [ &GCModus4,61,197,517,13,GADGHCOM 
P, 
R RELVERIFYI GADGIMMEDIATE, PROPGADG 
ET, 
&MyPotiImage,‚0,NULL,0,&MyPotiInf 
0,MYPOTI,0} ; 
struct Gadget GGOneShot = | &GGMyPoti,374,166,64,11,GADGHCO 
MP, 
RELVERIFYI STRINGCENTERI LONGINTI 
GADGIMMEDIATE,STRGADGET, 
&BorderStart,0,NULL,0,&0neShotI 
nfo,ONESHOT,O) ; 
struct Gadget G6SelectOneShot = | &GGOneShot,301,164,56,11, 
GADGHCOMP, 
GADGIMMEDIATE,, BOOLGADGET, 
NULL,O, 
&TextOneShot,0,0,0NESHOT, 
0); 
struct Gadget GGTrackName = | &6GSelectOneShot,489,166,140, 
11,GADGHCOMP, 
h RELVERIFYI STRINGCENTER, STRGAD 
GET, 
&BorderTrackName,0,&TextTrack 
Name, 
0,&TrackNameInfo,NULL,O) ; 
) struct Gadget GGLeft = | &GGTrackName,8,197,46,13,GADGHCOMP 


D 


RELVERIFY! GADGIMMEDIATE , BOOLGADGET 


’ 
&BorderLeft,0,NULL,0,NULL,LEFT,O) ; 


Ö struct Gadget GGRight = | &GGLeft,585,197,46,13,GADGHCOMP, 
RELVERIFYI GADGIMMEDIATE , BOOLGADGE 
T, 

&BorderLeft,0,NULL,0,NULL,RIGHT,O 


1; 


struct Gadget G6Select1 = | &GGRight,9,11,41,13,GADGHCOMP,R 
ELVERIFY, 
BOOLGADGET, &BorderStatus1,0,&Te 
xtCurrent[0], 
0,0,SELECT1,0 ]; 
Ö|struct Gadget GGSelect2 = | &6GSelect1,170,11,41,13,GADGHCO 
MP,RELVERIFY, 
BOOLGADGET, &BorderStatus1,0,&Te 
xtCurrent[1], 
0,0,SELECT2,0 }; 
0 struct Gadget GGSelect3 = | &GGSelect2,331,11,41,13,GADGHCO 
MP,RELVERIFY, 
i BOOLGADGET, &BorderStatus1,0,&Te 
xtCurrent[2], 
0,0,SELECT3,0 }; 
struct Gadget GGSelect4 = | &66Select3,492,11,41,13,GADGHCO 
MP,RELVERIFY, 
BOOLGADGET, &BorderStatus1,0,&Te 
xtCurrent[3], 
0,0,SELECT4,0 ] ; 
BYTE CharacterBuffer[108]; 
struct Gadget *GadgetTable[6]= 
| &6GSelectStart,&G66SelectEnd,&G66SelectPeriod, 
5. &GGSelectRate,&GGSelectVolume, &G66SelectOneShot } ; 
struet Window *OpenWindow() ‚*MyWindow; 
|struet IntuitionBase *IntuitionBase; 
struct IntuiMessage *MyMessage,*GetMsg(); 
struct Interrupt *0ldInterrupt,*SetIntVector(),*Paulal; 
struct GfxBase *GfxBase; 
struct Gadget *Pre_Gadget; 
struct SimpleSprite MySprite; 
USHORT *MySpriteData; 
UWORD SpriteGot; 
USHORT code, ItemNum,MenuNum,SubNum, ID, Number; 
APTR  msgaddress; 
ULONG NewPosition,OldPosition,RangeStart[4],RangeEnd[4],re 
gstart,regend,posbackup; 
ULONG oneshot[4],startpos[4],elass,ChunkID,ChunkLength,cou 
ntpos; 
UBYTE i,Current=0,track; 
UWORD SpritePosition,sample,rest,x1,y1; 





i  UBYTE hi,current,currenty[4]; 
Sk | UWORD rate,CurrentInt[4], IntCount[4]; 


WORD mask[4] = [ 1,2,4,8 ]; 

UWORD AudioBits=0; 

BOOL Skip=FALSE,Resident=TRUE,DisplayModus=FALSE, PLAYING, 
Modus[4]; 

ULONG start[4],end[4],1ength[4],‚allocated[4] ‚MenoryType[4] 
‚MinLength; 

ULONG volume[4],period[4],samplingrate[4],pre_period[4],pr 
e_oneshot[4]; 

ULONG ChipStart,ChipEnd,ChipPointer; 

ULONG FastStart,FastEnd, FastPointer; 


; APTR DirBuffer; 


ULONG Min,Max,Nulll,Null2; 
ULONG *parameter[6],*parapointer; 
ULONG PotiStart[6] = | 0,0,124,3583,0,0 ]; 


 ULONG MaxiPart[6] = | 1,1,875,25287,64,1 ]; 
} ULONG Step[6] = [ 2,2,1,31,1,2 }; 


LONG MyFile,lock; 
FILE *MYFILE; 
struct FileInfoBlock *FileInfoBlock; 
struct RastPort *RastPort; 
char BufferFileName[108]; 
extern struct ExecBase *SysBase; 
struct FastIntVariables 
[ VLONG start; 

ULONG MemCounter; 

ULONG end; 

APTR CopyBufferl; 

APTR CopyBuffer2; 

APTR RestBuffer; 

\WORD RestLength; 

BOOL *Modus; 

APTR Next; ]; 
extern struct FastIntVariables FastIntVariables[4],RepeatVa 
riables[4]; 


) struct VHDR [ ULONG Length; 


ULONG OneShotHiSamples; 
ULONG RepeatPart; 
ULONG SamplesPerHiCycle; 
UWORD SamplesPerSecond; 
UBYTE Octaves; 
UBYTE Packed; 
ULONG Volume; }; 

ULONG FORM_ID,_8SVX_ID,VHDR_ID,BODY_ID; 


| struet FSound [ ULONG length; 


UWORD samplingrate; }; 

struct BODY [ ULONG BODY_ID; 
ULONG Length; ]; 

struet IFF [ ULONG FORM_ID; 
ULONG Length; 
ULONG _8SVX_ID; 
ULONG VHDR_ID; 
struct VHDR VHDR; 
struct BODY BODY; 

struct FSound FSound; 

struct VHDR VHDR; 

struct IFF #IFF; 


extern USHORT Hardware; 


extern void SetStart(),SetEnd(),SetPeriod(),SetRate(),‚SetVo 
lume()‚SetOneShot(); 


‚extern struct StringInfo StrRampInfo1,StrRampInfo2; 


void (*funetion[]) () = | &SetStart,&SetEnd,&SetPeriod,&Set 
Rate, &SetVolume, &SetOneShot ]; 
main() 


it 


IntuitionBase=(struct IntuitionBase *)OpenLibrary( "intuiti 
on.library”,0); 

if (! IntuitionBase) GoodBye(); 

GfxBase=(struct GfxBase *)OpenLibrary( "graphies.library”,0 
); 

if (! GfxBase) GoodBye; 

MyPotiInfo.Flags=AUTOKNOBI FREEHORIZ; 
MyPotiInfo.HorizBody=512; 

MyPotiInfo.HorizPot=0; 

IFF=AllocMem(sizeof(struct IFF) ,MEMF_PUBLICI MEMF_CLEAR) ; 
FileInfoBlock=AllocMem(sizeof(struct FileInfoBlock) ‚MEMF_P 
UBLICI MEMF_CLEAR) ; 

Paulal=(struct Interrupt *)AllocMem(sizeof(struct Interrup 
t) ‚MEMF_PUBLIC) ; 

e2=ChipSleepy=AllocMem(sizeof(Sleepy) ‚MEMF_CHIP); 
e1=Sleepy; 

for (1:051<54;i4+) *odHtekclt+; 
e2=ChipLeft=AllocMem(sizeof(LeftData) ‚MEMF_CHIP) ; 
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440 8&h LeftImage.ImageData=(USHORT *)c2; opyBufferl; 
44 cs  clsLeftData; 476 Ru FastIntVariables[i].CopyBuffer2=AllocMem(64,MEMF_CHI 
442 Ba for (i=0;i<18;i4+) Ko2+tskeltt; P); 
443 fh c2=ChipRight=AllocMen(sizeof(RightData) ‚MEMF_CHIP); 477 26 RepeatVariables[i].CopyBuffer2-=FastIntVariables[i].C 
444 40. RightImage. ImageData=(USHORT *)c2; opyBuffer2; 
445 Tv elsRightData; 478. 19 FastIntVariables[i].RestBuffer=AllocMem(128,MEMF_CHI 
446 #3 for (1=0;i<18;i4+) *c2++=Kel+4; P); 
447 85 MySpriteData=c2=c1=AllocMen(516,MEMF_CHIPI MEMF_CLEAR) ; 479 %Q RepeatVariables[i].RestBuffer=AllocMem(128,MEMF_CHIP 
448 AU *c24+=0x0000; ); 
449 BV  *%02++=0x0000; 480 KF6 } 
450 Ya for (1:0;1<128;14+) *c2++=0x8000, *c2++=0x8000; 481 CQ1 parameter[0]=startpos; 
451 nf if (!(DirBuffer=AllocMem(2000,MEMF_PUBLICI MEMF_CLEAR))) Go 482 Xi parameter[1] 

odBye(); 483:T1 parameter[2] 
452 IV NewWindow.FirstGadget=&0GSelect4; 484 Ty  parameter[3]=samplingrate; 
453 pA  MyWindow=OpenWindow(&NewWindow) ; 485 MT parameter[4]=volume; 
454 CE if (! MyWindow) GoodBye(); 486 I4_ parameter[5]=oneshot; 
455 W2 RastPort=MyWindow->RPort; 487 Vy  InitMemory(); 
456 iD SetAPen(RastPort,0); 488 Ej SetAPen(RastPort,0); 
457 ny Setllenustrip(MyWindow,&MenuProject); 489 a) SetDräd(RastPort,COMPLEMENT) ; 
458 gB DrawImage(RastPort,&LeftImage,0,0); 490 11 RectFill(RastPort,9,11,49,23); 
459 Yn DrawImage(RastPort,&RightImage,0,0); 491 Xr  RectFill(RastPort,114,214,201,229); 
460 eM DisplayTrack(0, FALSE); 492 1X InversGadget(GadgetTable[0]); 
46i ds Stop(); 493 nd  FORM_ID=MakeID('F','0','R','M'); 
462 ve SetPointer(MyWindow,ChipSleepy,26,16,0,0); 494 84H _8SVX_ID=MakeID('8','8!,'V1,'X'); 
463 {B for (1=0;i<=3;14+) 495 04 | VHDR_ID=MakeID('V','H','D','R'); 
464 Qt6 { 496 6y  BODY_ID=MakeID('B','0','D','y'); 
465 nq7 SetStatus(i); 497 Mw ClearPointer(MyWindow) ; 
466 YI period[i]=pre_period[1]=358; 498 al FOREVER 
467 99 samplingrate[1]=10000; 4925 | 
468 0b MemoryType[1]=0; 500 x? if (PLAYING &% (AudioBits & mask[Current]) && !DisplayMod 
469 4 volume[i]=64; us) 
470 ul IntCount[i]= 501 106 { 
471.00 CurrentInt[ 502 XP7 SpriteGot=GetSprite(&MySprite,1); 
472 Cm Modus[1]=L00P; 503 rd MySprite 
473 DI eurrenty[i]=0; 504 mu MySprite 
Ta Ne FastIntVariables[i].CopyBufferi=AlloeMem(64,MEMF_CHI 505 IM MySprite.height=128; 

P); 

475 0y RepeatVariables[1].CopyBufferi=FastIntVariables[i].C Listing 4. (Fortsetzung) 











- r-Software 
> nnemeni: 
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Adtais Wußten Sie, daß Sie die Disketten zu den Listings aus diesem 
Heft im Abonnement bestellen können? Für nur DM 298,- 
jährlich erhalten Sie jeden Monat die Diskette aus einer dieser 
Zeitschriften: 64’er, Amiga Magazin, PC Magazin Plus oder 


ST-Magazin. 
— | Für Schüler und Studenten gibt's Ermäßigung: DM 278,- 
‚Abo für Zeitschrift/ jährlich (bitte Kopie des Ausweises beifügen). Sie können 
ab Ausgabe vierteljährlich, halbjährlich oder jährlich bezahlen. 


Sie sparen sich durch ein Abo mehr als DM 50,- und die Zeit 
für die Bestellabwicklung - deshalb: am besten 

gleich den Coupon ausschneiden und ausgefüllt an die 
genannte Adresse schicken! 

Das Abo kann innerhalb von 8 Tagen 
widerrufen werden. 


, Markt&Technik Verlag AG 
Unterschrift des Erziehungs- Markt&fechnik Unternehmensbereich Buchverlag 


Zeitschriften - Bücher 


j Berschtiaten bei Jugeng- Software . Schulung _ Hans-Pinsel-Str. 2, 8013 Haar bei München " 


lichen unter 18 Jahren 


'DWBWDBuB 


Datum/Unterschrift 


Zahlungsweise '/, "/, "/, 











ChangeSprite(0, &MySprite,MySpriteData); 
while (CheckPort(MyWindow->UserPort)) 
l 
struct FastIntVariables *IntData; 
ULONG *StartPtr=&RangeStart[Current],*EndPtr 
=&RangeEnd[Current]; 
IntData=(SysBase-> IntVects[7+Current]) .iv_D 
ata; 
NewPosition=IntData->MemCounter-start[Curre 
nt]; 
if (NewPosition>=*StartPtr && NewPosition< 
=*EndPtr) 
SpritePosition=7+304% (NewPosition - *Sta 
rtPtr)/(*EndPtr - %StartPtr); 
else SpritePosition=0; 
if (SpritePosition != OldPosition) 
{ 
MoveSprite(0,&MySprite,SpritePosition,2 
N; 
OldPosition=SpritePosition; 


} 


FreeSprite(SpriteGot); 
} 
else WaitPort(MyWindow->UserPort); 
if (MyMessage=GetMsg(MyWindow->UserPort)) 
{ 
class=MyMessage->Class; 
code=MyMessage-> Code; 
msgaddress=MyMessage-> IAddress; 
switch(class) 
l 
case MOUSEMOVE: 
FreeHand(Current); 
Skip=TRUE; 
break; 
CLOSEWINDOW: 
GoodBye(); 
break; 
MENUPICK: 
MenuNum=MENUNUM(code) ; 
ItemNum=ITEMNUM(code); 
SubNum=SUBNUM(code) ; 
switch(MenuNum) 
{ 
case 0: 
switch(ItemNum) 
l 
case 1: 
track=Current; 
if (!AllocationCheck(track)) continue; 
if (!GetFileName(BufferFileName,CharacterBu 
ffer, "Save track”,DirBuffer,2000,Resident)) 


{ Resident=TRUE; 
break; 
3 
if (!(MYFILE=fopen(CharacterBuffer, ”w”))) 
{ SetWindowTitles(MyWindow, Sorry, I ca 
n't open this file! ”,-1); 
Resident=TRUE; 
eontinue; } 
SetPointer(MyWindow,ChipSleepy,26,16,0,0); 
Resident=FALSE; 
switch(SubNum) 
{ 
case 0: 
WriteBody(1); 
break; 
ease 1: 
furite(&length[track],1,4,MYFILE); 
fwrite((UBYTE *) (&samplingrate[track])+2, 
1,2,MYFILE); 
WriteBody(1); 
break; 
case 2: 
if (lengthltrack] < 32767) 


SaveIFF(5); 
WriteBody(5); 


) 





else [ 
SaveIFF(1); 
WriteBoay(1); 
} 
break; 
) 
ClearPointer(MyWindon); 
EmptyPort(); 
break; 
case 2: 
if (!GetFileName(BufferFileName,CharacterBu 
ffer, "Delete file”,DirBuffer,2000,Resident) 
) 
{ Resident=TRUE; 
break; 


if (DisplayRequest(4, "Warning! ”)==CANCEL) b 
reak; 

DeleteFile(CharacterBuffer); 

Resident=FALSE; 

EmptyPort(); 

break; 

case 0: 

if (!GetFileName(BufferFileName,CharacterBu 
ffer,”Load track”,DirBuffer,2000,Resident)) 


{ Resident=TRUE; 
EmptyPort(); 
break; 


Resident=TRUE; 
track=Current; 
SetPointer(MyWindow,ChipSleepy,26,16,0,0); 
if (!LoadFile(CharacterBuffer)) 
[ ClearPointer(MyWindow) ; 
EmptyPort(); 
continue; } 
ClearPointer(MyWindow) ; 
pre_period[track]=period[track]; 
pre_oneshot[track]=oneshot[track] ; 
DisplayTrack(Current, TRUE); 
SetStatus(Current); 
EmptyPort(); 
break; 
case 3: 
DisplayRequest(0, "About program”); 
EmptyPort(); 
break; 
J 
break; 
case 1: 
switch(ItemNum) 
l 
case 0: 
if (!AllocationCheck(Current)) continue; 
if (DisplayRequest(5, "Warning! ”)==CANCEL ) 
break; 
SetPointer(MyWindow,ChipSleepy,26,16,0,0); 
ClearTrack(Current); 
ClearPointer(MyWindow) ; 
break; 
case 1: 
if (DisplayRequest(6, "Warning! ”)==CANCEL) b 
reak; 
SetPointer(MyWindow,ChipSleepy,26,16,0,0); 
for (track=0;track<=3;track++) 
if (start[track]) ClearTrack(track); 
ClearPointer(Mykindow) ; 
break; 
case 2: 
if (!AllocationCheck(Current)) continue; 
ResetTrack(Current); 
SetStatus(Current); 
break; 
3 
break; 
case 2: 
switch(ItemNun) 
| 
case 0: 
if(!AllocationCheck(Current)) continue; 
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track=(UBYTE)DisplayRequest(2, "Copy a track 
Bi 

if (!track) break; 

track--; 

if (!start[track]) 


if (!Memory(track,length[Current])) co 
ntinue; 
SetPeriod(track,period[Current]); 
oneshot[track]=oneshot[Current]-startp 
os[Current]; 
3 
if (length[Current] > length[track]) Mine 
ngth=length[track]; 
else MinLength=length[Current]; 
SetPointer(MyWindow,ChipSleepy,26,16,0,0); 
SetWindowTitles(MyWindow, "Copying track...” 
ed); 
FastCopy(start[Current]+startpos[Current],s 
tart[track]+startpos[track] ‚MinLength) ; 
ClearPointer(MyWindow) ; 
EmptyPort(); 
break; 
case 1: 
if (!AllocationCheck(Current)) continue; 
track=DisplayRequest(3, ”Concat Range”); 
if (!track) break; 
track--; 
if (!AllocationCheck(track)) continue; 
SetWindowTitles(MyWindow, "Concat the tracks 
ld; 
SetPointer(MyWindow,ChipSleepy,26,16,0,0); 
if (!Concat(Current,track)) 
[ SetWindowTitles(MyWindow,Out_of_Memor 
Ye; 
ClearPointer(MyWindow) ; 
eontinue; } 
ClearPointer(MyWindow) ; 
RangeStart[track]=0; 
RangeEnd[track]=(allocated[track]-1)/608*60 
8+607; 
if (track==Current) DisplayTrack(Current,FA 
1SE); 
EmptyPort(); 
break; 
case 2: 
if (!AllocationCheck(Current)) continue; 
track=DisplayRequest(7, "Paste Range”); 
if (!track) break; 
track--; 
if (!AllocationCheck(track)) continue; 
SetWindowTitles(MyWindow, "Pasting range...” 
vl); 
SetPointer(MyWindow,ChipSleepy,26,16,0,0); 
if (!Paste(Current,track)) 
{ SetWindowTitles(MyWindow,Out_of_Memor 
Yy-l); 
ClearPointer(MyWindow); 
continue; } 
ClearPointer(MyWindon) ; 
RangeStart[track]=0; 
RangeEnd[track]=(allocated[track]-1)/608*60 
8+607; 
if (track==Current) DisplayTrack(Current,FA 
1SE); 
EmptyPort(); 
break; 
case 3: 
if (!AllocationCheck(Current)) continue; 
track=DisplayRequest(7, "Insert Range”); 
if (Itrack) break; 
track--; 
if (!AllocationCheck(track)) continue; 
SetWindowTitles(MyWindow, ”Inserting range.. 
4-1); 
SetPointer(MyWindow,ChipSleepy,26,16,0,0); 
if (!InsertRange(Current,track)) 
{ SetWindowTitles(MyWindor,Out_of_Memor 
Y-ll; 
ClearPointer(MyWindow) ; 
continue; } 





ClearPointer(MyWindow) ; 
RangeStart[track]=0; 
RangeEnd[track]=(allocated[track]-1)/608*60 
8+607; 
if (Current==track) 
t 
SetStart(Current,startpos[Current]); 
SetEnd(Current,end[Current]); 
SetOneShot (Current,oneshot[Current]); 
DisplayTrack(Current, FALSE) ; 


EmptyPort(); 
break; 
} 
break; 
case 3: 
switch(ItemNum) 
l 
case 0: 
track=Current; 
if (!AlloeationCheck(track)) continue; 
SetWindowTitles(MyWindow, "Reversing track.. 
1); 
SetPointer(MyWindow,ChipSleepy,26,16,0,0); 
Reverse(track) ; 
ClearPointer(MyWindow); 
DisplayTrack(Current, FALSE) ; 
EmptyPort(); 
break; 
case 1: 
if (!AllocationCheck(Current)) continue; 
track=DisplayRequest(7, "Mix two tracks”); 
if (!track) break; 
track--; 
SetPointer(MyWindow,ChipSleepy,26,16,0,0); 
if (!AllocationCheck(track)) continue; 
SetWindowTitles(MyWindow, “Mixing the tracks 
el); 
Mix(track); 
ClearPointer(MyWindow); 
EmptyPort(); 
break; 
case 2: 
if (!AllocationCheck(Current)) continue; 
SetPointer(MyWindow,ChipSleepy,26,16,0,0); 
SetWindowTitles(MyWindow, "Period *= 2 
1; 
if (!Double(Current)) 
{ SetWindowTitles(MyWindow,Out_of_Memor 
Y-ll; 
ClearPointer(MyWindow); 
eontinue; } 
ClearPointer(MyWindow);; 
EmptyPort(); 
break; 
case 3: 
if (!AllocationCheck(Current)) continue; 
SetWindowTitles(MyWindow, "Period /= 2 ...”, 
-1); 
SetPointer(MyWindow,ChipSleepy,26,16,0,0); 
Halve(Current); 
ClearPointer(MyWindow) ; 
EmptyPort(); 
break; 
) 
case 4: 
switch(ItemNum) 
t 
case 0: 
switch(SubNum) 
( 
case 0: 
Hardware=0; 
break; 
case 1: 
Hardware=1; 
break; 


} 


break; 


Listing 4. (Fortsetzung) 















789 JEF 
790 foE 
791 16D 
792 hqa 
793 6B 
794 yF 
795 dX 
796 mFE, 
797 ETF 
798 ED 
799 0x 
800 uPE 
801 ghA 
802 sLG 
803 B5H 





















































804 SX 
805 D7 


806 F£ 


807 w5 
808 2XG 
809 p8A 
810 OTF 
811 qLG 
812 xF 
813 oF 


814 UK 
815 9 


816 3M 
817 12 


818 pC 


819 8H 
820 EjF 
821 QfA 
822 OfF 
823 2X6 
824 9R 
825 79 


826 gW 
827 IT 


828 FY 
829 U1 


830 10 


831 KT 
832 QvF 
833 FkA 
834 OrF 
835 BYG 
836 Fk 
837 98 


838 Pm 


839 t) 
840 ro 


841 60 
842 u6 
843 gl 
844 Vo 
845 w9 


846 He 


847 aj 
848 gBF 
849 clA 
850 Hj 
851 tA 
852 ja 
853 hAF 


60 


) 


break; 


) 


break; 


case 


GADGETDOWN: 


ID-((struct Gadget *)msgaddress)->GadgetID; 


if ( 


{ 


ID==DRAW ) 


FreeHand(Current); 


Skip=TRUE; 
break; 
} 

if ( (ID>=START) && (ID<=ONESHOT) ) 

{ 
InversGadget(GadgetTable[currenty[Current] 
D; 
eurrenty[Current]=ID-START; 
InversGadget(GadgetTable[currenty[Current] 
D; 
if (currenty[Current]<2 &% DisplayModus) 
DisplayTrack(Current, FALSE); 
break; 

) 

if ( ID==RICHT ) 
t 

eurrent=currenty[Current]; 

parapointer=parameter[current]; 

if (eurrent<2 Il current==5) SoundOFF(Curr 

ent); 

do [ 

funetion[eurrent] (Current,parapointer[Curre 

nt]+Step[eurrent]); 

} while(!(64 & *((UBYTE *)Oxbfe001))); 

if (eurrent<2 Il current==5) SetStatus(Cur 

rent); 

if (current<2 && DisplayModus) DisplayTrac 

k(Current, FALSE) ; 

break; 

} 
if ( ID==LEFT ) 
t 

eurrent=currenty[Current]; 

parapointer=parameter[current]; 

if (eurrent<2ll eurrent==5) SoundOFF(Curre 

nt); 

do [ 

funetion[current] (Current, parapointer[Curre 

nt]-Step[eurrent]); 

] while(!(64 & *((UBYTE *)Oxbfe001))); 

if (eurrent<2 Il eurrent==5) SetStatus(Cur 

rent); 

if (eurrent<2 &% DisplayModus) DisplayTrac 

k(Current, FALSE); 

break; 

J 
if ( ID==MYPOTI ) 
l 

ULONG SetValue; 

eurrent=currenty[Current]; 

MaxiPart[0]=MaxiPart[1]=MaxiPart[5]=allocat 

ed[Current]-1; 

if (eurrenty[Current]<2 Il currenty[Curren 

+4]==5) SoundOFF(Current); 

do | 

SetValue=(MyPotiInfo.HorizPot> >7)*MaxiPar 

t[eurrent]; 

SetValue /= 511; 

SetValue += PotiStart[current]; 

funetion[eurrent](Current,SetValue); 

} while(!(64 & *((UBYTE *)0xbfe001))); 

if (eurrenty[Current]<2 Il eurrenty[Curren 

t]==5) SetStatus(Current); 

if (eurrent<2 && DisplayModus) DisplayTrac 

k(Current, FALSE); 

break; 

3 
break; 
case GADGETUP: 


ID=((struct Gadget *)msgaddress)->GadgetID; 
switeh(ID) 


| 





case ZOOMOUT: 
RangeStart[Current]=0; 
RangeEnd[Current]=(allocated[Current]-1)/60 
8*608+607; 
DisplayTrack(Current, FALSE); 
break; 

case ZOOMIN: 
DisplayTrack(Ourrent, TRUE) ; 
break; 

case ALL: 

if (DisplayModus) 


DisplayModus=FALSE; 
PrintIText(RastPort,&TextAl1,512,180) ; 


DisplayTrack(Current, FALSE); 
} 


l 
DisplayModus=TRUE; 
SetAPen(RastPort,0); 
SetDrMd(RastPort,JAM1); 
RectFill(RastPort,513,181,513+115,191) 


; 
PrintIText(RastPort, &TextOne_One,512,1 
80); 
DisplayTrack(Current, FALSE); 
} 

break; 

case PLAY: 

f (IPLAYING) 
{ 
SetDrMd(RastPort,COMPLEMENT) ; 
SetAPen(RastPort,0); 
RectFill(RastPort,8,214,95,229); 
RectFill(RastPort,114,214,201,229) ; 
) 

PLAYING=TRUE; 

Stop(); 

Play(); 

break; 

case RECORD: 

Stop(); 

SetWindowTitles(MyWindow, "Waiting for mouse 

elick...",-1); 

Test(); 

RecordTrack(Current,0); 

pre_period[Current]=period[Current]; 

EmptyPort(); 

DisplayTrack(Current, TRUE); 

break; 

case STOP: 

f (PLAYING) 
! 
SetDrMd(RastPort,COMPLEMENT) ; 
SetAPen(RastPort,0); 
RectFill(RastPort,114,214,201,229); 
RectFill(RastPort,8,214,95,229) ; 


PLAYING=FALSE; 

Stop(); 

break; 

case AUTOREC: 

Stop(); 

SetWindowTitles(MyWindow, "Waiting for Sound 
Eh) 

VaitSound(); 

RecordTrack(Ourrent, "Auto Recording...”); 
DisplayTrack(Current, TRUE) ; 

break; 

case ADJUST: 

Stop(); 

SetWindowTitles(MyWindow, "Adjust your digit 
izer...”,-1); 

Adjust(); 

EmptyPort(); 

break; 

case TEST: 

Stop(); 

SetWindowTitles(MyWindow, "Testing quality.. 
1); 
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Test(); 
EmptyPort(); 
/% 
if (!Listen((UWORD)period[Current])) 
{ Listening=FALSE; 
break; ] 
Listening=TRUE; *% 
break; 
3 
if (ID==START) 
l 
SoundOFF(Current) ; 
SetStart(Current,StartInfo.LongInt); 
SetStatus(Current); 
break; 


if ( (ID>=STATUS1) &% (ID<=STATUS4) ) 


Number=ID-STATUS1; 

if (!start[Number]) break; 
AudioBits “= mask[Number] ; 
SetStatus(Number) ; 

break; 


ID==PERIOD ) 


SetPeriod(Current,PeriodInfo.LongInt); 
break; 


ID==ONESHOT ) 

SoundOFF(Current) ; 
SetOneShot(Current,OneShotInfo.LongInt) ; 
SetStatus(Current); 

break; 


ID==RATE ) 


SetRate (Current, RateInfo.LongInt) ; 
break; 





if ( (ID>=SELECTL) && (ID<=SELECT4) ) 
t 
InversGadget(GadgetTable[currenty[Current] 
D; 
SelectTrack(ID-SELECT1) ; 
InversGadget(GadgetTable[eurrenty[Current] 
D; 
break; 
} 
if ( ID==VOLUME ) 
{ 
SetVolume (Current, VolumeInfo.LongInt) ; 
break; 
] 
if ( (ID>=MODUS1) && (ID<=MODUS4) ) 
t 
Number=ID-MODUS1; 
f (Modus[Number]==LO0P) 
[ 
Modus[Number]=0NCE; 
PrintIText(RastPort, &TextOnce,105+161* 
Number,11); 


} 
l 


Modus [Number ]=LOOP; 
PrintIText(RastPort, &TextLoop, 105+161* 
Number ,11); 

3 
break; 


} 
if ( ID==END ) 


SoundOFF(Current); 
SetEnd(Current,EndInfo.LongInt); 
SetStatus(Current); 

break; 


} 


break; 
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} 
ReplyMsg(MyMessage) ; 
if (Skip) Skip=FALSE; 
else 
t 
for (i=0;i<40;i++) MyTitle[i]=0; 
Number_to_String(MyTitle, (2+ChipEnd-ChipPointer)/1024 
»2); 
streat(MyTitle,”k chip + ”); 
Number_to_String(MyTitle+strlen(MyTitle) ,(2+FastEnd-F 
astPointer)/1024,3); 
streat(MyTitle,”k fast memory free”); 
SetWindowTitles(MyWindow,MyTitle,-1); 
RefreshOneShot(Current); 


(6) 1987 M&T 
Listing 4. (Schluß) 





Programmname: displaytrack.c 





Computer: Amiga 500, 1000, 2000 mit Kickstart 
1.2 





Sprache: C 





Compiler: Aztec C V36 
Aufrufe: cc +1-s +idmp displaytrack.c 


Programm : displaytrack.c 


#define abs(x) ((x)<0?-(x):(x)) 
"extern struct Window *MyWindow; 


Merten BOOL DisplayModus; 
. jextern ULONG RangeStart[4],RangeEnd[4]; 
extern UBYTE eurrenty[4]; 
extern char *MyPlane; 
|CalculateAll(Track) 
UBYTE Track; 


1 UWORD fast,part; 

| UBYTE *value; 
UBYTE sampledvalue; 
ULONG sum, endpos; 


value=start[Track]+RangeStart[Track]+part; 
endpos=start[Track]+allocated[Track]-1; 
for (fast=1;fast<609; fast++) 


if (endpos > value) sampledvalue=*value; 
else sampledvalue=0; 

sampledvalue” =128; 
sampledvalue=sampledvalue> >1; 
coordinates[fast-1]=156-sampledvalue; 
value += part; 


coordinates[608]=92; 
} 
NextPosition(Position, track) 
ULONG Position; 
UBYTE track; 
l 
register UWORD fast; 
UBYTE *value; 
UBYTE sampledvalue; 
ULONG MemoryStart; 
ULONG MemoryEnd; 
fast=0; 
MemoryStart=start[track]+Position; 
MemoryEnd=start[track]+allocated[track]; 


Listing 5. »displaytrack.c«. Bitte mit dem Checksummer 
(Seite 159) eingeben. 














































while (fast<609) 





value=(UBYTE *) (MemoryStart+fast); 
sampledvalue=*value; 

if (value > MemoryEnd) sampledvalue=0; 
sampledvalue "= 128; 
sampledvalue=sampledvalue> >1; 
"eoordinates[fast]=156-sampledvalue; 
fast++; 





isplayTrack (Number, Flag) 
UBYTE Number, Flag; 


L UWORD i; 

if (!start[Number]) 
l 
for (1-0;1<609;i4+) coordinates[1]=92; 
Drault(); 
return; 
) 

if (Flag) 
{ 
RangeStart[Number]=startpos[Number] ; 
RangeEnd[Number]=startpos[Number]+(end[Number]-startp 
os[Number] )/608*608+607; 


if (DisplayModus) 

{ 

if (currenty[Number]==1 && length[Number] >608) 
NextPosition(end[Number]-608,Number) ; 

else NextPosition(startpos[Number] ‚Number) ; 
Drault(); 
return; 

} 


else 


CalculateAll(Number) ; 

Drault(); 

DrawLine (Number, startpos[Number]) ; 

DrawLine (Number, end[Number]); 

if (oneshot[Number]) DrawLine(Number,oneshot[Number]) 





MyPlane=MyWindow->RPort->BitMap->Planes[0]; 
SetDrMd(RastPort,JAM1); 

SetAPen(RastPort,0); 
ReetFill(RastPort,9,28,628,157); 
DrawLines(coordinates, 607,0); 










































neg. 


rts 
#endasm 
reeHand(Current) 
UBYTE Current; 


SHORT x,y; 


movem.1 (a7)+,d0-d7/a0-a6 


asr. d6,d2 
bee eveni 
or.l di,(al) 
adda.w d4,al 
move.w d2,d3 
bra lstarti 
or.l a1,(a1) 
adda.w d4,al 
dbra 42,14 
lsr.1 d6,dı 
bra lstart2 
or.l 41, (a1) 
adda.w d4,al 
dbra 43,15 
elr.w d2 
move.b (a0)+,d2 
bra 13 
sub.b (a0),d2 
asr.b d6,d2 
bee even2 
or.l di,(al) 
suba.w d4,al 
move,.w d2,d3 
bra lstart3 
or.l  di,(al) 
suba.w d4,al 
dbra d2,16 
lsr.l d6,dı1 
1 bra lstart4 
60 or.l di,(al) 
16 ‘ suba.w d4,al 
162 9h0 Istart4 dbra 3,17 
163 xiA elr.w d2 
164 H4 move.b (a0)+,d2 
165 X90 13: tst.w di 
beq.s nextbyte 
add.w dö,al 
move.1 d7,d1 
dbra d0,nextbit 




















62 


public _DrawLines 
) _DranLines: 

moven.1 d0-d7/a0-a6,-(a7) 
elr.l do 
elr.l d2 
move.1 64(a7),a0 ;_MemStart 
move.1 72(a7),d0 ;_PixelPos 
move.1 _MyPlane,al 
divu #16,d0 
asl.v #1,d0 
add.w dO,al 
elr.w do 
swap dO 
move.1 #3%80000000,dı 
lsr.1 do,dı 
move.b (a0),d2 
mulu #80,d2 
add.w d2,al 
add.v #2,al 
elr.w d2 

b (a0)+,d2 

w #80,d4 

“w #2,d5 

w #1,d6 

1 68(a7),do 

2 #380000000,47 





ULONG *StartPtr=&RangeStart[Current] ‚*EndPtr=&RangeEnd[Cur 
rent]; 
if (lAllocationCheck(Current)) return; 

f (!DisplayModus) 

























SHORT LineStart,LineEnd,LineRepeat; 
ULONG NewStart,NewEnd,NewRepeat; 
SoundOFF(Current) ; 
ao [ 
x=MyWindow->MouseX; 
if (x<16 Il x>625) continue; 
LineStart=608*(startpos[Current] - *StartPtr)/(XEndPt 
r - %StartPtr); 
LineEnd=608%(end[Current] - *StartPtr)/(*EndPtr - *St 
artPtr); 
LineRepeat=608*(oneshot[Current] - *StartPtr)/(*EndPt 
r - *StartPtr); 
NewStart=abs(LineStart-(x-16)); 
NewEnd=abs(LineEnd-(x-16)); 
NewRepeat=abs(LineRepeat-(x-16)); 
f ( NewStart < NewEnd && NewStart <= NewRepeat ) 

l 
NewStart = (x-16)*(*EndPtr - XStartPtr)/608 + XS 
tartPtr; 
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17 w SetStart (Current, NewStart); 
198. ChA } 
199 536 else if ( NewEnd > NewRepeat)‘ 
200 Ada { 


201 0eB 


NewRepeat=(x-16)*(*EndPtr - *StartPtr)/608 + *St 
artPtr; 

202 1y SetOneShot(Current,NewRepeat) ; 

203 Hma ) 
204 7u6 

205 Fih { 
206 30B 


NewEnd=(x-16)*(*EndPtr - %StartPtr)/608 + *Start 

HR, Ptr; 

207 Ch SetEnd(Current, NewEnd) ; 

208 MrA } 

209 G26 } while(!(64 & *((UBYTE *)Oxbfe001))); 

210 Iv SetStatus(Current); 

211 Pus } 

212 qvo } 

213 Il DrawLine(Track,Position) 

214 Wpi UBYTE Track; 

215 Fun ULONG Position; 

216 gt0 | 

217 nKl ULONG LinePosition; 

218 Yl ULONG *StartPtr=&RangeStart[Track],*EndPtr=&RangeEnd[ Track 

1; 

219 1B if (Position>=*StartPtr & Position<=*EndPtr) 

220 Ux5 { 

‚221 006 LinePosition=608% (Position - *StartPtr)/(XEndPtr - #8 
tartPtr); 

222 HQ SetDrMd(RastPort,COMPLEMENT) ; 

223 11 Move(RastPort, LinePosition+16,28); 

224 54 Draw(RastPort,LinePosition+16,156); 

225 d85 

226 e90 } 

(C) 1987 MET 


Listing 5. (Schluß) 




















Programmname: mydir.c 
Computer: Amiga 500, 1000, 2000 mit Kickstart 
1.2 
Sprache: C 
Compiler: Aztec C V3.6 
Aufrufe: cc +1-s +idmp mydir.c 





Programm : mydir.c 


1 NS0, ZRRRERRRRRRRRRRRRRRRRRRHRERRRRRRRERRRRRRRREE/ 
,/* Subroutine to get a filename from disk %*/ 
/* written by: Christian Wolf % 
/% Matthias-Claudius-Weg 58 %*/ 
Ir 2190 Cuxhaven 1 x 
1% 04721/24269 ”/ 
RRRRRORORBRSHRRRBRSROGRRERRRHRRRBRHRRAERRR/ 
#define toAPIR(b) ((b)<<2) 
 #define toBPTR(a) ((a)>>2) 
extern struct DosLibrary *DOSBase; 
static struct RootNode *Root; 
static struct DosInfo *DosInfo; 
static struct DeviceList *DevList; 
static struct NewWindow NewSpecialWindow = [ 
170,25,300,147,0,1, 
CLOSEWINDOWI GADGETUPI GADGETDOWNI DISKINSERTEDI DISKREM 
OVED, 
WINDOWCLOSEI ACTIVATEI WINDOWDEPTHI WINDOWDRAG, 
NULL, NULL, 
NULL, 
NULL, NULL, 
640,200,640,200, 
WBENCHSOREEN } ; 
static struct IntuiText SubTextLoad = [1,0,JAM1,3,2,NULL, "D 
6 it!”,NULL ]; 
static struct IntuiText TextVolumes = [1,0,JAM1,3,2,NULL, "S 
how Volumes”,NULL }; 
static struct IntuiText TextParent = [1,0,JAM1,11,2,NULL, ”P 
Jarent Dir”,NULL }; 
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static struet IntuiText TextDrawer = [1,0,JAM1,12,106,NULL, 
| "Drawer”,NULL }; 

static struet IntuiText TextFile = [1,0,JAM1,12,120,NULL, ”F 
ile”,&TextDrawer ]; 

static struct IntuiText TextFileName = (1,0,JAM2,0,0,NULL,N 

"ULL,NULL }; 

29 DP: static USHORT SubLinesCancel[] = [ 0,0,55,0,55,10,0,10,0,0 
a; 

30 OF static USHORT LinesMyUp[] = 
31 hf static USHORT LinesDrawer[] 








ar 


{ 0,0,19,0,19,14,0,14,0,0 }; 
= [ 0,0,281,0,281,10,0,10,0,0 } 


32 Iy static USHORT LinesMyCursorUp[] = [ 6,12,13,12,13,7,16,7,10 
.01,2,9,2,3,7,6,7,6,12 ); 

33 80 static USHORT LinesMyCursorDown[] = [ 6,2,13,2,13,7,16,7,10 
‚12,9,12,3,7,6,7,6,2 ); 


34 1X static USHORT LinesParent[] = | 0,0,103,0,103,10,0,10,0,0 } 
Kae 3 

35 dl static USHORT CursorData[] = | 0x0180,0x0180,0x0180,0x0180, 

0x0180,0x3ffc,Ox1ff8, 

36 61V i 0x0ff0,0x07e0,0x03c0,0x0180, 

37 6L 0x0180, 0x03c0,0x07e0,0x0ffO, 
i Ox1ff8,0x3ffc,0x0180, 

38 mM 0x0180,,0x0180,0x0180,0x0180 


1; 

39 BKO static struct Image CursorUpImage = [| 2,2,16,11,1,NULL,1,0, 
NULL}; 

40 Hq static struet Image CursorDownImage = | 2,2,16,11,1,NULL,1, 

N 0,NULL }; 

41 iL static struct Border BorderMyCancel = [| 0,0,1,3,JAM1,5,SubL 
inesCancel,NULL ] ; 

42 23 static struct Border BorderMyUp = [ 0,0,1,3,JAM1,5,LinesMyU 
P»NULL }; 

43 t static struct Border BorderMyDown = [ 0,0,1,3,JAM1,5,LinesM 
yUp,NULL }; 

44 SH static struct Border BorderDrawer = [| -58,-2,1,3,JAM1,5,Lin 
esDrawer,NULL ]; 

45 zU static struct Border BorderParent = [ 0,0,1,3,JAM1,5,LinesP 
arent,NULL }; 

46 aL static char BufferDrawer[108]=""‚CurrentDireetory[108]; 

47 70 static char BufferFileName[108]=""; 

48. gR static struct PropInfo MyPropInfo; 

49 EB static struct Image MyPropImage; 

50 Mj static struct StringInfo DrawerInfo = [| BufferDrawer,0,0,10 
8,0,0,0,0,10,27,0,0,0) ; 

5l’hg static struct StringInfo FileNamelnfo = [ BufferFileName,0, 
0,108,0,0,0,0,10,27,0,0,0] ; 

52 Wd #define LOAD 1 

53 BX static struct Gadget GGSubLoad = [ NULL,234,132,56,11,GADGH 





COMP, 

54 122 GADGIMMEDIATEI RELVERIFY, 
BOOLGADGET, 

55 J0 &BorderlyCancel,0,&SubTe 


xtLoad,0,0,LOAD,0) ; 
56 960 #define UP 3 
57 61 static struct Gadget GGSubUp = | &G6SubLoad,270,11,20,15,6A 


DGHCOMP, 
58 P6X GADGIMMEDIATEI RELVERIFY,BO 
OLGADGET, 
59 vi &BorderMyUp,O,NULL,0,0,UP, 
0; 


60 Rz0 #define DOWN 4 
61 Fo static struct Gadget GGSubDown = [ &66SubUp,270,86,20,15,GA 
|DGHCOMP, 





GADGIMMEDIATEI RELVERIFY, 
BOOLGADGET, 
&BorderMyDown,0,NULL,0,0 
„DOWN,O] ; 







a 
65 02 


320 #define GETVOLUMES 5 


9 


static struct Gadget GGGetVolumes = [| &66SubDown,8,132,104, 
11, GADGHCOMP ‚ GADGIMMEDIATEI RELVERIFY, 
BOOLGADGET,, &BorderPar 
ent,0,&TextVolumes,0, 
0,GETVOLUMES,0] ; 








#define PARENT 6 

static struct Gadget GGParentDir = [ &GGGetVolumes,121,132, 
104,11, GADGHCOMP ‚GADGIMMEDIATEI RELVERIFY, 

BOOLGADGET, &BorderPare 









Listing 6. »mydir.c«. Bitte mit dem Checksummer (Seite 
159) eingeben. 






nt,0,&TextParent,0,0,P 
ARENT,O] ; 
(v0 #define MYPROP 8 
static struct Gadget GGMyProp &GGParentDir,270,29,20,54 
‚„GADGHCOMP, 
5 RELVERIFYI GADGIMMEDIATE,P 
ROPGADGET, 
&yPropImage,‚O,NULL,0,8My 
PropInfo,MYPROP,O] ; 
0 #define DRAWER 9 
static struct Gadget GGDrawer &GCMyProp,66,106,220,10,G 
ADGHCOMP, 
RELVERIFYI STRINGCENTER,ST 
RGADGET, 
&BorderDrawer,0,NULL,0,&D 
rawerInfo,DRAWER, 0] ; 
#define FILENAME 10 
static struct Gadget GGFileName = | &GGDrawer,66,120,220,10 
„GADGHCOMP, 
RELVERIFY] STRINGCENTER, 
STRGADGET, 
&BorderDrawer,O,NULL,O, 
&FileNameInfo,FILENAME, 
0; 
#define FILESELECT 11 
static struct Gadget GGFileSelect[9]; 
 #define A_DIRECTORY 1 
| #define NOT_A_DIRECTORY 0 
\#define PARENTDIR -1 
 #define VOLUME 2 
static struct FileInfoBlock *FileInfoBlock; 
static struct MemHeader MyMemHeader; 
static struct MemChunk *MyMemChunk; 
struct Name [| char *EntryName; 
BOOL dir; 
struct Name *NextOne; 
struct MsgPort *HandlerPort; ]; 
tatic struct RastPort *SpecialRastPort; 
static struct Window *SpecialWindow; 
static SHORT Number_of_Files,Number_of_Positions,Position=0 
‚„OldPosition=0; 
UBYTE Depth=0; 





char parentdir[] = "parent”,StringName [108]; 

BOOL FileSelect,FirstTime=FALSE; 

ULONG MyLock, FileNumber; 

struct Name *FirstName=0,*CurrentName=0,*NextName, *M 


"static USHORT *DataPointer; 

BOOL GetFileName(FileName, FullName,Mode,MyBlock,Size,Reside 
nt) 

char *FileName,*FullName,*Mode; 

APTR MyBlock; 

ULONG Size; 

BOOL Resident; 


struct Gadget *TempGadget; 
BYTE Count; 
struct IntuiMessage *SpecialMessage; 
ULONG Class, ID; 
) BOOL End=TRUE,GetNext=FALSE; 
" USHORT *s; 
if (!(FileInfoBlock=AllocMem(sizeof(struct FileInfoBlock), 
"| MEMF_PUBLIC))) return FALSE; 
) NewSpecialWindow.Title=Mode; 
TempGadget=&GGFileName; 
for (Count=0;Count<9;Count++) 

{| 6GFileSeleet[Count] .NextGadget=TempGadget; 
GGFileSelect[Count] .GadgetType=BOOLGADGET; 
GGFileSelect[Count] .Activation=RELVERIFY; 
GGFileSelect[Count] .Flags=GADGHNONE; 
GGFileSelect[Count] .Width=256; 
G6GFileSeleet[Count] .Height=10; 
GGFileSelect[Count].LeftEdge=10; 
GGFileSelect[Count] .TopEdge=11+Count*10; 
GGFileSelect[Count] .GadgetID=FILESELECT+Count; 
TempGadget=&GGFileSelect[Count]; } 

MyPropInfo.Flags=FREEVERTI AUTOKNOB; 

MyPropInfo.VertPot=0; 

MyPropInfo.VertBody=65535; 
NewSpecialWindow.FirstGadget=&GGFileSelect[8]; 

if (!(SpecialWindow=OpenWindow(&NewSpecialWindow))) return 





(FALSE) ; 
SpecialRastPort=SpecialWindow->RPort; 
DataPointer=s=AllocMem(sizeof(CursorData) ‚MEMF_CHIP); 
CursorDownImage . ImageData=DataPointer; 
CursorUpImage. ImageData-DataPointer+11; 
for (Count=0;Count<22;Count++) *s++=CursorData[Count]; 
DrawImage(SpecialRastPort, &CursorUpImage,270,11); 
DrawImage(SpecialRastPort, &CursorDownImage, 270,86); 
PrintIText(SpecialRastPort,&TextFile,0,0); 
while (GetMsg(SpecialWindow->UserPort)); 
if ((!FirstName Il !Resident Il !Depth)) 
{ 
MyMemHeader .mh_Lower=MyBlock; 
MyMemHeader.mh_First=MyBlock; 
MyMemHeader.mh_Upper=MyBlock+Size; 
MyMemHeader.mh_Free=Size-sizeof (struct MemChunk) ; 
MyMemChunk=MyBlock; 
MyMemChunk->mc_Next=0; 
MyMemChunk->mc_Bytes=MyMemHeader.mh_Free; 
} 


| 
if (MyLock=Lock(CurrentDirectory) ) 


{ 
UnLock(MyLock) ; 
MyPropInfo.VertBody=65535/ (Number_of_Files/9+1); 


if (Number_of_Files > 9 ) 
MyPropInfo.VertPot=(65535%*Position)/(Number_. 
of_Files-9); 

OnlyRefresh(&GGMyProp,SpecialWindow) ; 

DisplayFiles(Position, FirstName); 

WaitPort(SpecialWindow->UserPort); 

goto msgarrived; 


) 
FOREVER 


l 
FileSelect=TRUE; 
FileNumber=255; 
Position=0; 
if (!(MyLock=Lock(CurrentDirectory))) Depth=0; 
else UnLock(MyLock); 
if (!FirstTime) 
{ FirstTime=TRUE; 
Depth=0; ] 
MyPropInfo.Flags=FREEVERTI AUTOKNOB; 
MyPropInfo.VertPot=0; 
MyPropInfo.VertBody=65535; 
OnlyRefresh(&GGMyProp,SpecialWindow) ; 
ClearDisplay(); 
Number_of_Files=0; 
GetNext=TRUE; 
FirstName=NextName=Allocate (&MyMemHeader,sizeof(struct N 
ane)); 
if (Depth) h 
[ NextName->EntryName=Allocate(&MyMemHeader,strlen( 
parentdir)); 
strepy(NextName->EntryName,parentdir); 
NextName->dir=PARENTDIR; 
NextName->NextOne=Allocate(&MyMemHeader,sizeof (st 
ruct Name)); 
Number_of_Files++; 
NextName=NextName->NextOne; 
MyLock=Lock(CurrentDirectory); 
Examine(MyLock,FileInfoBlock); } 
{ WWORD 1; 
char *VolName; 
Root = DOSBase -> di_Root; 
DosInfo = toAPTR(Root->rn_Info); 
DevList = toAPTR(DosInfo->di_DevInfo); 
while (DevList) 
{ if(DevList->dl_Type == DLT_VOLUME && Dev 
List->di_Task) 
{ VolName=toAPTR((BPTR)DevList->di_Na 
me)+1; 
Number_of_Files++; 
1=strlen(VolName); 
NextName->EntryName=Allocate (&MyMem 
Header,1); 
strepy(NextName->EntryName, VolName) 
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207 12 NextName-> dir=VOLUME; 255 iw CloseWindow(SpecialWindon) ; 
208 HA NextName->HandlerPort=DevList->d1_ 256 nM return(FALSE) ; 
Task; 257 4D break; 
209 uo NextName- > NextOne=Allocate(&MyMenHe 258 HB case DISKINSERTED: 
ader,sizeof(struct Name)); 259 ua case DISKREMOVED: 
210 taM NextName=NextName->NextOne; ] 260 3u Depth=0; 
211 KhH DevList=toAPTR(DevList->dl_Next); ] 261 eA strepy(BufferDrawer, ""); 
212 J29 GetNext=FALSE; 262 xo strepy(CurrentDireetory, "”); 
213 nt NextName- > EntryName=0; 263 sz OnlyRefresh(&GCDrawer,SpeeialWindon) ; 
214 »9 NextName- > NextOne=0; 264 NG FreeList(FirstName) ; 
215 yn DisplayFiles(Position=0, FirstName) ; 265 je End=FALSE; 
216 Uz8 } 266 re strepy(BufferFileNane, ””); 
217 733 End=TRUE; 267 u9 OnlyRefresh(&GGFileName,SpecialWindon) ; 
218 GW while (End) 268 FO break; 
219 Tud { 269 ej case GADGETDOWN: 
220 065 if (GetNext) 270 81 ID=SpecialMessage-> IAddress-> GadgetID; 
221 Vy9 { 271 MG switch(ID) 
222 oA if (GetNext=ExNext(MyLock,FileInfoBlock)) 272 Kna { 
223 XOE { 273 qiB case DOWN: 
224 VyF register UWORD 1; 274 sq FileSelect=TRUE; 
225 cp Number_of_Files++; 275 oA FileNumber=255; 
226 Wb l=strlen(FileInfoBlock-> fib_FileName) ; 276 oe do { 
227 ft NextName- > EntryName=Allocate(&MyMenHeader,1 277 09F if ((Position==Number_of_Files-9) Il (Number 
I _of_Files<10)) break; 
228 2B strepy (NextName->EntryName, FileInfoBlock-> 278 12 Position += 1; 
fib_FileName) ; 279 41 DisplayFiles(Position,FirstName); 
229 fl if (FileInfoBlock-> fib_EntryType>0) NextNa 280 PiB ) while(!(64 & *((UBYTE *)Oxbfe001))); 
me->dir=A_DIRECTORY; 281 EL if (Number_of_Files != 9) 
230 HY else NextName->dir=NOT_A_DIRECTORY; 282 ptF MyPropInfo.VertPot=(65535*Position)/(Number_. 
231 GA NextName->NextOne=Allocate(&MyMemHeader,siz of_Files-9); 
eof(struct Name)); 283 EZB OnlyRefresh(&6CMyProp,SpecialWindow) ; 
232 ka NextNane=NextName->NextOne; 284 Ve break; 
233 16E ) 285 XA case UP: 
234 mH9 } 286 42 FileSelect=TRUE; 
235 Jy5 else WaitPort(SpecialWindow->UserPort); 287 0M FileNumber=255; 
236 AG NextName->EntryName=0; 288 0q ao [ 
237 EW NextName->NextOne=0; 289 KGF if (!Position) break; 
238 AC if (Number_of_Files < 10) DisplayFiles(Position,First 290 61 Position -= 1; 
Name) ; 291 CU DisplayFiles(Position, FirstNane) ; 
239 Gg if ((Number_of_Files % 10)==0) 292 buE } while(!(64 & *((UBYTE *)Oxbfe001))); 
240 049 { 293 QXB if (Number_of_Files != 9) 
241 jvA MyPropInfo.VertBody=65535/(Number_of_Files/9+1) ; 294 15F MyPropInfo.VertPot=(65535*Position)/(Number_ 
242 BR MyPropInfo.VertPot=(65535%Position)/(Number_of_Fi of_Files-9); 
les-9); 295 Q1B OnlyRefresh(&GGMyProp,SpecialWindow); 
243 av OnlyRefresh(&GGMyProp,SpecialWindon) ; 296 hq break; 
244 wR9 } 297 ig case MYPROP: 
245 vR5 msgarrived: 298 GE FileSelect=TRUE; 
246 Nt if (SpecialMessage-GetMsg(SpecialWindow->UserPort)) 299 0Y FileNumber=255; 
247 vO06 { 300 c2 do | 
248 K47 Class=SpecialMessage-> Class; 301 WER PositionsMyPropInfo. VertPot*(Number_of_Files 
249 31 ReplyMsg(SpecialMessage) ; -9)/65535; 
250 YD switeh(Class) 302 D6 if (Position+8>Number_of_Files) Position=Nu 
251 258 { mber_of_Files-9; 
252 Ug9 case CLOSEWINDOW: 303 11 if (Position<0) Position=0; 
253 KJ FreeMen(FileInfoBlock,sizeof(struct FileInfoBlock) 
); 
254 cv Freeien(DataPointer,sizeof(CursorData)); Listing 6. (Fortsetzung) 














STEFAN OSSOWSKI eTeereuele STEFAN OSSOWSKI 


Ca. 900 Disketten lieferbar: Bei Bestellung von mindestens 10 Disketten N N 
Fish 1-156, Panorama 1-78, Faug 1-51, wird die PD-Disk CLI-Help - unentbehrlich für = Taifun Sa E00, 


Amicus 1-26, Auge 4000 1-28, Taitun 1-70, Anfänger und Einsteiger - kostenlos hi pi 
EEE Te mitgeliefert! Stichwort: CLI Su [IE PD-Software 


LEE Taiun: Auslese der besten PD-Programme 
IRRE DYEz 10 % Abo-Rabatt! Eigenentwicklung - Exklusivvertrieb 
ab 10 Stück DM 6,50 2 Sonderangebot: 
ab 20 Stück DM6,- DM kosten unsere beiden 1-30 DM 155,- 
ab 30 Stück DM 5,50 Katalogdisketten mit 1-50 DM 240,- 


ab50Stück DMS5.- Kurzbeschreibung fast aller 1-70 DM 3% 





ab 100 Stück DM 4,70 ade eu tl I TNIE Te 1 
ab 200 Stück DM 4,50 Mit V-Scheck oder in Briefmarken | Testen auch Sie unsere Stärken 
Elton] BANNER 
Wir kopieren selbstverständlich LEE TE IESRVIEEUCHEH EEE) BET ELCH 
2DD-Disketten mit doppeltem Verify des Bestelleinganges! « Service 


al PD Spezialist TEFAN OSSO Veronikastraße 33, 4300 Essen 1 
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304 1a 


305 W2 
306 p8E 
307 sıB 
‚308 yTA 
309 u39 
310 21 
311 2Q 
312 iv 
313 25A 
314 t7B 
315 Qu 
316 2VF 
\ 317.036 
318 J4 
319 nt 
320 5E 
321 BgF 
322 JVB 
323 nD 
324 uU 


325 91F 
326 5sB 
327 DEF 
328 F8G 
329, cp 
330 bv 
3a EM 
332 NtN 
333 rh 
334 OtM 
335 PuF 
336 WOB 
337 tm 
338 NW 
339 uN 
340 xR 
341 IX 
342 eh 
343 JK 
344 AZ 
345 fy 
346 po 


347.0Q 
348 bG 
349 Yh 
350 eC 
351 JB 
352 Jar 
353 92H 
354 Im 
355 JEF 
356 foB 
357 wR 
358 sm 
359 78 
360 fü 


361 kt 


362 qLA 


f (OldPosition!=Position) DisplayFiles(Posi 
tion, FirstName); 
OldPosition=Position; 
} while(!(64 & *((UBYTE *)Oxbfe001))); 
break; 
) 
break; 
case GADGETUP: 
ID=SpecialMessage-> IAddress->GadgetID; 
switch(ID) 
{ 
case DRAWER: 
if (!(MyLock=Lock(BufferDrawer, FileInfoBlock))) 
t 
strepy(BufferDrawer,CurrentDirectory); 
DrawerInfo.BufferPos=strlen(BufferDrawer) ; 
OnlyRefresh(&G6GDrawer,SpecialWindow); 
break; 
} 
else UnLock(MyLock) ; 
strepy(CurrentDirectory,BufferDrawer) ; 
if (BufferDrawer[strlen(BufferDrawer)-1]==':' Il 
strlen(BufferDrawer)==0) 
Depth=1; 
else 
{ 
Depth=2; 
Count=0; 
while(BufferDrawer[Count]) 
{ 
f (BufferDrawer[Count]=='/') Depth+ 
Count++; 


} 


I 
FreeList(FirstName); 
End=FALSE; 
break; 
case FILENAME: 
case LOAD: 
strepy(FullName,CurrentDirectory); 
if (Depth>1) streat(FullName,”/"); 
streat(FullName,BufferFileName) ; 
strepy(FileName,BufferFileName) ; 
FreeMem(DataPointer,sizeof(CursorData)); 
FreeMem(FileInfoBlock,sizeof(struct FileInfoBloc 
K)); 
CloseWindow(SpecialWindow); 
return(TRUE) ; 
break; 
case PARENT: 
if (Depth) 
{ FreeList(FirstName); 
End=FALSE; 
GetParentDir(); 
} 
break; 
case GETVOLUMES: 
FreeList(FirstName) ; 
End=FALSE; 
Depth=0; 
break; 
j 
if ((ID>=FILESELECT) && (ID<=FILESELECT+8)) 
{ 
if ((ID-FILESELECT+Position) >=Number_of_File 
s) break; 
CurrentName=MyFindName (Position, ID-FILESELECT 
‚FirstName) ; 
f (CurrentName->dir==A_DIRECTORY) 
l 
if (Depth>1) streat(CurrentDireetory, ”/ 
5 
Depth++; 
streat(CurrentDirectory,CurrentName->En 
tryName); 
strepy(BufferDrawer,CurrentDirectory); 
DrawerInfo.BufferPos=strlen(BufferDrawer 
); 
OnlyRefresh(&G6GDrawer,SpecialWindow) ; 
FreeList(FirstName); 
End=FALSE; 





— 














377.09 break; 
378 6bI } 
379 yuE if (CurrentName-> dir==VOLUME) 
380 4x1 { 
381 s0J struct Devicelist *1; 
382 Fn Root = DOSBase -> dl_Root; 
383 y3 DosInfo = toAPTR(Root->rn_Info); 
384 pm DevList = toAPTR(DosInfo->di_DevInfo); 
385 VJ 1=CurrentName->HandlerPort; 
386 Eo while(DevList->dl_Next) 
387 BeP { 
388 dzQ if (DevList->dl_Task==1 && DevLi 
st->dl_Type==DLT_DEVICE) break; 
389 CZ DevList=toAPTR(DevList->d1_Next) 
; 
390 InP } 
391 Ipg Depth++; 
392 gb strepy (CurrentDirectory,toAPTR((BPTR)Dev 
List->dl_Name)+1); 
393 u4 streat(CurrentDireetory,”:”); 
394 FI strepy(BufferDrawer,CurrentDirectory); 
395 YJ DrawerInfo.BufferPos=strlen(BufferDrawer 
); 
396 18 OnlyRefresh(&6GDrawer,SpecialWindon) ; 
397 VP\ FreeList(FirstName) ; 
398 sl End=FALSE; 
399 MV break; 
400 SxI ) 
401 53E if (CurrentName->dir==PARENTDIR) 
402 QtI { 
403 823 GetParentDir(); 
404 cW FreeList(FirstName) ; 
405 28 End=FALSE; 
406 Te brei 
407 Zu } 
408 81E if (FileSeleet Il (FileNumber!=ID-FILESELECT) 
) 
409 xoL ! 
410 Y2J FileSeleot=FALSE; 
411 Jo FileNumber=ID-FILESELECT; 
412 DF strepy(BufferFileName,CurrentName->Entr 
yName); 
413 sV OnlyRefresh(&GGFileName,SpecialWindow); 
414 bk break; 
415 hCI } 
416 TE else [ 
417 B9K FileSelect=TRUE; 
418 Xn strepy(FullName,CurrentDirectory); 
419. tP if (Depth>1) streat(FullName, ”/”); 
420 y2 streat(FullName,BufferFileName) ; 
421 Po strepy(FileName,BufferFileName) ; 
422 uD FreeMem(DataPointer,sizeof(CursorData)) 
423 43 FreeMem(FileInfoBlock,sizeof(struct Fil 
eInfoBlock)); 
424 RE CloseWindow(SpeeialWindon) ; 
425 qV return(TRUE); 
426 mw break; 
42T t0I } 
428 pyE break; 
429 voD ) 
430 r08 break; 
431 x56 3 
Way 
433 202) 
434 0v1 } 
435 1W0 } 


436 In struct Name *MyFindName(Position,Offset,FirstName) 

437 RD1 struct Name *FirstName; 

438 Wr SHORT Position,Offset; 

439 100 | 

440 ic1 struct Name *CurrentName; 

441 4M | SHORT i; 

442 2k | CurrentName=FirstName; 

443 bW for (1-0;i<Position;i++) CurrentName=CurrentName->NextOn 

Is 
for (1=Position;i<Position+Offset;i++) CurrentName=Curren 
tName->NextOne; 

- return(CurrentNane) ; 





447 2p DisplayFiles(Position,FirstName) 
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struct Name *FirstName; 
SHORT Position; 


BOOL End=FALSE; 
SHORT 1=0; 
struct Name *CurrentName; 
CurrentName-FirstName; 
while (i<Position) 
{ 
if (!CurrentName->EntryName) 
l 
Position=i; 
break; 
} 
CurrentName=CurrentName->NextOne; 
it; 


) 


t 
SetAPen(SpecialRastPort,0); 
SetSoftStyle(SpecialRastPort, FS_NORMAL,255) ; 
if (CurrentName->NextOne) 
[ 
strepy(StringName,CurrentName->EntryName) ; 
if (strlen(StringName)>25) StringName[25]=0; 
if (CurrentName->dir==A_DIRECTORY Il CurrentNa 
me->dir==PARENTDIR) 
[ streat(StringName,” (dir)”); 
SetSoftStyle(SpecialRastPort,FSF_ITALIC,2 
55); ) 
TextFileName. IText=StringNanme; 
PrintIText(SpecialRastPort,&TextFileName,10,12+ 
1810); 
RectFill(SpecialRastPort,10+strlen(StringName)* 
8,10+1*10,260,10+1*10+9) ; 
CurrentName=CurrentName->NextOne; 


Y SetAPen(SpecialRastPort,0); 
\ | RectFill(SpecialRastPort,10,11,260,100); 


FreeList(FirstNane) 
struet Name *FirstName; 


struct Name *NextOne; 
do [ 
if (FirstName->EntryName) 
Deallocate(&MyMemHeader, FirstName-> EntryName,strl 
en(FirstName->EntryNane)); 
NextOne=FirstName->NextOne; 
Deallocate(&MyMemHeader,FirstName,sizeof(struct Name)) 
; 
FirstName=NextOne; 
1 ] while (NextOne); 
A 
| OnlyRefresh(MyGadget,‚WhatWindow) 
L struct Gadget *MyGadget; 
struct Window *WhatWindon; 
505 510 | 
506 Mil struct Gadget *TempGadget2; 
507 e) | TenpGadget2=NyGadget->NextGadget; 
8 3 | MyGadget->NextGadget=0; 
509. RefreshGadgets (MyGadget ‚WhatWindow,0); 
 MyGadget->NextGadget=TempGadget2; 


‚etParentDir() 


char *MyPtr; 
BYTE Count; 
Count=strlen(CurrentDirectory); 
MyPtr=CurrentDirectory+Count-1; 
if (Depth>2) 

{ 

while (#MyPtr != '/') 


{ 
*MyPtr-- = 0; 
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Count--; 


} 
XMyPtr=0; 


while (XMyPtr I= 1:1 ) 
{ 
if (!Count--) break; 


*MyPtr-- = 0; 


} 
) Depth--; 
strepy(BufferDrawer,CurrentDirectory); 
Er ' OnlyRefresh(&GGDrawer,SpecialWindon) ; 
(6) 1987 MAT 


Listing 6. (Schluß) 





Programmname: memory.c 





Computer: Amiga 500, 1000, 2000 mit Kickstart 
1.2 





Sprache: C 
Compiler: Aztec C V3.6 

































Aufrufe: cc +1-s +idmp memory.c 





Programm : 









0 extern ULONG ChipStart,ChipEnd,ChipPointer,FastStart,FastEn 
ld, FastPointer; 

289 extern ULONG start[4],allocated[4],MemoryType[4]; 

Ib ii: InitMemory() 

kon; 


Be 





ULONG FreeMen; 

Forbid(); 

FreeMem=AvailMem(MEMF_CHIPI MEMF_LARGEST) -70000; 
Permit(); 

"if (!(ChipStart=AllocMem(FreeMem,MEMF_CHIP))) 


GoodBye(); 
I ..3 
ChipEnd=ChipStart+FreeMen-2; 
) ChipPointer=ChipStart; 
| Forbid(); 
| FreeMem=AvailMem(MEMF_FASTI MEMF_LARGEST) ; 
Permit(); 
if (!(FastStart=AllocMem(FreeMem,MEMF_FAST))) 
{ FastEnd=2; 
FastPointer=0; 
return; 
} 
FastEnd=FastStart+FreeMen-2; 
FastPointer=FastStart; 





ULONG Amount; 
* | ULONG StartPosition; 
u 

| UBYTE Count; 

| ULONG Start=start[Track]+StartPosition; 


| if (MemoryType[Track] == MEMF_CHIP) 
[ if (Amount > (2 + ChipEnd) - ChipPointer) return(F 
ALSE) ; 
else | i = ChipPointer - Start; 
ChipPointer += Amount; 
Dest = ChipPointer - 2; 
Source = Start + (ULONG)i - 2; 






Listing 7. »memory.c«. Bitte mit dem Checksummer 
(Seite 159) eingeben. 





else 
{ if (Amount > (2 + FastEnd) - FastPointer) retum(F 
ALSE) ; 
else [ i = FastPointer - Start; 
FastPointer += Amount; 
Dest = FastPointer - 2; 
Source = Start + (ULONG)i - 2; 
I 
j 
for (Count=0;Count<4;Count++) 
{ if (Count != Track) 
{ if (start[Count]) 
{ if (MemoryType[Track] == MemoryType[Cou 
nt]) 
{ if (start[Count] > start[Track]) 


start[Count] += Amount; 


} 


while (1--) *XDest-- = *Source--; 
retum(TRUE) ; 


‚Free(Track,Amount,StartPosition) 
| UBYTE Track; 
 ULONG Amount; 

ULONG StartPosition; 


| UBYTE Count; 
£ | ULONG Start=start[Track]+StartPosition; 
UWORD *Source,*Dest,*i; 
-if (MemoryType[Track] == MEMF_CHIP) 
if (Amount > allocated[Track]) return(FALSE); 
else [ i = ChipPointer - Start; 
ChipPointer -= Amount; 
Source = Start; 
Dest = Start - Amount; 


if (Amount > allocated[Track]) return(FALSE); 
else | i = FastPointer - Start; 

FastPointer -= Amount; 

Source = Start; 

Dest = Start - Amount; 


} 


1 for (Count=0;Count<4;Count++) 
if (start[Count]) 
[ if (MemoryType[Track] == MemoryType[Count]) 
{ if (start[Count] > start[Track]) 
start[Count] -= Amount; 
} 


} 





while (i--) XDest++ = *Source++; 
return TRUE; 


£yl UBYTE Track; 
‚Se | ULONG Amount; 


if (Amount > (2 + ChipEnd) - ChipPointer) 
[ if (Amount > (2 + FastEnd) - FastPointer) return(FA 
LSE); 
else [ Start = FastPointer; 
FastPointer += Amount; 
MemoryType[Track] = MEMF_FAST; 
} 
5 } i 
1 else [ Start = ChipPointer; 
ChipPointer += Amount; 
MemoryType[Track] = MEMF_CHIP; 


return(Start); 


115 10 } 
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Listing 7. (Schluß) 








Programmname: effects.c 





Computer: Amiga 500, 1000, 2000 mit 
Kickstart 1.2 





Sprache: C 





Compiler: Aztec C V3.6 











Aufrufe: cc +1-s +idmp effects.c 





Programm : effects.c 












hyO extern ULONG start[4],end[4],startpos[4],length[4],allocate 
0 /d[4],oneshot[4]; 

"2 VE extern UBYTE Current; 

3.83 extern ULONG sanplingrate[4],RangeStart[4],RangeEnd[4]; 

| Reverse(Track) 

L UBYTE Track; 








, register UBYTE *s,*e; 
register UBYTE swap; 
s=(UBYTE *) (start[Track]+startpos[Track]); 
 e=(UBYTE %) (start[Track]+end[Track]); 
do 


swap=ks; 
*sı4=te; 
*e--=swap; 


| Mix(Track) 

"20 Ohl | UBYTE Track; 

21 HKO ( 

‚22 MEl register UBYTE *s1,%s2; 

"23 fp register ULONG e; 

i s1=(char *)(start[Current]+startpos[Current]); 

s2=(char *)(start[Track]+startpos[Track]); 
e=MIN(length[Current],length[Track]); 

while (e--) *s24+=( ( ( %s2 ° 128 ) + ( *slt+ " 128) ) > 
>ı)r 128 








30 zai UBYTE Source,Dest; 

31. Ru0 | 

‚32 0E1 if (!(InsertTrack(Dest,length[Source],allocated[Dest]))) r 

“) eturn(FALSE); 

139 Mi FastCopy(start[Source]+startpos[Source] ,‚start[Dest]+alloca 
Mi ' ted[Dest],length[Source]); 

"34 Nn allocated[Dest] += length[Source]; 

35 YD  return(TRUE); 

36 850 } 

37 qL BOOL Paste(Source,Dest) 

‚38 Til. UBYTE Source,Dest; 

39.220 | 

‘40 gD1 if (!(InsertTrack(Dest,length[Source],end[Dest]+1))) retur 
N n(FALSE); 

41 ok | FastCopy(start[Source]+startpos[Source] ‚start[Dest]+endfDe 
N st]+1,1ength[Source]); 

42 WW allocated[Dest] += length[Source]; 

43 gL return(TRUE); 

44 100 | 

"45. n) BOOL InsertRange(Source,Dest) 

‚46 Fql UBYTE Source,‚Dest; 



















if (!(InsertTrack(Dest,length[Source],startpos[Dest]))) re 
N turn(FALSE) ; 

‚49 77  FastCopy(start[Source]+startpos[Source],start[Dest]+startp 
os[Dest],length[Source]); 

| allocated[Dest] += length[Souree]; 
 end[Dest]+=1ength[Source]; 
 startpos[Dest]+=1ength[Source]; 

if (oneshot[Dest]) oneshot[Dest]+=length[Source]; 
return(TRUR) ; 





0 
BOOL Double(Track) 

UBYTE Track; 

{ 

31 char *s=start[Track]+allocated[Track]; 

NE 

60 zk char *e=start[Track]; 

UWORD *d; 

" if (I(InsertTrack(Track,allocated[Track],allocated[Track]) 
)) return FALSE; 
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allocated[Track] *=2; 
d=start[Track]+allocated[Track]; 


move.l -4(85),a0 
move.l -8(a5),al 
move.1 -12(a5),a2 
move.b -(a0) ‚do 
move.b a0,dı 
asl.w #8,d1 
move.b do,di 
move.w d1,-(a2) 
empa.1 a0,al 
bne.s double 
#endasm 
SoundOFF(Track) ; 
oneshot[Track] *=2; 
SetStart(Track,startpos[Track]*2); 
SetEnd(Track,end[Track]*2); 
| SetOneShot(Track,oneshot[Track]); 
 SetStatus(Track); 
RangeEnd[Track] *=2; 
return TRUE; 


char *e=start[Track]+allocated[Track]; 


move.l -4(a5),a0 
move.l -8(a5),al 
move.1 -12(85),a2 
elr.w do 

move.b (a0)+,dO 
move.b (a0)+,d1 
add.w a0,dı 
asr.W #1,d1 
move.b a0, (a1)+ 
cmpa.l a0,a2 
bne.s halve 


Free(Track,allocated[Track]/4*2,allocated[Track]); 
) allocated[Track] = allocated[Track]/4*2; 

SoundOFF(Track) ; 

SetStart(Track,startpos[Track]/4*2) ; 


SetEnd(Track, (end[Track]+1)/4*2-1); 
RangeEnd[Track]=(RangeEnd[Track]+1)/4*2-1; 
SetStatus(Track); 
KO.) 
c) 1987 MET 


Bauan LEITUNG 


struct Gadget *FirstGadget; 
struet IntuiText *MyText; 
SHORT OKLeft,OKTop,Cancelleft,CancelTop; ]; 


static struct IntuiText 


InfoText10 = [1,0,JAM2,12,123,NULL,”for their very us 
eful C-Compiler”,NULL ], 
InfoText9 = [1,0,JAM2,40,112,NULL,” Manx Software Sys 
tems ",&InfoText10 ], 
InfoText8 = [1,0,JAM2,40,101,NULL,” and to 
" &InfoText9 }, 
InfoText7 = [1,0,JAM2,32,90,NULL, "for this wonderful 
Computer ”,&InfoText8 }, 
InfoText6 = [1,0,JAM2,40,79,NULL, ” Commodore Am 
iga "‚&InfoText7 }, 
InfoText5 = [1,0,JAM2,40,68,NULL, ” Thanks to 
"‚&InfoText6 }, 
InfoText4 = [1,0,JAM2,40,57,NULL, "1987 All rights 
reserved”,&InfoText5 }, 
InfoText3 = [1,0,JAM2,40,46,NULL, ” 2190 Cuxhave 
a "‚&InfoText4 ], 
InfoText2 = [1,0,JAM2,40,35,NULL, ” Matthias-Claudi 
us-Weg 58”,&InfoText3 ], 
InfoText1 = [1,0,JAM2,40,24,NULL, Christian W 
olf "‚&InfoText2 ], 
InfoTextO = [1,0,JAM2,32,13,NULL, "This program was 
written by”,&InfoText1 ], 
EraseText = [1,0,JAM2,8,13,NULL, "Loading a new sound 
will erase current data! ”,NULL ], 
TextOK = { 1,0,JAM2,8,4,NULL, ”OK”,NULL }, 
TextCancel = [ 1,0,JAM2,8,4,NULL, “Cancel”,NULL ], 
Texti = [ 1,0,JAM2,8,4,NULL, ”1”,NULL }, 
Text2 = [ 1,0,JAM2,8,4,NULL, ”2”,NULL }, 
Text3 = [ 1,0,JAM2,8,4,NULL, ”3”,NULL }, 
Text4 = [ 1,0,JAM2,8,4,NULL, "4”,NULL } , 
TextMemory = [1,0,JAM2,7,13,NULL, “Sorry, but there's 
no more memory! ”,NULL ], 
File = [1,0,JAM2,7,13,NULL, "Sorry, but I can't load 
this File! ”,NULL ], 
TextCheck = [1,0,JAM2,7,13,NULL, "Sorry, this track is 
not allocated!”,NULL }, 
TextContinue = [1,0,JAM2,7,4,NULL, "Continue”,NULL ] , 
TextSure = [ 1,0,JAM2,32,13,NULL, "You really want to 
delete this file?”,NULL }, 
ConeatTrack = [| 1,0,JAM2,8,13,NULL, “Concat current tr 
ack to:”,NULL ], 
DeleteAll = [ 1,0,JAM2,20,13,NULL, "All tracks will be 
cleared! Are you sure?”,NULL }, 
DeleteTrack = [ 1,0,JAM2,8,13,NULL, "The recorded data 
of the track will be lost! ”,NULL }, 
MixWave = [ 1,0,JAM2,24,13,NULL, "Destination track: ”, 
NULL}, 
CopyTrack = | 1,0,JAM2,8,13,NULL, "Copy eurrent track 
to: "NULL } ; 


USHORT LinesoK[] = [ 0,0,31,0,31,15,0,15,0,0 }; 

USHORT LinesCancel[] = [ 0,0,63,0,63,15,0,15,0,0 ]; 

USHORT LinesTrack[] = [ 0,0,23,0,23,15,0,15,0,0 }; 

USHORT LinesCont[] = [ 0,0,79,0,79,15,0,15,0,0 }; 

|struct Border BorderCont = [| 0,0,1,3,JAM1,5,&LinesCont,NULL 


Listing 8. »effects.c«. Bitte mit dem Checksummer 
(Seite 159) eingeben. 








Programmname: request.c Ne 


0,0,1,3,JAM1,5,&LinesoK,NULL } ; 
= (0,0, 


{ 
el 











0,0,1,3,JAM1,5,&LinesCancel, 
Computer: Amiga 500, 1000, 2000 r 
mit Kickstart 1.2 50 la struct Border BorderTrack = | 0,0,1,3,JAM1,5,&LinesTrack,NU 
: Be); 
Sprache: C . struct Gadget GGOK = [ NULL,16,25,32,16,GADGHCOMP,RELVERIFY 
Compiler: Aztec C V3.6 ’ 





BOOLGADGET, &BorderOK,0,&TextOK,0,0,0 
K,0]; 

struct Gadget G6Cancel = [ &GG0K,288,25,64,16,GADGHCOMP,REL 
VERIFY, 


Aufrufe: cc +1-s +idmp request.c 





Programm : request.c 
BOOLGADGET,&BorderCancel,0,&Text 
Cance1,0,0,CANCEL,0] ; 

struct Gadget GG4 = [ NULL,168,25,24,16,GADGHOOMP ‚RELVERIFY 


’ 


CANCEL 0 
ok 6 

TRACK1 1 
TRACK2 2 


BOOLGADGET, &BorderTrack, 0, &Text4,0,0, 
TRACK4,0) ; 
0 struct Gadget C63 = | &G6G4,120,25,24,16,GADGHOOMP ‚RELVERIFY 


TRACK3 3 
TRACKA 4 


CONTINUE 5 
NOBORDER NULL 
struct RequestData 
{ SHORT Left,Top,Width,Heigth; 


Listing 9. »request.c«. Bitte mit dem Checksummer 
(Seite 159) eingeben. 
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BOOLGADGET, &BorderTrack,0,&Text3,0,0, 
TRACK3,0) ; 
) struct Gadget GG2 = [ &663,68,25,24,16,GADGHCOMP,RELVERIFY, 


BOOLGADGET,, &BorderTrack,0,&Text2,0,0, 
TRACK2,0] ; 
struct Gadget GG1 = [ &662,16,25,24,16,GADCHCOMP,RELVERIFY, 


BOOLGADGET,, &BorderTrack,0,&Text1,0,0, 
/ TRACK1,0) ; 
struct RequestData MyRequest[] = 
{ ( 170,25,300,150,0,&InfoText0,16,25,288,25 ], 
{ 136,50,368,50,&GGCancel, &EraseText,16,25,288,25 } 


> 
{ 212,50,216,50,&6G1,&CopyTrack,16,25,288,25 ] , 

{ 212,50,216,50,&061, &ConcatTrack,16,25,288,25 } , 

{ ’ 

{ 136,50,368, 50, &GGCancel,&DeleteTrack,16,25,288,25 


)» 
{ 136,50,368,50,&6GCancel,&DeleteAl1,16,25,288,25 
I» 
{ 212,50,216,50,&661,&MixWave,16,25,288,25 ] ]; 
NewWindow NewRequestWindow = [ 
0,0,640,234,0,1, 
CLOSEWINDOWI GADGETUPI GADGETDOWNI SIMPLE_REFRESH, 
WINDOWCLOSEI ACTIVATEI WINDOWDEPTHI WINDOWDRAG, 
NULL, NULL, 
NULL, 
NULL, NULL, 
640,200,640,200, 
WBENCHSOREEN ] ; 
#0 struct Window *RequestWindow; 
/UWORD DisplayRequest (Number, Title) 
UBYTE Number; 
char *Title; 
Bl 
struct IntuiMessage *ThisMsg; 
ULONG ID,Class; 
NewRequestWindow. FirstGadget=MyRequest [Number] .FirstGadget 


; 
NewRequestWindow. LeftEdge=MyRequest [Number] .Left; 
NewRequestWindow. TopEdge=MyRequest[Number] .Top; 
NewRequestWindow.Width=MyRequest[Number] .Width; 

 NewRequestWindow.Height=MyRequest[Number] .Height; 

| NewRequestWindow.Title=Title; 
| GGOK.LeftEdge=MyRequest[Number] .OKLeft; 

" 6GOK.TopEdge=MyRequest[Number] .OKTop; 
GGCancel.LeftEdge=MyRequest[Number] .CancelLeft; 
GGCancel.TopEdge=MyRequest[Number] .CancelTop; 
if (!(RequestWindow=OpenWindow(&NewRequestWindow))) return 
(FALSE) ; 

| PrintIText(RequestWindow->RPort,MyRequest[Number] .MyText, 


FOREVER 
l 
WaitPort(RequestWindow->UserPort); 
if (ThisMsg=GetMsg(RequestWindow->UserPort)) 
{ 
Class=ThisMsg->Class; 
switch(Class) 
l 

case CLOSEWINDOW: 

CloseWindow(RequestWindow) ; 

return(0); 

break; 

break; 

case GADGETUP: 

ID=(struct Gadget *) (ThisMsg-> IAddress)->GadgetI 

D; 

switch(ID) 

[ 
case CANCEL: 
case OK: 
case TRACK1: 
case TRACK2: 
case TRACK3: 
case TRACK4: 
CloseWindow(RequestWindon) ; 
return(ID); 
break; 
) 


break; 








ReplyMsg(ThisMsg) ; 
) 
} 
3) 


(6) 1987 M&T 


Listing 9. (Schluß) 








Programmname: myfunctions.c 
Computer: Amiga 500, 1000, 2000 mit Kickstart 


Sprache: C 
Compiler: Aztec C V3.6 
Aufrufe: cc +1-s +idmp myfunctions.c 














#define SAMPLING 4 
#define ON TRUE 
| #define OFF FALSE 
| #define CANCEL 0 
extern struct NewWindow NewRequestWindow,NewWindow; 
“extern struct Window *RequestWindow,*MyWindow; 
extern struct Gadget GGContinue; 
extern struct IntuiText TextWindow; 
) USHORT *ChipSleepy,*c1,*c2,*ChipLeft,*ChipRight,*MySpriteDa 
ta; 
| extern struct FileInfoBlock #FileInfoBlock; 
extern char BufferFileName[],Out_of_Memory[]; 
extern ULONG RangeStart[4],RangeEnd[4]; 
extern APTR DirBuffer; 
extern FastIntHandler(),fastO(),fast1(),fast2(),fast3(); 
extern void chipO(),chipi(),chip2(),chip3(); 
extern struct Interrupt *Paulal,*0ldInterrupt; 
"void (*fastint[4])() = | fastO,fastl,fast2,fast3 ]; 
void (*chipint[4])() = [ chipO,chipi,chip2,chip3 ]; 
struct FastIntVariables 
[ VLONG start; 
ULONG MemCounter; 
ULONG end; 
APTR CopyBufferi; 
APTR CopyBuffer2; 
APTR RestBuffer; 
UWORD RestLength; 
BOOL *Modus; 
APTR Next; }; 
) struct FastIntVariables FastIntVariables[4],RepeatVariables 
4; 
extern ULONG NewPosition,OldPosition,regstart,regend,posba 
ckupz; 
extern ULONG oneshot[4],startpos[4],class,ChunkID,ChunkLen 
gth,countpos; 
| extern UBYTE i,Current,track,hi,eurrent,x,y,ceurrenty[4],Cu 
rent; 
extern UWORD sample,rest,x1,yl,rate,CurrentInt[4],IntCount 
1; 
extern UWORD mask[4],AudioBits; 
extern BOOL DisplayModus,PLAYING,Modus[4]; 
extern ULONG start[4],end[4],length[4],allocated[4] ‚Memory 
Type[4]; 
/ extern ULONG ChipStart,ChipEnd,ChipPointer, FastStart, FastE 
d,FastPointer; 
extern ULONG volume[4],period[4],sanplingrate[4],pre_perio 
4[4],pre_oneshot[4]; 
extern ULONG MyFile; 
extern FILE XMYFILE; 
extern struct RastPort *RastPort; 
" extern ULONG *parameter[6],*parapointer,PotiStart[6],MaxiPa 
rt[6]; 
extern char BufferStart[8],BufferEnd[8],BufferPeriod[4],Buf 
ferRate[6]; 
xtern char BufferOneShot[8] ‚BufferVolume[3],Not_Allocated[ 
1 
| extern char BufferTrackName[4][60]; 
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extern struct StringInfo TrackNameInfo; 

47 X2 extern struct IntuiText TextFreeChip, TextFreeFast,TextOn,Te 
xtOFF, TextCurrent[4]; 

48 dN extern ULONG FORM_ID,_8SVX_ID,VHDR_ID,BODY_ID; 

49 IT |struct VHDR [| ULONG Length; 


50 NsE ULONG OneShotHiSamples; 
si.ar ULONG RepeatPart; 

52 hi ULONG SamplesPerHiCycle; 
53 FD UWORD SamplesPerSecond; 
54 22 UBYTE Octaves; 

55 8e UBYTE Packed; 

56.10 LONG Volume; ]; 


57 110 struct FSound | ULONG length; 

58 neG WORD samplingrate; }; 
59 LyO struct BODY [ ULONG BODY_ID; 

60 sJE ULONG Length; }; 

61 gl0 struct IFF | ULONG FORM_ID; 





62 22D ULONG Length; 

63 k2 ULONG _8SVX_ID; 

64 ax ULONG VHDR_ID; 

65 3u struct VHDR VHD! 

66 Bb struct BODY BODY; ]; 


67 FKO extern struct FSound FSound; 

68 dL extern struct VHDR VHDR; 

69 73 extern struct IFF *IFF; 

70 2A extern struct GfxBase *GfxBase; 

71 hh extern struct IntuitionBase *IntuitionBase; 

72 BY struct Custom *CustomBase=0xdff000; 

73 qr extern struct PropInfo MyPotiInfo; 

74 jq extern struct Gadget GCMyPoti,GGStart,GGEnd,GGVolume,GGRate 
‚6GPeriod; 

75 Ro extern struct Gadget GGTrackName,GGOneShot; 

76 y0 ‚extern UBYTE coordinates[]; 

77 fK char XMyPlane; 

78 EK EmptyPort() 

DE | 

80 gYi struct IntuiMessage XMyMsg; 

81 BD while (MyMsg=GetMsg(MyWindow->UserPort)) ReplyMsg(MyMsg); 


82 Kpo ) 

83 JM Number_to_String(Buffer,number,len) 
84 eni char *Buffer; 

85 WY | ULONG number; 

86 Er UBYTE len; 

87 100 | 

88 2F1 UBYTE count,countl; 

89 mg for (count=0;count<=1en;count++) 


9% 076 { 

91 Bx7 Buffer[len-count]=48+number%10; 
92ta number = number/10; 

93 V06 } 


94 ral count=0; 
95 Yn while ((Buffer[0]==48) && (count<len)) 


96 Ux8 { 

97 Uf9 for (count1=0;count1<=1len-count;counti++) Buffer[ 
eount1]=Buffer[count1+1]; 

98 65 eount++; 

9 b68 ) 

100 e70 } 


101 mY ResetTrack(Track) 

102 111 UBYTE Track; 

103 b40 [ 

104 Hei startpos[Track]=RangeStart[Track]=0; 





105 Tw end[Track]=RangeEnd[Track]=allocated[Track]-1; 
106 69 length[Track]=allocated[Track]; 

107 kH | SetStart(Track,startpos[Track]); 

108 28 SetEnd(Track,end[Track]); 

109 5dä  SetOneShot(Track,pre_oneshot[Track]); 

110 3g period[Track]=pre_period[Track]; 

111 n5 SetPeriod(Track,period[Track]); 

112 ga DisplayTrack(Track,TRUE); 

113 pKO } 


114 HL BYTE Memory(channel,amount) 
4115 HL1 UBYTE channel; 

116 Gw  ULONG amount; 

117 pIo | 

118 9p1 amount = amount /2 * 2; 


119 x8 if (!(start[channel]=GetMem(channel,amount))) 
120 sIA { 

121 hk5 SetWindowTitles(MyWindow,Out_of_Memory,-1); 
122.20 AudioBits &= (mask[channel]" 15); 


123 50 SetStatus(channel) ; 
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124 fE 
5) 
126 7D1 length[channel]=allocated[channel]=amount; 

127 hx end[channel]=amount-1; 

128 In | RangeStart[channel]=startpos[channel]=0; 

129 sj RangeEnd[channel]=end[channe1]/608*608+607; 

130 2£ InitTrack(channel); 

131 61 | return(TRUE); 

132 840 } 

133 UK InitTrack(Track) 

134 EX1 UBYTE Track; 

135 7a0 | 

136 CR1 Number_to_String(BufferStart,startpos[Track],6); 

137 385 OnlyRefresh(&G66Start,MyWindow) ; 

138 vx  Number_to_String(BufferEnd,end[Track],6); 

139 HQ  OnlyRefresh(&GGEnd,MyWindow) ; 

149 610 } 

141 50 ClearTrack(Channel) 

442 All UBYTE Channel; 

143 Fi0 | 

144 771 if (AudioBits & mask[Channel]) 

145 7w5 { AudioBits &= ( mask[Channel] ” 15 ); 

146 087 SetStatus(Channel); } 

147 sil if (start[Channel]) Free(Channel,allocated[Channel],alloca 
ted[Channel]); 
allocated[Channel]=start[Channel]=end[Channel]=startpos[Ch 
annel]=1ength[Channel]=0; 

period[Channel]=358; 

samplingrate[Channel]=10000; 

oneshot[Channel]=0; 

volume[Channel]=64; 

strepy(BufferTrackName[Channel], "untitled”); 
OnlyRefresh(&GGTrackName ‚MyWindow) ; 

EmptyDisplay(); 

DisplayTrack(Channel, FALSE); 


return(FALSE) ; 


148 xy 


149 59, 
150 RB 
151 UF 
152 wK 
153 la 
154 kD 
155 5K 
156.19 
157 x20 } 
158 rK |BOOL LoadIFF(ThisFile) 

159 Wy | 

160 cei ULONG Length; 

161 uw | UBYTE nothing; 

162 c7  ULONG ChunkID; 

163 9D Read(ThisFile,&ChunkID,4); 
164 20 if (ChunkID != FORM_ID) 
165 b44 { 
166 695 

167 Mv 

168 1D4 

169 aPi Read(ThisFile,&Length,4); 
170 CK Read(ThisFile,&ChunkID,4); 
471 u0 | if (ChunkID != _8SVX_ID) 
172 1B4 { 
173 N65 

174 72 

175 pk4 } 
176 rEl do 
477093 [| 
178 054 

179 E) 


Close(ThisFile); 
return(FALSE) ; 


Close(ThisFile); 
return(FALSE); 


Read(ThisFile, &ChunkID,4); 

if (ChunkID == VHDR_ID) Read(ThisFile, &VHDR,sizeof(stru 
et VHDR)); 

180 86 if ((ChunkID != VHDR_ID) && 
181 rk7 { 
182 nc8 

183 zb 

184 TD 

185 207 } 
186 003 | 
187 IKl while (ChunkID I= BODY_ID); 

188 2x0 } 

189 IV BOOL LoadFile(FileName) 

190 yil char *FileName; 

191 100 [ 

192 Bol ULONG ThisFile,ThisLock,SeekPosition; 

193 Pq if (!(ThisLock=Lock(FileName,ACCESS_READ))) 

194 a5 { SetWindowTitles(MyWindow, "Sorry, I can't open this f 
a 1lel”,-1); 

‚195 Ph? return FALSE; ] 

196 2j1 Examine(ThisLock,FileInfoBlock); 


(ChunkID != BODY_ID) ) 


Read(ThisFile,&Length,4) ; 
if (Length % 2) Length+=1; 
for (i=0;i<Length;i++) Read(ThisFile,&nothing,1); 


Listing 10. »myfunctions.c«. Bitte mit dem Checksummer 
(Seite 159) eingeben. 
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if (FileInfoBlock->fib_EntryType>0) 
[ SetWindowTitles(MyWindow, "Can't load a directory! ”,- 
2; 
return FALSE; } 
if (start[track]) 


if (DisplayRequest(1, "Warning! ”) 
E; 
ClearTrack(track); 

} 
strepy(BufferTrackName[track] ‚BufferFileNane) ; 
TrackNameInfo.BufferPos=strlen(BufferFileName) ; 
TrackNameInfo.Buffer=BufferTrackName[track]; 
OnlyRefresh(&6G6TrackName ‚MyWindow) ; 

’ UnLock(ThisLock) ; 
ThisFile=Open(FileName,MODE_OLDFILE) ; 
if (LoadIFF(ThisFile)) 

{ 

Read(ThisFile, &ChunkLength,4); 
ChunkLength=VHDR.OneShotHiSamples+VHDR.RepeatPart; 
1=(UBYTE) (VHDR.Octaves-1) ; 
SeekPosition=0; 
while (1) 
{ 

SeekPosition+=ChunkLength; 

ChunkLength*=2; 

i--; 

VHDR.OneShotHiSamples*=2; 





=CANCEL) return FALS 


if (!Memory(track,ChunkLength)) 

{ Close(ThisFile); 

return FALSE; } 

SetRate(track, VHDR.SamplesPerSecond) ; 
SetOneShot(track, VHDR.OneShotHiSamples) ; 
Seek(ThisFile,SeekPosition,0); 
SetWindowTitles(MyWindow, "Loading IFF File...”,-1); 
LoadBody(ThisFile) ; 
return TRUE; 


ThisFile=Open(FileName,MODE_OLDFILE) ; 
Read(ThisFile,&FSound,sizeof(struct FSound)); 
if (FileInfoBlock->fib_Size == (FSound.length+6)) 
t 
if (!Memory(track,FSound.length)) 
{ ClearTrack(track) ; 
Close(ThisFile); 
return FALSE; } 
SetRate(track, FSound.samplingrate) ; 
SetWindowTitles(MyWindow, "Loading Future Sound File.. 
sl); 
LoadBody(ThisFile); 
return TRUE; 


Close (ThisFile); 
ThisFile=Open(FileName,MODE_OLDFILE) ; 
if (!Memory(track,FileInfoBlock-> fib_Size)) 
[ ClearTrack(track); 
Close(ThisFile); 
return FALSE; } 
SetWindowTitles(MyWindow, "Loading Raw Data File...”,-1); 
LoadBody(ThisFile); 
| return TRUE; 
} 
SaveIFF(Octaves) 
UBYTE Octaves; 
{ 
UBYTE 1; 
ULONG BodyLength; 
BodyLength=1length[track]/32*32; 
IFF->VHDR.Length=20; 
if (oneshot[track] >startpos[track]) 


IFF->VHDR.OneShotHiSamples=(oneshot[track]-startpos[ 
track])> > (Octaves-1); 
IFF->VHDR.RepeatPart=(end[track]+1-oneshot[track])> 
> (Oetaves-1); 


} 
{ 


IFF->VHDR.OneShotHiSamples=length[track] > > (Octaves 
-D; 












































IFF- > VHDR.RepeatPart=0; 
} 
IFF- > VHDR.SamplesPerHiCycle=8; 
IFF->VHDR.SamplesPerSecond=samplingrate[track] ; 
IFF->VHDR.Octaves=Octaves; 
IFF->VHDR.Packed=0; 
IFF->VHDR.Volume=volume[track]*1024; 
IFF-> FORM_ID=FORM_ID; 
IFF->_8SVX_ID=_8SVX_ID; 
IFF->VHDR_ID=VHDR_ID; 
IFF->BODY.BODY_ID=BODY_ID; 
IFF->BODY.Length=BodyLength; 
for (i=0;i< (Oetaves-1) ;i++) 
{ 
BodyLength/=2; 
IFF->BODY.Length+=BodyLength; 
} 
[| IFF->Length-sizeof(struet IFF)+IFF->BODY.Length-8; 
| fwrite(IFF,sizeof(struct IFF),1,MYFILE); 
100} 
GoodBye() 






Stop(); 
if (MyWindow) [| ClearMenuStrip(MyWindow); 
CloseWindow(MyWindow); ] 

if (GfxBase) CloseLibrary(GfxBase); 
if (IntuitionBase) CloseLibrary(IntuitionBase); 
if (ChipStart) FreeMem(ChipStart,ChipEnd-ChipStart+2); 
if (FastStart) FreeMem(FastStart,FastEnd-FastStart+2); 
if (DirBuffer) FreeMem(DirBuffer,2000); 
if (FastIntVarlables[0].CopyBufferi) 

l 

for (1:0;1<4;14+) 

{ 
FreeMem(FastIntVariables[1].CopyBuffer1,64); 
FreeMem(FastIntVariables[i].CopyBuffer2,64) ; 
FreeMem(FastIntVariables[1].RestBuffer,128); 
FreeMem(RepeatVariables[i].RestBuffer, 128); 


) 


if (FileInfoBlock) FreeMem(FileInfoBlock,sizeof(struct Fil 
\ eInfoBlock)); 

if (ChipSleepy) FreeMem(ChipSleepy, 54); 

if (ChipLeft) FreeMem(ChipLeft,18); 

if (ChipRight) FreeMen(ChipRight,18); 

if (MySpriteData) FreeMem(MySpriteData,516); 

exit(OL); 































UWORD Rest; 
ULONG Start=start[Channel]+startpos[Channel] ‚Length; 
UWORD 1; 
UBYTE *c1,*c2; 
| FastIntVarlables[Channel].start=Start; 
FastIntVariables[Channel] .MemCounter=Start; 
| FastIntVariables[Channel] .Modus=&Modus[Channel]; 
| Rest = ( length[Channel] % 64 ) + 64; 
if (Rest >= length[Channel]) 
l 
c1=FastIntVariables[Channel] .end=Start; 
FastIntVariables[Channel].RestLength=length[Channel]; 


} 
else 
{ 
FastIntVariables[Channel].RestLength=Rest; 
c1=FastIntVariables[Channel].end=Start+length[Channel 
1/6464 - 64; 
} 
c2=FastIntVariables[Channel] .RestBuffer; 
for (i=0;1<Rest;i++) *o2H+=kel++; 
if (oneshot[Channel] >startpos[Channel]) 
l 
Start=start[Channel]+oneshot[Channel]; 
RepeatVariables[Channel].start=Start; 
RepeatVariables[Channel].MemCounter=Start; 
RepeatVariables[Channel] .Modus=&Modus[Channel]; 
Length=end[Channel]+1-oneshot[Channel]; 
Rest=( Length % 64 ) + 64; 
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350 30 if (Rest >= Length) 

351 b4A { 

352 LOB c1-RepeatVariables[Channel].end=Start; 

353 20 RepeatVariables[Channel] .RestLength=Length; 

354 iDA } 

355 YL7 else 

356 g9A { 

357 wAB RepeatVariables[Channel].RestLength=Rest; 

358 Vj e1-RepeatVariables[Channel] .end=Start+Length/64* 

64 - 64; 

359 nIA } 

360 Hr7 FastIntVariables[Channel].Next=&RepeatVariables[Chan 
nel]; 

361 2P RepeatVariables[Channel].Next=&RepeatVariables[Chann 
el]; 

362 NL c2=RepeatVariables[Channel].RestBuffer; 

363 up for (i=0;i<Rest;i++) *c2++=*cl++; 

364 sN5 } 

365 261 else FastIntVariables[Channel].Next=&FastIntVariables[Chan 

nel]; 
366 uPO ] 


367 Sm SoundOn(Channel) 

368 oM1 UBYTE Channel; 

369 tMO | 

370 QH1 CustomBase-> aud[Channel] .ac_vol=(UWORD)volume[Channel] ; 

371 va CustomBase-> aud[Channel].ac_per=(UWORD)period[Channel] ; 

372 wv  *((ULONG *)0x70)=FastIntHandler; 

373 02 if (MemoryType[Channel] == MEMF_CHIP) Paulal->is_Code=chi 
pint[Channel]; 

374 70 else Paulal->is_Code=fastint[Channel]; 

375 hA Paulal->is_Data=&FastIntVariables[Channel]; 

376 Yy  OldInterrupt=SetIntVeetor(INTB_AUDO+Channel,Paula1); 

377 Oh InitFast(Channel); 

378 EO CustomBase->intreg=INTF_SETCLRI (mask[Channel] <<7); 

379 Eg CustomBase-> intena=INTF_SETCLRI (mask[Channel] < <7); 

380 m) CustomBase-> dmacon=DMAF_MASTER! DMAF_SETCLRI mask[Channel]; 


381 9e0 ] 

382 Bl SoundOFF(Channel) 

383 3b1 UBYTE Channel; 

384 8b0 | 

385 hri CustomBase->dmacon = mask[Channel]; 
386 32 CustomBase-> intena=mask[Channel] < <7; 
387 5v CustomBase-> intreg=mask[Channel] < <7; 
388 G10 } 

389 w3 Play() 

3% Eh | 

391 ggl for (1=0;i<4;i4+) 

392 656 { 

393 F47 if(AudioBits&mask[1]) SoundOn(1); 
394 Mr6 j 

395 NsO } 

396 15 Stop() 

397 10 | 

398 kfl for (1=0;i<4;i++) SoundOFF(1); 

399 RO } 

400 Ot SetStatus(Track) 

401 Xqi UBYTE Track; 

402 Qt0 | 

403 FZ1 SetDrMd(RastPort,JAM2); 

404 76 if (AudioBits & mask[Track]) 





405 Tu5 l 

406 uP6 SetAPen(RastPort,0); 

407 02 RectFill(RastPort,66+TrackX161,14,66+TrackX161+24,20) 
408 pZ PrintIText(RastPort, &TextOn,69+TrackX161,14) ; 
409.47 if (PLAYING) SoundOn(Track); 

410 075 } 

411 SF1 else 

412 a35 { 

413 Q%6 PrintIText(RastPort, &TextOFF,66+Track*161,14); 
414 Pi if (PLAYING) SoundOFF(Track); 

415 hC5 } 

416 1D0 } 


417 Ss WriteBody(Octaves) 
418 rul UBYTE Octaves; 
419 hA0 | 

420 Lri ULONG Count; 

421 6V char i,DataPart; 
422 on SHORT sum; 

423 7F char *DataStart; 


AMIGA-SONDERHEFT 1 = 


Bauan LEITUNG 


| ULONG DataLength; 
| SetWindowTitles(MyWindow, "Saving track...”,-1); 
DataLength=length[track]; 
DataPart=1< < (Octaves-1); 
DataLength> >=(Octaves-1); 
while (DataPart) 
l 
DataStartsstart[track]+startpos[track]; 
for (Count=0;Count<DataLength;Count++) 
{ 
sum=0; 
for (i=0;i<DataPart;i++) sum += *DataStart+ 
+ 
pute((char) (sum/DataPart) ‚MYFILE); 
} 
DataPart>>=1; 
Datalength< <=1; 
} 
441 #31 felose(MYFILE); 
442 8ä0 } 
443 Ku LoadBody(ThisFile) 
444 RC1 ULONG ThisFile; 
445 780 | 
446 bn1 Read(ThisFile,start[track],length[track]); 
447 ng Close(ThisFile); 
448 77 AudioBits |= mask[track]; 
449 FO ) 
450 6K BOOL AllocationCheck(Channel) 
451 9h1 UBYTE Channel; 
452 En0 | 
453 311 if (!start[Channel]) 
4 | 
455 WY5 for (1=051<=5;1+4+) BufferStart[1]="begin”[i]; 
456 C1 OnlyRefresh(&G6GStart,MyWindow) ; 
457 uf for (1=051<=5;1++) BufferEnd[i]="empty”[i]; 
458 02 OnlyRefresh(&GGEnd,MyWindow) ; 
459 gt Not_Allocated[6]=49+Channel; 
460 G1 SetWindowTitles(MyWindow,Not_Allocated,-1); 
461 6f return(FALSE); 
462 Sx4 } 
463 871 return(TRUE); 
464 U20 | 
465 QW  SetVolume (Number, Volume) 
466 ZJ1 UBYTE Number; 
467 Wk ULONG Volume; 
468 Ux0 | 
469 nei if (Volume>64 Il (!start[Number])) 
470 W24 { 
471 YK5 Number_to_String(BufferVolume,volume[Number],1); 
412 Ey OnlyRefresh(&GGVolume ‚MyWindow) ; 
473 eD return; 
474, e9%, } 
475 c31 volume[Number]=Volume; 
476 dP_|Number_to_String(BufferVolume, volume (Number],1); 
477 93  OnlyRefresh(&6GVolume,MyWindow) ; 
478 TR  CustomBase-> aud[Number] .ac_vol=(UWORD)volume [Number] ; 
479. JEO 
480 EG SetEnd(Number,End) 
481 oY1 UBYTE Number; 
482 30 ULONG End; 
483 500 | 
484 071 if (!AllocationCheck(Number)) return; 
485 7R if ( End<=startpos[Number] ) End=startpos[Number]+1; 
486 cX if ( End>allocated[Number] ) End=end[Number] ; 
487 Iy if (!DisplayModus) DrawLine(Number,end[Number]); 
488 hY end[Number]=End/2*2+1; 
489 VO if (!DisplayModus) DrawLine(Number,end[Number]); 
490 N5 1ength[Number]=end[Number]-startpos[Number]+1; 
491 Yy_ Number_to_String(BufferEnd,end[Nunber],6); 
492 y7 OnlyRefresh(&GGEnd,MyWindow); 
493 bA if (oneshot[Number] >= end[Number]) SetOneShot(Number,O); 
494 20 | 
495 ZD SetOneShot (Number,OneShot) 
496 3n1 UBYTE Number; 
497 X ULONG OneShot; 
498 yRO | 
499 dM1 if (!AllocationCheck(Number)) return; 





'500 Ba if (OneShot<startpos[Number] Il OneShot>=endfNumber]) On 


eShot=0; 


Listing 10. (Fortsetzung) 






















OneShot=OneShot/2#2; 
if (OneShot && !oneshot[Number] && !DisplayModus) DrawLine 
(Number, OneShot); 
if (!OneShot && oneshot[Number] &% !DisplayModus) DrawLine 
(Number,oneshot[Number]) ; 
if (OneShot && oneshot[Number] && !DisplayModus) 
l 
DrawLine (Number, oneshot[Nunber]); 
DrawLine(Number,OneShot) ; 
) 
oneshot[Number]=OneShot; 
Number_to_String(BufferOneShot,oneshot[Number] ,6) ; 
OnlyRefresh(&GGOneShot,,MyWindow) ; 

















































} 
SetStart(Number,Start) 
, UBYTE Number; 

ULONG Start; 


- if (!AllocationCheck(Number)) return; 

Start /= 2; 

, Start *= 2; 

if (Start>=end[Number]) Start=startpos[Number]; 

if (!DisplayModus) DrawLine(Number,startpos[Number]) ; 
 startpos[Number]=Start; 

if (!DisplayModus) DrawLine(Number, Start); 
length[Number]=end[Number]-startpos[Number]+1; 

| Number_to_String(BufferStart,startpos[Number] ,6) ; 

" OnlyRefresh(&G66Start,MyWindow) ; 

"if (oneshot[Number] <startpos[Number] && oneshot[Numder]) 
. SetOneShot (Number,0); 


‚etPeriod(Number, Period) 
UBYTE Number; 
ULONG Period; 


if (Period<124 Il Period>999) 

f 
Number_to_String(BufferPeriod,period[Number],2); 
OnlyRefresh(8&GGPeriod,MyWindow) ; 
return; 

} 

period[Number]=Period; 
samplingrate[Number]=3580000/Period; 
Number_to_String(BufferRate,samplingrate[Numder],4 ); 
OnlyRefresh(&6GRate,MyWindow); 
Number_to_String(BufferPeriod,period[Number],2); 
X  OnlyRefresh(&6GPeriod,MyWindow); 

| CustomBase-> aud[Number] .ac_per=(UWORD)period[Number]; 


dl UBYTE Number; 
| LONG Rate; 





f (Rate>28870 || Rate<3583) 
{ 
Number_to_String(BufferRate,samplingrate[Number] ,4); 
OnlyRefresh(&GGRate,‚MyWindow) ; 
return; 
} 
samplingrate[Number]=Rate; 
period[Number]=3580000/samplingrate[Number] ; 
‚ Number_to_String(BufferPeriod,period[Number] ‚2) ; 
 OnlyRefresh(&GGPeriod,MyWindow) ; 
Number_to_String(BufferRate,samplingrate[Number],4 ); 
) OnlyRefresh(&GGRate,MyWindow) ; 
CustomBase-> aud[Number] .ac_per=(UWORD)period[Number] ; 
} 


y RefreshOneShot (Number) 
E UBYTE Number; 


ULONG SetValue; 
eurrent=currenty[Number] ; 
MaxiPart[5]=MaxiPart[0]=MaxiPart[1]=allocated[Number]-1; 
| parapointer=parameter[current]; 

| SetValue = parapointer[Number]; 

| SetValue -= PotiStart[current]; 

SetValue *#= 511; 

if (MaxiPart[current]) SetValue /= MaxiPart[current]; 
else SetValue=0; 

SetValue=SetValue< <7; 
MyPotiInfo.HorizPot=(UWORD)SetValue; 
OnlyRefresh(&6CMyPoti,MyWindow) ; 







K EmptyDisplay() 



































strepy(BufferEnd, "empty”); 
OnlyRefresh(&GGEnd,MyWindow) ; 
strepy(BufferStart, "begin”); 
OnlyRefresh(&66Start,MyWindow) ; 
strepy(BufferRate, *10000”); 

| OnlyRefresh(&GGRate,MyWindow); 
strepy(BufferPeriod, "358”); 
OnlyRefresh(&6GPeriod,MyWindow) ; 
strepy(BufferVolume, 64”); 
OnlyRefresh(&G6GVolume ‚MyWindow) ; 
| strepy(BufferOneShot, ”0”); 
 OnlyRefresh(&6GOneShot,MyWindow) ; 


. SetDrMd(RastPort,COMPLEMENT) ; 
 ReetFill(RastPort,9+Current*161,11,49+Current#161,23) ; 
Ourrent=Number; 
RectFill(RastPort,9+Current*161,11,49+Current*161,23); 
if (start[Number]) 





SetStart (Number, startpos[Number]) ; 
SetEnd(Number,end[Number]); 
Number_to_String(BufferVolume, volume[Number],1); 
OnlyRefresh(&G6Volume,MyWindow) ; 
SetOneShot (Number,oneshot[Number]) ; 
SetPeriod(Number,period[Number]); 
i } 
else EmptyDisplay(); 
| TrackNameInfo.BufferPos=strlen(BufferTrackName[Number]) ; 
| TrackNameInfo.Buffer=BufferTrackName[Number] ; 
OnlyRefresh(&GGTrackName,,MyWindow) ; 
DisplayTrack (Number, FALSE) ; 


618 cp InversGadget (MyGadget) 
619 kvi struct Gadget *MyGadget; 


SHORT y=MyGadget-> TopEdge; 

SetDrMd(RastPort,COMPLEMENT) ; 

"\ SetAPen(RastPort,0); 

" RectFill(RastPort,x,y,x+MyGadget->Width-1,y+MyGadget->He 
ight-1); 





(6) 1987 M&T 


Listing 10. (Schluß) 





Programmname: record.c 

Computer: Amiga 500, 1000, 2000 mit Kickstart 1.2 
Sprache: C 

Compiler: Aztec C V3.6 

Aufrufe: cc +1-s +idmp record.c 














Programm : record.c 


extern ULONG regstart,regend,period[4],start[4],startpos[4] 
\,end[4]; 
extern ULONG allocated[4] ‚1ength[4],MemoryType[4] ‚volune[4] 


extern UBYTE Current; 
ULONG ChipStart,ChipEnd,ChipPointer; 
ULONG FastStart,FastEnd,FastPointer; 
USHORT *ChipSleepy; 
struct Window *MyWindow; 
void MyRecO(),MyRec1(),MyTestO(),MyTesti(),MyAdO(),M 


Listing 11. »record.c«. Bitte mit dem Checksummer 
(Seite 159) eingeben. 
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10 qf extern void MyWaito(),MyWaiti(); 
11 EW extern struct DosLibrary *D0SBase; 

12 gd void (*Recording[2])() = [ &MyRec0,8MyReci ]; 
13 14 void (*Adjusting[2])() = [ &MyAdO,&MyAdı }; 
14 Sr void (*Testing[2])() = [ &MyTestO,&MyTesti ]; 
15 oe void (XWaiting[2])() = [ &MyWaitO,8MyWaiti }; 
16 06 USHORT Hardware=0; 

17 t8 ULONG Record(start,end,Text) 

18 kill ULONG start,end; 

19 hX char *Text; 

20 6J0 ( 

21 hNi rate=(UWORD)period[Current]/2; 

22 80  regstart=start; 

23 qU  regend=end; 

24 054 #asm 








movem.1 (a7)+,d0-d6/a0-a6 

beir #0,47 

move.1 d7,_regend 

bra.s exit 

TSAR public _MyRecO 

move.w  #%0000000010000000, (83) 
empa.l a4,a5 

bne.s sampleO 


25. 72B moven.1 dO-d6/a0-a6,-(a7) 

26 50 move.l _regstart,-(a7) 

2713 move.l _regend,-(a7) 

28 M£ move. _rate,$dff0a6 

29 HH move.1l $4,86 

30 9T jsr -132(86) 

31 g0 lea _Recording,a0 

32 E3 elr.1 do 

33 Qv move.w _Hardware,dO 

34 F7 asl.u  #2,d0 

35 mu move.1 (a0,d0),$70 

36 Xi move.1 (a7)+,a5 

37 Vf move.1 (a7)+,a4 

38 Sy move.u #64, $dff0a8 

39 2) move.b  #%00000000, $bfe301 

40 ct move.b $bfd200,d0 

Al WM andi.b #%11111010,d0 

42 NO ori.b #%00000110,d0 

43 im move.b dO,$bfd200 

44 a2 lea $bfe101,a0 

45 Ww lea $bfd000,al 

46 7F lea $affOaa,a2 

AT PA lea $aff09c,a3 

48 Mn move.w  $dffOlc,d2 

49 HZ and.w #%0111111111111111,d2 
50 xd move.w d2,$dff09a 

51 0X move.w  $dff002,d3 

52 Qe and.w #%0111111111111111,d3 
53 9% move.w  d3,$dff096 

54 mx elr.w  d4 

55 Pn bset #2,(a1) 

56 w9 belr #2,(al) 

5757. move.  #%1100000010000000,$dff09a 
58 EI move.w  #%1000000010000000,$dff09c 
59 X80 click: andi.b #64,$bfe001 

60 AyB bne click 

61 T60 newpe: move.w  #%0000000010000000, $dff09a 
62 FJB move.#  #%0000000010000000, $dff09e 
63 ZRO click: andi.b #64,$bfe001 

64 NOB beq.s clicki 

65 2A move.1l a4,d7 

66 Gm or.W #%1000000000000000,d2 
67 ou move.w d2,$dff09a 

68 0q or.W #%1000000000000000,43 
69 Pp move.w d3,$dff096 

70 Bb Jer -138(a6) 

en) 

72 86 

73.0p 

74 18 


338 
38% 
& 





79 ge lea newpc,a0 
80 BW- move.l a0,2(a7) 
81 16 rte 

82 yg0 sample0: move.b (a0),dO 
83 FB bset #2,(a1) 
84 Ob belr #2,(a1) 
SP eori.b #128,d0 
86 jL move.b dO,dı 
a7 NM asl.u  #8,d1 
88 ın move.b dO,dı 
89 Wh, move.u d1,(a2) 
90 Yo move.b dO,(a4)+ 
aa rte 
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public _MyReci 
move.v  #%0000000010000000, (a3) 
empa.l a4,a5 

bne.s  samplei 





lea newpc,a0 
move.1  a0,2(87) 
rte 

elr.b (a0) 


move.b (a0),dO 
eori.b #128,d0 
move.b do,di 
asl.w #8,d1 
move.b dO,di 
move.w di,(a2) 
move.b d0,(a4)+ 
rte 
move.1 d7,_regend 
# endasm 
return(regend); 


113 xri UBYTE Current; 

141 char *Text; 

115 nCO | 

116 391 register UWORD *s1,*s2,*e; 
if (start[Current]) 

Record(start[Current]+startpos[Current],start[Current] 

+end[Current]+1,Text); 

else 
[ if (FastPointer <= FastEnd && (FastEnd+2-FastPointer) 
> (ChipEnd+2-ChipPointer)) 
| start[Current]=FastPointer; 
FastPointer=Record(FastPointer, FastEnd+2, Text); 
if (FastPointer == start[Current]) 

{ start[Current]=0; 

return; } 
allocated[Current]=FastPointer-start[Current]; 
if ((esallocated[{Current]) < ChipEnd+2-ChipPoin 
ter) 

[ FastPointer = start[Current]; 
s2=start[Current]=ChipPointer; 
s1=FastPointer; 

ChipPointer += allocated[Current]; 
SetPointer(MyWindow,ChipSleepy,26,16,0,0); 













FastCopy(FastPointer,start[Current],alloca 
ted[Current]); 
ClearPointer(MyWindon) ; 
goto chipalloc; } 
MemoryType[Current]=MEMF_FAST; 
length[Current]=allocated[Current]; 
startpos[Current]=0; 
end[Current]=allocated[Current]-1; 
InitTrack(Current); } 
else 
{ if (ChipPointer <= ChipEnd) 
{ start[Current]=ChipPointer; \ 
ChipPointer=Record(ChipPointer,Chip 
End+2, Text); 
if (ChipPointer == start[Current]) 
{ start[Current]=0; 
return; } 
allocated[Current]=ChipPointer-star 
t[Current]; 
MemoryType[Current]=MEMF_CHIP; 
length[Current]=allocated[Current]; 


startpos[Current]=0; 
end[Current]=allocated[Current]-1; 
InitTrack(Current); 


else SetWindowTitles(MyWindow, "Out of mem 
ory!",-1); 


) 


rate=period[Current]/2; 
Stop(); 


Listing 11. (Fortsetzung) 


75 


SESBEREER 


BSISERERE 
SERASERGE 


202 Qe 
203 Ze 


204 yuO click5: andi. 


POS XaB 


RRASSHHhn 


movem.1 dO-d7/a0-a6,-(a7) 
move.w _rate,$dff0a6 
lea Block,al 
move.1 #0,d0 
move.u #8,(a1,d0) 
add.w #2,d0 
emp.w  #512,d0 
bne.s set 
move #0,Block 
move #80f00,Block+254 
move #$0f00,Block+256 
move. 34,26 
jer -132(a6) 
lea Adjusting,a0 
elr.1 do 
move.v  _Hardware,dO 
asl.w #2,d0 
move.1 (a0,d0),$70 
lea Block,a4 
move.u  #64,$dff0a8 
move.b  #%00000000, $bfe301 
move.b $bfd200,d0 
andi.b #%11111010,d0 
ori.b #%00000110,d0 
move.b dO,$bfd200 
lea $bfe101,a0 
lea $bfd000,al 
lea $dffOaa,a2 
lea $aff09c,a3 
lea $aff180,85 
move. $affOlc,d2 
move. #%0000000010000000,d3 
move. #1,d4 
move. #2,d5 
move. #128,d6 
move. #8,d7 
and.w #%0111111111111111,d2 
move. d2,$dff09a 
move. #%1100000010000000, $dff09a 
move. #%1000000010000000, $dff09c 
#64 ,$bfe001 
bne elick5 
move. #%0000000010000000, $dff09a 
move. #%0000000010000000, $dff09c 
or.W # %1000000000000000,d2 
move. a2,3aff09a 
andi. #64 ,$bfe001 
beq.s elick4 
jer -138(a6) 
bra.s exit2 
public _MyAdO 
move.u d3,(a3) 
elr.w do 
move.b (a0),dO 
bset 45, (a1) 
belr , d5,(a1) 
eor.b d6,d0 
move.b dO,di 
asl.w a7,di 
move.b do,dı 
move.w di,(a2) 
asl.w  d4,dO 
move.w  (a4,d0),(a5) 
rte 
publie _MyAdı 
move.w d3,(a3) 
elr.w do 
elr.b (a0) 
move.b (a0),dO 
eor.b d6,d0 
move.b dO,di 
asl.w d7,d1 
move.b dO,dı 
move.w di,(a2) 
asl.w d4,d0 
move.w  (a4,d0),(85) 
rte 
global Block,512 
exit2: movem.l (a7)+,d0-d7/a0-a6 
#endasm 


A 'est() 





26 UN I 


247 Ckl rate=period[Current]/2; 


248 dR Stop(); 
249 pP  #aen 






250 kCB movem.1 dO-d6/a0-36,-(a7) 
251 xG move.w _rate,$dff0a6 
252 ss move.1 34,26 
253 4 jsr -132(26) 
254 um lea Testing, a0 
255 pe elr.1 do 
236 WW move.w _Hardware,dO 
257 qi asl.w #2,d0 
2BSENV move.1 (a0,d0),$70 
259 eX move.w  #64,$dff0a8 
260 YI move.b #%00000000, $bfe301 
261 BS move.b $bfd200,d0 
262 55 andi.b #%11111010,d0 
263 x ori.b  #%00000110,d0 
264 al move.b d0,$bfd200 
265 9% lea $bfe101,a0 
266 4U lea $bfd000,al 
267 go lea $affOaa,a2 
268 yj lea $aff09c,a3 
269 vM move.u  $affOlc,d2 
270 08 and.v  #%0111111111111111,d2 
271 60 move.w d2,$dff09a 
272 m move.w #%1100000010000000, $dff09a 
273 hm move.w #%1000000010000000, $dff99c 
274 040 elick?: andi.b #64,$bfeoo1 
275 N1B bne elick2 
276 Vh move.u  #%0000000010000000, $dff09a 
277 in move. #%0000000010000000, $df£09e 
278 gC or.w #%1000000000000000, d2 
279 EK move.w  d2,$dff09a 
280 820 elick3: andi.b #64,$bfe0o1 
281 4ZB beq.s elick3 
282 bl jsr -138(86) 
283 IQ movem.1 (a7)+,d0-d6/a0-a6 
284 sx bra.s exiti 
285 Cp public _MyTestO 
286 dEO _MyTest0: move.v  #%0000000010000000, (a3) 
287 poB move.b (a0),do 
288 AY bset #2,(al) 
289 hu belr #2,(a1) 
290 ia eori.b #128,d0 
291 2e move.b dO,dı 
292 gf asl.v  #8,d1 
293 4g move.b dO,dı 
294 pa move.w di,(a2) 
295 vi rte 
296 Q4 public _MyTesti 
297 sUO _MyTesti: move. #%0000000010000000, (a3) 
298 gDB elr.b (a0) 
299 1C move.b (a0),do 
300 ıW eor.b #128,d0 
301 00 move.b dO,dı 
302 ap asl.v  #8,d1 
303 Eq move.b dO,dı 
304 2k move.w di,(a2) 
305 58 rte 
306 100 exit: move.1l d7,_regend 
307 bV4 #endasn 
308 yro | 
309 ZN WaitSound() 
310 wP | 
311 581. Forbid(); 
31247 Disable(); 
313 ıX0 #asn 
i lea $bfe101,a0 
lea Waiting,a2 
elr.1 do 
move.w _Hardware,dO 
asl.w #2,d0 
move.1 (a2,d0),a1 
move.b #%00000000, $bfe301 
move.b $bfd200,d0 
andi.b #%11111010,d0 
ori.b  #%00000110,40 
n move.b dO,$bfd200 
325 sUO waitl: elr.w do 
326 Jjsr (a1) 
andi.b #127,d0 
asr.b #2,d0 
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beq.s waitl 


emp.b 


#31,d0 


beq.s waitl 


bra.s 


quit 


public _MyWaito 
#%00000100, $b£d000 

b #%11111011,$bfd000 

b  #%00000001,$bfd000 
wait 

b (a0),do 


ori.b 
andi. 
andi. 
beq 

move. 
rts 

publi 
elr.b 
move. 
rts 


#endasm 
Permit(); 
Enable(); 

48 070 | 
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Listing 11. (Schluß) 


Programmname: 
Computer: 





© NyWaitı 
(a0) 
b (a0),ao 





myints.asm 


Amiga 500, 1000, 2000 


mit Kickstart 1.2 
Assembler 
Aztec-Assembler V3.6 
as myints.asm 


public _FastIntHandler 


'astIntHandler: 
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movem.1 dO/a0-al/a5,-(a7) 
move.u $affOle,dO 
and.w $affO1c,do 
move.1 $4,al 
btst #7,d0 
beq.s contO 
move.1 172(a1),a5 
np (85) 

btst #8,d0 
beq.s eonti 
move.l 184(al),a5 
Jmp (85) 

btst #9,d0 
beq.s eont2 
move.1 196(a1),a5 
‚JInp (85) 

btst #10,d0 
beq.s fuck 
move.l 208(al),a5 
Jjnp (85) 
moven.1 (a7)+,d0/a0-a1/a5 
rte 

public | _fastO 


and.w #%0000000010000000, d0 


move.w dO,$dff09e 
move.1 168(a1),ai 
move.1 4(a1),a5 
emp.l 8(a1),a5 
beq.s endreachedO 
bec.s checkloopO 
move.u #31,d0 
move.l _12(a1),a0 
move.u (85)+,(a0)+ 
dbra d0,copyO 
move.l a5,4(al) 
move.1 12(a1),a0 
move.1 a0,$dff0a0 
move.u #32,$dff0a4 
move.l 
move.1 


16(a1),12(a1) 
a0,16(a1) 





BhuanLeitung 


bra.s 
move. 
elr.1 
move. 
add.l 
asr.w 
move. 
bra.s 
move. 
tst.w 
beq.s 
move. 
move. 
move. 
move. 
bra.s 
noloop0: lea 
move. 
move. 


end_intO movem.1 


rte 
publi« 
and.w 
move. 
move. 
move. 
emp.l 
beq.s 
bee.s 
move. 
add.l 
move. 
bra.s 
: move. 
elr.1 
move. 
add.l 
asr.w 
move. 
bra.s 
move. 
tst.w 
beq.s 
move. 
move. 
move. 
move. 
bra.s 
noloop00: lea 
move. 
move. 


end_int00 moven.1 


rte 
StopIto: and.w 
move. 
move. 
move. 
asr.w 
move. 


movem.1 


rte 


1 


w 


w 
1 
1. 
1 


ı 
1 


E 
1 
© 
w 


Y 
1 


1 


w 


ı 


w 


w 


a 


ı 
1 
1 
ı 


1 
ı 


w 
W 
w 


w 


public 


and.w 
move. 
move. 
move. 
emp.1 
beq.s 
bec.s 
move. 
move 
move 
dbra 
move. 
move. 
move. 
move. 
move. 
move. 
bra.s 


w 
1 
ı 


w 


3 
“W 


end_intO 
20(a1) ‚$dff0a0 
do 

24(a1),dO 
a0,4(al) 

#1,d0 

a0, Faff0a4 
end_intO 
26(a1),a5 

(85) 

noloopO 
(e1),4(a1) 
30(a1),85 
$4,a1 
a5,168(a1) 
againO 
StopItO(pc) ‚a0 
4,al 
80,172(al) 
(a7)+,d0/a0-a1/a5 


_chipO 
#%0000000010000000,d0 
d0,$aff09e 
168(a1),al 
4(al),a5 
8(al),a5 
endreached00 
checkloop00 
a5, $dff0a0 
#64,4(a1) 
#32,$dff0a4 
end_int0O 
a5,$dff0a0 
do 

24(a1),d0 
d0,4(a1) 
#1,d0 
d0,$aff0a4 
end_int0O 
26(a1),a5 
(85) 
noloop00 

(a1) ,4(a1) 
30(a1),a5 
$4,al 
a5,168(a1) 
again0O 
StopItO(pc) ‚a0 
4,al 
80,172(a1) 
(a7)+,d0/a0-a1/85 


#%0000000010000000,d0 
d0,$df£09e 

a0,$df£09a 

d0,$arf09c 

#7,d0 

a0,$df£096 
(a7)+,d0/a0-a1/a5 


fasti 
#%0000000100000000,d0 
a0, $df£09c 
180(a1),ai 
4(a1),a5 
8&(al),a5 
endreachedi 
checkloopi 
#31,d0 
12(a1),a0 
(85)+, (a0)+ 
dO,copyi 
a5,4(al) 
12(a1),a0 
a0,$dff0bO 
#32,$dffOb4 
16(a1),12(a1) 
a0,16(a1) 
end_int1 


Listing 12. »myints.asm«. Bitte mit dem Checksummer 
(Seite 159) eingeben. 





) endreachedi: 


) checkloopl1: 


) noloopl: 
end_int1 


) -chipi 


) againıl: 


: 0 endreachedil: 


endreached2: 


move.l 
elr.1 
move.w 
add.l 
asr.u 
move.w 
bra.s 
move.1l 
tst.w 
beq.s 
move.1 
move.l 
move.l 
move.1 
bra.s 
lea 
move.1 
move.l 
movem.1 
rte 
public 
and.w 
move.w 
move.l 
move.1 
emp.1l 
beq.s 
bee.s 
move.l 
add.l 
move. 
bra.s 
move.l 
elr.1 
move.w 
add.l 
asr.w 
move.w 
bra.s 
move.l 
tst.w 
beq.s 
move.l 
move.l 
move.1 
move.l 
bra.s 
lea 
move.l 
move.l 
movem.1 
rte 
and.w 
move.w 
move.w 
ast.w 
move.w 
movem.1 
rte 
public 
and.w 
move.w 
move.l 
move.l 
cmp.1 
beq.s 
bee.s 
move.w 
move.l 
move.w 
dbra 
move. 
move. 
move. 
move, 
move. 
move. 
bra.s 
move.1 
elr.1 
move.w 
add.l 





20(a1) ,‚$aff0bO 
do 

24(a1),do 
d0,4(a1) 

#1,d0 
d0,$affüb4 
end_inti 
26(a1),a5 

(85) 

noloopi 
(a1),4(a1) 
30(a1),a5 
$4,a1l 
85,180(a1) 
againı 
StopIti(pe) ‚a0 
4,al 
a0,184(a1) 
(a7)+,d0/a0-al/a5 


checkloop2: 


_ehipi 
#%0000000100000000,d0 
a0,$aff09c 
180(a1),al 
4(a1),a5 
&(a1),a5 
endreachedi1l 
checkloopi1 
a5,$dffObO 
#64,4(a1) 
#32,$dff0b4 
end_int11 
a5,$dffObO 

do 

24(a1),dO 
40,4(a1) 
#1,d0 

a0, $affOb4 
end_int1l 
26(al),a5 

(85) 

noloopil 
(a1),4(a1) 
30(81),a5 
$4,al 
a5,180(a1) 
againıil 
StopIti(pc),a0 
A,al 
a0,184(a1) 
(a7)+,d0/a0-a1/a5 


heckloop22: 


noloop22: 


end_int22 


topIt2: 


#%0000000100000000, d0 
a0,$arf09c 

a0,$arf09a 

#7,d0 

a0,$aff096 
(a7)+,d0/a0-a1/a5 


„fast2 
#%0000001000000000,.dO 
d0,$dff09e 
192(a1),aı 
4(a1),a5 
8(al),a5 
endreached2 
checkloop2 
#31,d0 
12(al),a0 
(a5)+,(a0)+ 
d0,copy2 
a5,4(al) 
12(a1),a0 
a0,$dff0cO 
#32, $aff0c4 
16(a1),12(a1) 
a0,16(a1) 
end_int2 
20(a1) ‚gaff0co 
do 

24(a1),do 
a0,4(a1) 


( y endreached3: 


checkloop3: 


asr.w 
move. 
bra.s 
move.1l 
tst.w 
beq.s 
move.l 
move.l 
move.l 
move.1 
bra.s 
lea 
move.1l 
move.l 
movem.1 
rte 
public 
and.w 
move.w 
move.l 
move.l 
emp.1l 
beq.s 
bee.s 
move.l 
add.ı 
move.w 
bra.s 


» move.l 


elr.1 
move.w 
add.l 
asr.w 
move.w 
bra.s 
move.l 
tst.w 
beq.s 
move.1 
move.l 
move.1 
move.l 
bra.s 
lea 
move.1 
move.1l 
movem.1 
rte 
and.w 
move.w 
move.w 
ast.W 
move.w 
movem.1l 
rte 
public 
and.w 
move. 
move.l 
move.1l 
emp.1l 
beq.s 
bee.s 
move.w 
move.1l 
move.w 
dbra 
move. 
move. 
move. 
move. 
move. 
move. 
bra.s 
move.l 
elr.l 
move.w 
add.1 
asr.w 
move.w 
bra.s 
move.1 


#1,d0 
a0,$drfoch 
end_int2 
26(a1),a5 

(85) 

noloop2 

(a1) ,4(a1) 
30(a1),a5 
$4,al 
a5,192(a1) 
again? 
StopIt2(pe) ‚a0 
4,al 
a0,196(a1) 
(a7)+,d0/a0-a1/a5 


_chip2 
#%0000001000000000,d0 
a0,$dff09e 
192(a1),al 
4(a1),a5 
8(al),a5 
endreached22 
checkloop22 
a5,$ddff0cO 
#64,4(a1) 
#32,3aff0c4 
end_int22 
a5,$dff0cO 

do 

24(a1),dO 
d0,4(a1) 

#1,d0 
d0,$dff0ch 
end_int22 
26(a1),a5 

(85) 

noloop22 

(a1) ,4(a1) 
30(a1),a5 
$4,a1 
85,192(a1) 
again22 
StopIt2(pc),a0 
4,al 
a0,196(a1) 
(a7)+,d0/a0-a1l/a5 


#%0000001000000000, 0 
a0,$arf09c 

a0,$aff09a 

#7,d0 

a0,$arf096 
(a7)+,d0/a0-a1/a5 


_fast3 
#%0000010000000000, 40 
a0,$aff0Ie 
204(a1),al 
4(a1),a5 
8(a1),a5 
endreached3 
checkloop3 
#31,d0 
12(a1),a0 
(a5)+, (a0)+ 
d0,copy3 
a5,4(a1) 
12(a1),a0 
a0,$Fdff0do 
#32,$aff0d4 
16(a1),12(a1) 
a0,16(a1) 
end_int3 
20(a1) ‚$arf0dO 
do 

24(a1),d0 
a0,4(a1) 
#1,d0 

a0, Farfod4 
end_int3 
26(a1),a5 
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TE 


287 nTE tst.w (a5) 

288 6c beq.s noloop3 

289 15 move.1 (a1),4(al) 
290 yn move.1 30(a1),a5 
291 61 move.1 $4,al 

292 6d move.1l 85,204(al) 
293 KG bra.s again? 

294 2B0 noloop3: lea StopIt3(pe) ‚a0 
295 YTE move.1 4,al 

296 0a move.l a0,208(al) 
297 H00 end_int3 movem.1 (a7)+,d0/a0-al/a5 
298 ylE rte 

299 sc public _chip3 

300 2x0 _chip3 and.w #%0000010000000000,d0 
301 gmE move.w  dO,$dff0Ie 
302 Rx0 again33: move.l 204(al),al 
303 YoE move.1 4(a1l),a5 
304 Gr emp.L 8(a1),a5 
305 RT beg.s _endreached33 
306 Zv bee.s _checkloop33 
307 x1 move.1 a5,$dffOdO 
‚308. rN add.1 #64,4(a1) 
309 7E move.u  #32,$dff0d4 
310 Id bra.s end_int33 
311 dQ0 endreached33: move.1l a5,$dff0do 
312 kZE elr.l do 

313.Ye ; move.v 24(a1),dO 
314 DW add.1 a0,4(a1) 

315 85 asr.v  #1,d0 

316 uw move.u  dO,$arfOd4 
317 Pk bra.s end_int33 
318 byO checkloop33: move.l 26(a1),a5 
319 JzE tst.w (85) 

320 XM beq.s noloop33 

321 ob move.1 (al),4(al) 
322 UJ move.1 30(a1),a5 
323 0X move.1 $4,al 





PROFILAUFWERKE für Ihren AMIGA 


2 Jahre Garantie, 14 Tage Umtauschrecht, professionelle 
Leiterplatten, fast alle ICs gesockelt, Bedienungsanleitung, 
auf Wunsch vollständiges Manual mit allen Daten 
zu den Laufwerken lieferbar, 2tägiger Liefer-Rhythmus. 


Für alle Laufwerke gilt: 
- voll kompatibel zur vorhandenen Soft- und Hardware, 
komplett anschlußfertig, 
amigafarbenes Metallgehäuse, 
abschaltbar (intelligente Abschaltung), 
Kapazität 880 KB, 
korrekte LED-Ansteuerung, 
erkennen Disk-Change, 
kein separates Netzteil nötig (Stromversorgung über AMIGA) 
an alle AMIGA-Modelle anschließbar. 


Für unsere 5.25”-Laufwerke gilt zusätzlich: 
- alle umschaltbar 40/80 Tracks 


Alle Laufwerke sind auch mit Busdurchführung lieferbar und sind 
dann mit einer automatischen Laufwerkserkennung ausgestattet, 
so daß beim Anschluß eines weiteren Laufwerkes an unser Lauf- 
werk, das Fremdlaufwerk auf die nächsthöhere Laufwerksadresse 
als unser Laufwerk gesetzt wird. Aufpreis: 25,- DM 





Bauan LEITUNG 




























SDN 3.5”- 1037 A 249,- 


zusätzlich: - Superslimline, nur 25,4 mm hoch 
- nur noch 5V Spannungsversorgung 
- sehr niedriger Stromverbrauch 


SDN 3.5”- 1036A 269,- 


zusätzlich: - extrem robuste Mechanik 
= Standardbauhöhe 32 mm 


SDN 3.5” Digital - 1037A 289,- 


zusätzlich: - durchgeführter Bus bis df3: mit 
automat. Laufwerkserkennung 
- Digitale Trackanzeige mit 
Helligkeitsregulierung 


SDN 5.25”-TEAC FD 55 FR 299,- 


zusätzlich: - schwarze Frontblende 
- unformatiert 1 MB Kapazität 


SDN 5.25”-NEC1157C 309,- 


zusätzlich: - helle Frontblende 
- Diskettenauswurf durch Feder 
- unformatiert 1,67 MB Kapazität 


SDN 5.25” Digital - 1157C 339,- 


zusätzlich: - durchgeführter Bus bis df3: mit 
automat. Laufwerkserkennung 
- Digitale Trackanzeige mit 
Helligkeitsregulierung 


SDN 3.5” intern 219,- 
- für Einbau in A2000 
- komplett mit Einbauanleitung 
und Montagematerial 
- helle Frontblende 








324 09 move.1 a5,204(al) 

325 sh bra.s again33 

326 Ce0 noloop33: lea StopIt3(pe),a0 
327 AdE move.1l 4,al 

328 u6 move.1 a0,208(a1) 

329 KMO end_int33 moven.1 (a7)+,d0/a0-al/a5 
330. UHE rte 

331 uQ0 StopIt3: and.» #%0000010000000000,d0 
332 BHE move.w  dO,$Äff0Ie 

333 26 move.u  dO,$dff09a 

334 dg asr.W #7,40 

335 by move.u  dO,$AfL096 
336 d5 moven.1 (a7)+,d0/a0-a1/a5 
337 bO rte 

338 PE public _FastCopy 

339 Ba? _FastCopy: movem.l a0/al/d0,-(a7) 
340 gSE move.1 24(a7),do 

341 13 isr.l #1,d0 

342 RH move.1 20(a7),al 

343 uK move.1 16(a7),a0 

344 dg3 FastLoop: move.w (a0)+,(al)+ 

345 YSE subg.1 #1,d0 

346 TC bne FastLoop 

347 uR moven.1 (a7)+,a0/a1/d0 
348 gh rts 

349 U public _CheckPort 

350 IFL _CheckPort: move.1 4(sp),a0 

351 onE move.1 $14(a0),a0 

352 KL elr.1 do 

353 Dv tst.1 (a0) 

354 FR bne.s nomsg 

355 Ro adaq.l #1,d0 

356 XV3 nomsg: rts 
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Rohlaufwerke 
(unmodifiziert, ohne Gehäuse u. Kabel): 


NEC 1036A 195,- 
NEC 1037A 195,- 
NEC 1157C 229,- 
TEAC FD 55FR 229,- 


Gehäuse (NnEc 1036, 1037) 19,- 
Gehäuse (NEC 1157, TEAC FD 55) 22,- 


AMIGA 2000 & 1084 2350,- 
XT-Karte 890,- 
AT-Karte auf Anfrage 
NEC P2200 879,- 
NEC P6 1199,- 
Star LC10 588,- 
Star LC10 Color 750,- 
Eizo Flexscan 1499,- 
Mitsubishi EUM-1471A 1398,- 


Festplatte 30 MB - 5.25” 849,- 
-"für A2000 intern 

Festplatte 20 MB - 3.5” 949,- 
= für A2000 intern 

Festplatte 30 MB - 3.5” 1049,- 
- für A2000 intern 

Festplatte 30 MB 949,- 
- für A500/1000 extern 

Golem 2MB für A1000 a. Anfr. 

Profex 2MB für A500 a. Anfr. 


Bootselektor 19,- 
Farbband NEC P6 17,- 
Farbband NEC P2200 17- 


WIR FÜHREN GÜNSTIG 


UND SCHNELL REPARATUREN AN ALLEN 
AMIGA-MODELLEN AUS. 
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Veränderung des CLI 


ill man den Amiga programmieren, muß man sich an 

das CLIgewöhnen. Neben den vielen Vorteilen, die CLI- 

Fenster bieten, gibt es aber auch einige Nachteile. Mit 
InitCli3 (Listing 1) kann das Fenster nach eigenen Wünschen ver- 
ändert werden. 

Es erscheint wenig sinnvoll, im CLI, das ja eine Programmier- 
umgebung darstellt, vier Farben zur Verfügung zu haben. Vor al- 
lem, wenn man weiß, daß man dadurch 20 KByte Speicher 
mehr benötigt als bei zweifarbiger Darstellung. Dieses Problem 
kann mit InitCli3 leicht beseitigt werden, wenn man das Pro- 
gramm folgendermaßen aufruft: 
initeli -S 

Durch diesen Befehl wird eine der zwei Bit-Ebenen ausgeschal- 
tet, was zur Folge hat, daß nur noch zwei Farben dargestellt wer- 
den. Will man später zur vierfarbigen Darstellung zurückkehren, 
genügt die Eingabe von: 
initeli -s 

Wer den Monochrom-Modus benutzen will und keinen Schalter 
an seinem Monitor besitzt, kann dies auch softwaremäßig tun. Mit 
initeli -C 
wird dieser Modus eingeschaltet. Der Aufruf, um wieder die vor- 
eingestellten Farben aus Preferences zu benutzen, lautet: 
initcli -C 

Ein weiterer interessanter Befehl von InitCli dient dazu, das CLI- 
Fenster auf die maximale Größe zu bringen. Das heißt, daß nach 
initcli -m 
das Fenster den gesamten Bildschirm belegt. Einen Befehl zur 
Wiederherstellung der alten Größe gibt es jedoch nicht, aber dies 
läßt sich dann mit der Maus erledigen. 

Sehr ärgerlich ist es, wenn Text mit 80 Zeichen pro Zeile darge- 
stellt werden soll, aber wegen des Fensterrahmens nicht alle Zei- 
chen in eine Zeile passen. Dies umgeht man mit dem Aufruf: 
initeli -B 

Nach diesem Befehl wird der Rahmen des CLI-Fensters ausge- 
schaltet. Dadurch stehen für Text 80 Spalten und 32 Zeilen zur 
Verfügung. In diesem Modus kann das Fenster weder verschoben 
noch in der Größe verändert werden. Die Vorder- und Hinter- 
grundschalter funktionieren aber, obwohl unsichtbar, immer 
noch. Um wieder ein Fenster mit Rahmen zu erhalten, ruft man 
InitCli3 einfach so auf: 

















initeli -b 
Programmname: InitCli3 
Computer: Amiga 500, 1000, 2000 mit Kickstart 
1.2 
Sprache: C 
Compiler: Aztec C Version 3.40A 
Aufrufe: cc lnitCli3 -s In InitCli3.c -Ic 





RRRERRRRHRRRRRRRRRRRRRRRRRHRRHRERRRHRERERDGHGGGHG 
RRRRRRHRRRRRRR/ 


2 ih /% InitCLI Version 1.3 05/87 von Torsten Ju 


ergeleit % 
3 4s 7% 


* 
/* Inklusive einer verbesserten Version von SOLOBITMAP ( 
68000er 2/87) */ 
5 6u 7* 


4 eu 


* 
6 yb /%* (Version fuer Aztec C Compiler 3.4a und KickSta 
rt 1.2) *% 
RRERRRRRRRERRRGRRHRRREEHGRRREHREHEHHRERRRRR 
ERRRRRRERRRR/ 
8 0£0 #include <exec/exec.h> 
Imr #include <devices/console.h> 
10 hq #inelude <graphies/gfxbase.h> 
11 yA #include <graphics/display.h> 
12 wu #include <graphies/text.n> 
13 bq #inelude <intuition/intuition.h> 


7uy 


Mit »Preferences« kann man Voreinstel- 
lungen für Workbench und CLI vorneh- 
men. Noch mehr Parameter lassen sich 
mit »InitCli3« verändern. 


Mit »Preferences« kann man zwar einstellen, ob der Work- 
benchscreen im Interlace-Modus (320 x 512 Punkte) arbeiten soll, 
aber diese Umstellung wird erst nach dem nächsten Booten des 
Amiga vorgenommen. InitCli3 stellt sofort nach dem Aufruf 
initcli -I 
den Interlace-Modus ein und mit 
initeli -i 
wieder aus. 

Eine weitere interessante, bis jetzt noch nicht genutzte, Fähig- 
keit des Amiga ist es, verschiedene Zeichensätze auch in einem 
CLI-Fenster zu benutzen. Der Aufruf muß hierfür so aussehen: 
initeli -F< Font>/<Größe> 

Für <Font> muß ein Zeichensatzname eingegeben werden, 
der im Directory »Fonts« existiert. Der Name muß unmittelbar hin- 
ter dem »F« stehen. Mit Größe gibt man die gewünschte Zeichen- 
größe an, die natürlich in einem Subdirectory mit dem Fontnamen 
stehen muß. Um wieder den normalen System-Zeichensatz zu be- 
nutzen, lautet der Aufruf: 
initcli -f 

Die letzte Funktion dient dazu, den ursprünglichen Zustand 
wiederherzustellen: 
initeli -d 

Danach sieht das Fenster aus wie vor allen Veränderungen. 

Sollte man die Parameter vergessen, erhält man mit 
initeli ? 
eine kurze Anleitung mit allen Parametern. 

Um nun das Fenster ohne Rahmen und mit maximaler Größe 
darzustellen, muß man aber nicht InitCli3 zweimal aufrufen. Es 
können nämlich mehrere Parameter, durch Leerzeichen getrennt, 
angegeben werden, beispielsweise: 
initeli -B -S 
Die Reihenfolge der Parameter spielt dabei keine Rolle. 

InitCli3 ist durch all seine Fähigkeiten ein Programm, daß sicher 
immer wieder angewandt wird. (Torsten Jürgeleit/rs) 








14 Cz #include <libraries/dos.h> 
15 86 #include <libraries/dosextens.h> 
16 Vm #include <libraries/diskfont.h> 
17 rV #include <functions.h> 
18 Re #include <stdio.h> 
19 v2 define VERSION Rat 
20 dO #define REV OL 
21 54 #define NAMESIZE 40 
22 jg #define PSIZE 200L 
23 BE #define EOS '\o' 
24 XI #define SYSTEMGADGETS ( WINDOWDRAG I WINDOWSIZING ) 
25 3D #define BUF_NAME “Border” 
26 MF /* wichtige Deklarationen und Definitionen von globalen Var 
iablen */ 
27 95 struct GfxBase *GfxBase = NULL; 
28 kw struct ViewPort *vp; 
29 Ja struct ColorMap Kom; 
30 70 struct BitMap *b; 
31 fk struct IntuitionBase *IntuitionBase = NULL; 
32 YV struct Preferences *p; 
33 44 struct Window *w = NULL; 
34 08 struct DiskfontBase *DiskfontBase = NULL; 
35 yW struet MsgPort iorp = [[ 0, 0, NTMSGPORT, 0, 0}, 0, -1, 0 
36 MIN { (struct Node *)&iorp.mp_MsgList.Ih 
Tail, 0, 
37 BCP (struct Node *)&iorp.mp_MsgList.Ih 
„Head, 0, 0]}; 
38 inO struct IoStaReq ior = [{[ 0, 0, 0, 0, 0}, &orp, 0], 0}; 
39 ud UWORD mono_en[] = [ 


0x000, 0x0f0, 0x000, 0x000 }; /* Farbwe | 
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rte fuer Mono- * 


40 JLO * chrom-Darstellung : * 

41 hHO % schwarz, gruen, * 

42 Th * schwarz, schwarz * / 

43 fq0 VOID exit_program(), print_usage (), solobitmap_off(), solo 
bitmap_on(), 


44 245 monochrom(), default_colors(), max_window(), border_on 
(), border_off(), 

45 Jo exit_border(), interlace_on(), interlace_off(), new_fo 
nt(), 

46 8P default_font(), get_font(); 


47 iDO struct Window *get_window(); 

48 x4 SHORT check_flags(); 

49 QxF /* Haupt-Programm */ 

50 NFO VOID 

51 DM main(arge, argv) 

52 213 SHORT arge; 

53 xZ BYTE *argv[]; 

54 oH0 | 

55 KL3 REGISTER SHORT i; 

56 1A if (!(GfxBase = (struct GfxBase *) 

57 mkJ OpenLibrary(”graphies.library”, REV))) e 
xit_program(20); 











58 Dx3 if (!(IntuitionBase = (struct IntuitionBase *) 
59 d0J OpenLibrary(”intuition.library”, REV))) 
exit_program(21); 

60 cd3 if (!(w = get_windon())) exit_program(22); 

61 ja vp = &w->WScreen->ViewPort; 

62 uR b = &->WScreen->BitMap; 

63 bs if (ange == 1) [ 

64 89% printf("Flags fehlen !\n\n”); 

65 eS exit_program(23); 

66 423 ) 

67 Sm if (*argv[1] == '?') print_usage(); 

68 Dy for (i=1; i<arge; i++) | 

69 yu6 4£ (Kargv[i] I= '-') | 

70 Ea9 printf(”Vermisse '-' vor dem Flag '%e' !\n\n”, *(a 
rev[i]+1)); 

71 rv6 } else { 

72 109 switch(*(argv[i]+1)) [ 

73 e5C case '!s! : 

74 TER solobitmap_off(); 

75 8H break; 

76 740 case '!S! : 

77 36F solobitmap_on(); 

78 BK break; 

79 wIC case 'c! : 

80 4mF default_colors(); 

81 EN break; - 

82° R8C ease !C! : 

83 VIF monochron(); 

84 HQ break; 

85 WtC case 'm' : 

86 wxF max_window(); 

87 KT break; 

88 2EC case 'b! : 

89 IXF border_on(); 

90 NW break; 

91 XDC case '!B' : 

92 23F max_window(); 

93 Yn border_off(); 

94 Ra break; 

95 Unt case 'i! ; 

96 1YF interlace_off(); 

97 va break; 

98 zmC case 'I!: 

99 PUR interlace_on(); 

100 Xg break; 

101 RhC case 'f!: 

102 T9F default_font(); 

103 aj break; 

104 wgC case 'F' : 

105 AuF new_font(argv[i] + 2); 

106 dm break; 

107 R£C case !d! : 

108 bqF border_on(); 

109 go solobitmap_off(); 

110 YG default_colors(); 

111 IM max_window(); 

112 Ho interlace_off(); 

113 eK default_font(); 

114 Iu break; 

115 ztC default : 

116 x2F printf(”Unbekanntes Flag '-4c! !\n\n”, *(arg 
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v{i]+1)); 
117 ox break; 
118 uPg } 
119 v6 } 
120 uR3 |] 
121 hy exit_progran(0); 
122 yT0 } 
123 xHF /* Programm verlassen */ 
124 ZRO VOID 


125 il exit_program(error) 


126 Ye3 SHORT error; 

127 250 { 

128 a3 if (ior.io_Device) | 

129 2U6 if (iorp.mp_SigBit != -1) [ 
130 rt9 FreeSignal(iorp.mp_SigBit); 
131 706 } 

132 BO CloseDevice(&ior); 

133 9e3 


) 
134 08 if (GfxBase) CloseLibrary(GfxBase); 
135 JU if (IntuitionBase) CloseLibrary(IntuitionBase); 
136 MT if (DiskfontBase) CloseLibrary(DiskfontBase); 
137 ID exit(error); 


138 Ej0 } 

139 ger /* Bedienungshinweise */ 

140 ph0 voID 

141 1y print_usage() 

142 Eh | 

143 213 _printf(”\n\x9b1;33mInitOLI\x9b0;3;31m Version %s 05/87” 


‚ VERSION); 
144 RL printf("\x9bOm von \x9b4mTorsten Juergeleit\x9bOm\n\n”) 


145 kv printf(” \x9b7;42m Eingabeformat : \x9b0;40m\n”); 

146 DQ printf(” IniteLI [-s] [-S] [-e] [-C] [-m] [-b] [-B] 
[-1) [-2] [195 

147 x8 printf(” [-Ffont/size]\n”); 

148 a) printf(” [-d]\n\n”); 

149 56 printf(” \x9b7;42m Bedeutung der Flags : \x9b0;40m\n”); 

150 Y6 printf(” -5 = SoloBitmap ausschalten\n”) 


’ 
1510p  printf(" 8 = SoloBitmap einschalten\n”) 


’ 
152 Nb printf(” -c Farben aus Preferences ein 


schalten\n”); 

153 ut printf(” -C = Monochrom-Modus einschalte 
n\n”); 

154 Do printf(” -m = Maximale Window-Groesse\n” 


); 


155 5D  printf(”  -b Window-Rahmen einschalten\ 


n"); 

156 Lu printf(” -B = Window-Rahmen ausschalten\ 
a"); 

157 W printf(” -1 = Interlace Modus ausschalte 
n\n”); 

158 xE printf(” -I = Interlace Modus einschalte 
n\n”); 

159 nO printf(” -f£ = Standard ROM-Zeichensatz e 
inschalten\n”); 

160 Tk printf("” _-F[font]/[size] = Neuen Zeichensatz von Disk 
laden\n”); 


161 ea. printf(” -d 
chalten\n\n”); 
162 Md exit_program(0); 


Standardeinstellungen eins 


163 480 } 
164 6gF /* Task mit dazugehoerigen Window suchen - 
* 

165 nrG * entnommen aus 'SetFont 1.1' von Commodore 
-AMIGA %/ 

166 1vO struct Window * 

167 F} get_window() 

168 e7 [ 

169 4V3 struct MsgPort *con; 

170 mD struct StandardPacket *packet = NULL; 

171 hm struct InfoData *1d = NULL; 


172 X9 _ struct Window window = NULL; 

173 vB if ((OpenDevice("console.device”, -IL, &ior, OL)) != NUL 
L) exit_program(24); 

174 YF if ((iorp.mp_SigBit = AllocSignal(-1L)) < 0) exit_progr 
an(25); 

175 cn iorp.mp_SigTask = (struct Task %)FindTask(NULL); 

176 84 if (iorp.mp_SigTask->te_Node.In_Type == NT_PROCESS) { 


Listing 1. Der Quellcode von InitCli3 für den Aztec-C- 
Compiler V3.40A und Kickstart 1.2. Bitte mit dem 
Checksummer (Seite 159) eingeben. 
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177 KJ6 if (con = (struct MsgPort *) 

178 qaG ((struct Process *)iorp.mp_SigTask)->pr_Co 
nsoleTask) [ 

179 219 if (packet = (struct StandardPacket *) 

180 IQM AllocMem( (ULONG)sizeof(*packet), MEMF 

_CLEAR)) [ 

181.caC if (id = (struct InfoData *) 

182 nQL AllocMem( (ULONG)sizeof(*id), MEMF_CLEA 

5 R)) [ 

183 UHR packet->sp_Msg.mn_Node.In Name = (BYTE *)&( 
packet->sp_Pkt); 

184 sM packet->sp_Pkt.dp_Link = (struct Message *) 
&(packet->sp_Pkt); 

185 x1 packet->sp_Pkt.dp_Port = &iorp; 

186 Mi packet->sp_Pkt.dp_Type = ACTION_DISK_INFO; 
187 wz packet->sp_Pkt.dp_Argi = ((ULONG)id) >> 2 
5 /% BPIR !@#$R&! %/ 

188 UF PutMsg(con, packet); 

189 wu WaitPort(&iorp); 

190 b7 window = (struct Window *) (id-> id_VolumeNod 
e); 

191 kb FreeMem(id, (ULONG)sizeof(*id)); 

192 6bC ] 

193 hX FreeMem(packet, (ULONG)sizeof(*packet)); 

194 849 Y 

195 9e6 ) 

16 13 

197 UB ior.io_Unit = (struct Unit *) -1; 

198 JI return(window); 

199 DiO } 

200 kWF /%* Zweite Bitplane ausschalten */ 

201 0g0 voID 

202 Co solobitmap_on() 

203 Dg | 

204 AF3?_ if (b->Depth == 2) [ 

205 Fn6 b->Depth = 1; 

206 e2 FreeRaster(b->Planes[1], 640L, (ULONG)vp->DHeight); 


207 bi RemakeDisplay(); 

208 Mr3 

209 NsO } 

210 fur /* Zweite Bitplane einschalten */ 

211 yqO VOoID 

212 2) solobitmap_off() 

213 Ng | 

214 1R3 UWORD em[4]; 

215 xB PLANEPTR planeptr; 

216 IN if (b->Depth == 1) [ 

217 £p6 if (planeptr = AllocRaster(640L, (ULONG)vp->DHeight) 

Jt 

218 JC9 b->Depth = 2; 

219 Yd b->Planes[1] = planeptr; 

220 of BltClear(planeptr, (ULONG)RASSIZE(640, vp->DHeigh 

t), 01); 

221 pw RemakeDisplay(); 

222 11 if (p = GetPrefs((struct Preferences *) 

223 85Q AllocMem(PSIZE, MEMF_CLEAR), PSIZ 
E)) [ 

224 mTC em[0] = (UWORD)GetRGB4(vp->ColorMap, OL); 

225 wf em[1] = (UWORD)GetRGB4(vp->ColorMap, 1L); 

226 91 em[2] = p->color2; 

227 It em[3] = p->color3; 

228 EB FreeMem(p, PSIZE); 

229 bo FreeColorMap(vp->ColorMap) ; 

230 75 vp->ColorMap = GetColorMap(4L); 

231 al LoadRGB4(vp, em, 4L); 

232 kF9 ) 

233 166 } 

234 mi3 |) 

235 nIO } 

236 nLF /* Monochrom-Modus einschalten #/ 

237 060 voID 

238 h3 monochron() 

239 nc | 

240 m23 FreeColorMap(vp->ColorMap); 

241 ka vp->ColorMap = GetColorMap((ULONG)(2 * b->Depth)); 

2A2'WN LoadRGB4(vp, mono_cm, (ULONG)(2 * b->Depth)); 

243 voO | 

244 A3F /* Urspruengliche Farben aus Preferences ein 

schalten */ 

245 WOO VoID 

246 Ri default_colors() 

247 v0 | 

248 603 UWORD cm[4]; 





249 jc if (p = GetPrefs((struct Preferences *) 

250 ZJK AllocMem(PSIZE, MEMF_CLEAR), PSIZE)) { 
251 In6 em[0] = p->colorO; 

252 Ry em[1] = p->colori; 

253 89 em[2] = p->color2; 

254 jK cm[3] = p->color3; 

255 fc FreeMem(p, PSIZE); 

256 2F FreeColorMap(vp->ColorMap) ; 

257 0q vp->ColorMap = GetColorMap((ULONG)(2 * b->Depth)); 
258 Wg LoadRGB4(vp, cm, (ULONG)(2 * b->Depth)); 

2598 | 

260 Ch0 } 

261 26F /% Window auf Maximalgroesse bringen */ 
262 nfO VOID 

263 3d max_window() 

264 CE | 

265 0f3 ULONG deltax, deltay; 

266 54 deltax = - (ULONG)w->LeftEdge; 

267 oV deltay = - (ULONG)w->TopEdge; 

268 sA MoveWindow(w, deltax, deltay); 

269 dc deltax = (ULONG)w->WScreen->Width - (ULONG)w->Width; 
270 kh deltay = (ULONG)w->WSereen->Height - (ULONG)w->Height 


; 

271 5R SizeWindow(w, deltax, deltay); 

272 t6 Delay(10L); /* warten, bis Window vergroessert 

wurde */ 

273 PuO } 

274 SbF /%* Window-Rahmen einschalten */ 

275 0s0 VOID 

276 00 border_on() 

277 Ps | 

278 513 BYTE *pointer_buf; 

279 XU LONG *pointer; 

280 aA pointer_buf = w->UserData; 

281 bA pointer = (LONG *)(pointer_buf + 6); 

282 Ug if (I(stremp(pointer_buf, BUF_NAME))) [ 

283 pL6 fprintf(stdout, "\x0c\xibe\n”); /* Bildschirm loesch 
en und */ 

284 ıTd /% Console-Device re 

initialisieren */ 

285. Rw6 W->UserData = NULL; 

286 zk w->FirstGadget->NextGadget->NextGadget = (struct G 
adget *)*pointer; 

287 1H w->Title = (UBYTE *)*++pointer; 

288 Q1 w->Flags I|= SYSTEMGADGETS; /* System-Gadgets e 
inschalten *%/ 

289 fJ w->Flags &= "BORDERLESS; 
en */ 

290 9C RefreshWindowFrame(w); 

291 nd FreeMem(pointer_buf, 14L); 

292 1D3 |] 

293 JEO ] 

294 yvF /* Window-Rahmen ausschalten */ 

295 KCO VOID 

296 5t border_off() 

297 30 | 

298 1£3 BYTE *pointer_buf; 

299 y8 LONG *pointer; 

300 xw BYTE columns[4], lines[4]; 

301 26 if (w->UserData == NULL) [ 

302 QR6 max_window(); 

303 RJ if (!(pointer_buf = (BYTE *)AllocMem(14L, MEMF_CLEAR) 
» 

304 nP6 exit_program(26) ; 

305 256 strepy(pointer_buf‘, BUF_NAME) ; 

306 ri pointer = (LONG *)(pointer_buf + 6); 

307 ıK *%pointer = (LONG)w->FirstGadget->NextGadget->Nex 
tGadget; 

308 Ay *+pointer = (LONG)w->Title; 

309 HB w->UserData = pointer_buf;; 

310 en w->Title = NULL; 

311 IT w->FirstGadget->NextGadget->NextGadget = NULL; 

312 nU W->Flags &= "SYSTEMGADGETS; /% Systen-Gadg 
ets ausschalten */ 

313 a4 w->Flags = BORDERLESS; 
chalten */ 

314 Xa RefreshWindowFrame(w); 

315 xp fprintf(stdout, "\x9bOy\x9bOx\n”); Ru 
nke obere Ecke */ 

316 31 sprintf(&columns[0], "%d”, (BYTE) ((UWORD)640/w->IFont 
->tf_XSize)); 

317 04 fprintf(stdout, "\x9b%su\n”, &columns[0]); 

318 AG sprintf(&lines[0], "%d4”, (BYTE)((UWORD)w->WScreen->H 
eight/ 


/% Rahmen einschalt 


/* Rahmen auss 
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319 Wr w->IFont->tf_YSize)); 
320 hE6 fprintf(stdout, "\x9bZst\x0e\n”, &lines[0]); 


321283 |) 

322 ChO } 

323 WsF /% Interlace Modus einschalten */ 

324 n£O VOID 

325 RG interlace_on() 

326 cf | 

327 q3_ _GfxBase->system_bplconO I= INTERLACE; 

328 Y£ RemakeDisplay(); 

329 Jo0 } 

330 sIF /% Interlace Modus ausschalten */ 

331 umO VOID 

332 x3 interlace_off() 

333 Im | 

334 AX3 _ GfxBase->system_bplconO &= "INTERLACE; 

335 fm _ RemakeDisplay(); 

336 Qvo } 

337 UXF /* Neuen Zeichensatz von Disk laden */ 
338 1t0 VOID 

339 JX new_font(name) 

340 jK3_ _BYTE *name; 

341 RuO 
342 m13 BYTE font[NAMESIZE], *size; 
343 yz REGISTER SHORT i; 

344 Om if (*name == EOS) [ 


345 VI6 printf("Zeichensatzname und -groesse fehlen !\n\n”); 
346 19 exit_progran(28); 
347 063) 


348 Op size = name; 
349 eo for (i=0; (Xsize != '/') && (Xsize != EOS); i++) font[i] 


= Ksizet+t; 

350 6Q ir () | 

351 uV6 printf("Zeichensatzname fehlt !\n\n”); 
352 rH exit_program(29); 

353 n03 |] 

354 aD if ((Xsize == EOS) Il (*++size == EOS)) [ 
355 wx6 printf("Zeichensatzgroesse fehlt !\n\n”); 
356 89 exit_program(30); 

357 163 } 

358 K if (I(atol(size))) [ 

359 q26 printf(”Falsche Zeichensatzgroesse !\n\n”); 
360 IF exit_program(31); 

361 pK3 

362 ıT font[i] = EOS; 

363 bV streat(font, ”.font”); 


364 yx get_font(font, (UWORD)atoi(size), (UBYTE)FPF_DISKFONT); 

365 t00 

366 oVF /* Standard Zeichensatz aus dem ROM (topaz) 
einschalten */ 


367 UMO VoID 

368 92 default_font() 

369 tm | 

370 13 if (!(p = GetPrefs((struct Preferences *) 

371 82K AllocMen(PSIZE, MEMF_CLEAR), PSIZE))) e 





xit_program(32); 
372 Gf3 _get_font("topaz.font”, (UWORD)p->FontHeight, (UBYTE)FPF 
_ROMFONT) ; 
373 ZW FreeMen(p, PSIZE); 





35” Colordisketten: rot, gelb, grün, orange 
3,5” No Name Disks, nur 2DD, 135 tpi, 1. Wahl 
3,5” Markendisks, sehr gute Qualität 
Reinigungsset (naß, trocken) 5.25” 15- 35” nur 16,- DM 
Monitorreinigungsset (naß, trocken), 20 PADS nur 19,- DM 
Diskettenbox, doppelreihig, Schubladensystem, für 150 3.5” 45,- DM 
Markt&Technik-Bücher ab Lager lieferbar, speziell für Amiga auf Anfrage 
Tastaturschacht für A2000, ermöglicht das Reinschieben der Tastatur 

inkl. Kabel& Mouse, unter den A2000 (ähni. A1000) 129,- DM 
diverse Drucker-, Monitor-, DFÜ-, Anschluß-, Adapterkabel ab 1 M 
Druckerständer, Plexi, sehr stabil, Papierablage 5 
NEC 1036A als Ersatzlaufwerk für A500, 1000, 2000, Industrieversion 249,- 
NEC 1037A 199,- DM NEC 1157C 258,- alle NEC-Laufwerke + Ersatzteile 


je Stück 2,99 DM 
Staffelpreise 
je 10 Stück von 28,- bis 23,- DM 





diverse Spezialstecker & Buchsen für Amiga, z.B. 23pol. + Gehäuse 7,- DM 


selbstverständlich auch Ersatzteile (8520 ...) 

Amiga 500-2000, Tech. Reference Manual, Original Commodore 
NEC 1037A Laufwerk, 100% kompatibel, abschaltbar, mit/ohne Bus 
NEC 1037A Doppellaufwerk, tech. Daten wie vor, bes. günstig 

A2000 Int. NEC Spitzenlaufwerk, Einbaumat., deutsche Anleitung 
Interessante Festplatten mit/ohne Controller für die Amigas, z.B. den 
Testsieger aus Amiga 9/88: NEC D 3146H 3:5” 

A2090/2 Commodore SCSI/ST 506 Controller für den A2000 + A500 
mit Adapter, inkl. Software + Anschlußkabel 


auf Anfrage 
auf Anfrage 
auf Anfrage 
auf Anfrage 

249,- DM 


auf Anfrage 


798,- DM 








Toıs 


375 BGF /* Zeichensatz umschalten */ 
376 dVO VOID 

377 16 get_font(font, size, flag) 

378 E53 BYTE *font; 

379 ZU UWORD size; 

380 DF UBYTE flag; 

381 5Y0 [ 

382 tB3 struct TextAttr 

383 6K struct TextFont 

384 bD BYTE 

385 ks if (!DiskfontBase) [ 


*ta, Kold_ta; 
Ktf, Koldtf; 
columns[4], lines[4]; 


386 Pf6 if (!(DiskfontBase = (struct DiskfontBase *) 

387 HUS OpenLibrary( "diskfont. library”, 
REV))) [ 

388 aA9 printf(”'diskfont.library' fehlt !\n\n”); 

389 xm exit_progran(33) ; 

390 In6 } 

391 Jo3 } 

392 4L if (I(ta = (struct TextAttr *) 

393 MyE AllocMem((ULONG)sizeof(*ta), MEMF_CLEAR))) ex 


it_program(34); 
394 1X3 ta->ta_Name = (STRPTR)font; 
395 0X ta->ta_YSize = size; 
39% gr ta->ta_Style = FS_NORMAL; 
397 mv ta->ta_Flags = flag; 
398 89 if (flag == FPF_DISKFONT) [ 





399 Vs6 tf = (struct TextFont *)OpenDiskFont(ta); 

400 ABB) else [ 

401 rD6 tf = (struct TextFont *)OpenFont(ta); 

402 U23 | 

403 Tb if (tte) [ 

404 Ig6 printf(”Kann Zeichensatz '%s/%d' nicht finden !\n\n”, 
font, size); 

405 FJ3 |) else [ 

406 xk6 old_ta = w->WScreen->Font; 

407 M5 w->4WScreen->Font = ta; 

408 hP ta = old_ta; 

409 Ik old_tf = w->RPort->Font; 

410 PH if (!(SetFont(w->RPort, tf))) old_tf = tf; 

41 nd CloseFont(old_tf); 

412 Is printf(”\033c”); /* Bildschirm loeschen #/ 

4313 |) 


414 PL FreeMem(ta, (ULONG)sizeof(*ta)); 
415 18 if (!(stremp(w->UserData, BUF_NAME))) [ 


416 886 fprintf(stdout, "\x9bOy\x9box\n”) #1 
nke obere Ecke */ 

417 Mn sprintf(&columns[0], ”%4”, (BYTE)((UWORD)640/tf->tf_X 
Size)); 

418 dh fprintf(stdout, "\x9b%su\n”’, &columns[0]); 

419 nt sprintf(&lines[0],"%d”, (BYTE)((UWORD)w->WScereen->H 
eight/ 

420 Fs tf->tf_YSize)); 

421 Kr6 fprintf(stdout, "\x9b%st\x0e\n”, &lines[0]); 

42203 |] 

423 pKO } 


(6) 1987 M&T 





Listing 1. (Schluß) 





‚A500 Speichererw., 512 K auf 1 MB, inkl. akkugepufferter Echtzeituhr, 

hardwarem. abschaltbar, 1. ab. dtsch. Modell auf Anfrage 
‚Abdeckhauben: A500 22,- DM, A2000 Tast. 22,- A 10814, NEC 43,- DM 
Amiga Public Domain auf 3,5” Disketten z.B. Fish, RPD, CC, ab 4,50 DM 
Faug, Panorama, Auge, ACS ab 11 St. 350 DM ab 25 St. nur 3,- DM 
NEC P6+, P7+, div. Zubehör: Colorsatz, Einzelblatteinzug auf Anfrage 
Star LC-10 oder LC-10-Color, Commodore MPS 1500 ab Lager lieferbar 
Kickstartumschaltplatine für A500, 1000, 2000 bis max. 4 KS auf Anfrage 
Eprombrennservice, Kick 1.3, Viruskick auf Anfrage 
Stereobausatz für den 1081 (+ bgl.) Monitore, 100% Stereo 79,- DM 
Wordperfect, die Textverarbeitung für den Amiga nur 359,- DM 
NEC Multisync I, kein Import, dtsch. Version, anschlußf. 1398,- DM 
Eizo 80608, 0.28 dots, Spitzenmonitor mit Fuß, anschlußf. 1439,- DM 
komplettes NEC- + Eizo-Programm, anschlußfertig an AMIGA! 


%*%** Wir liefern Ihnen alle Hard-, Software für das 1. Amiga-Sonderheft, 
Preise auf Anfrage! 

*%* Informationen + 3 PD-V Disks gegen 10,- DM nur in Bar, keine Schecks 

%*%** per Vorauskasse ohne Versandkosten! 


Versand: UPS-Nachnahme + anteilige Versandkosten 
‚Achtung, viele unserer Preise standen bei Drucklegung nicht genau fest bzw. sind 
ständig in Bewegung. Bei Bedarf bitte anfragen! 


AHS-AMEGAS Hard & Software Vertriebs GmbH 


Postfach 100248 : Ladenverkauf: Kaiserstraße 82 - 6360 Friedberg 1 - Telefon 06031/61950 (nicht aufgeben!) 
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Programmname: Division 
Computer: Amiga 500, 1000, 2000 mit Kickstart 
1.2 
Sprache: Basic 






Programm : Division 















1 RER 
2 gH REM * Division * 

3 Qb REM * written by Roland Keßler * 

4 zi REM * (c) 1987 by Markt & Technik * 

5 YO REM RRRARRRRRRRRRORRR 

6 EO REM Demonstration des Unterprogramms --Division-- 
7 20 Eingabe: 

8 gm2 cLS 

9 +1  WIDIH 77 

10 Ws INPUT "Dividend ";Dividend 

11 es INPUT "Divisor ";Divisor 

12 Zv INPUT "Länge ";Laenge 

13 20 PRINT 

14 59 PRINT "Sind Sie sicher (j/n) ?” 


15 KYO Abfragel: 


16 0k2  Eingabe$=INKEY$ 

17 rI IF Eingabe$="n” THEN RUN 

18 us IF Eingabe$<>"j” THEN Abfragei 

19 r2 CALL Division(Dividend,Divisor,Laenge) 
20 gJ PRINT 

21 9N PRINT Dividend; ”: ";Divisor; "=";Ergebnis$ 
22 iL PRINT 

23 L8 PRINT "Ausgabe auf Drucker (j/n) ?” 


24 xmO Abfrage2: 


25 9t2 Eingabe$=INKEY$ 
26 Cq IF Eingabe$="n” THEN WeiterJN 
27 93 IF Eingabe$<>"j" THEN Abfrage2 


28 Et LPRINT Dividend; *":";Divisor; "=" 








29 20 FOR Lauf=1 TO LEN(Ergebnis$) STEP 77 
30 P64 LPRINT MID$(Ergebnis$, Lauf, 77) 

31 Hc2 NEXT Lauf 

32 vk LPRINT 

33 YnO WeiterIN: 

34 uX2 PRINT 

35 fp PRINT "Noch eine Rechnung (j/n) ?” 


36 D30 Abfrage3: 


37 152  Eingabe$=INKEY$ 

38 JG IF Eingabe$="n” THEN END 

39 RH IF Eingabe$< > "j” THEN Abfrage3 
40. nc RUN 


41 DSO REM SUB-Programm --Division-- 


42 70 SUB Division(DD,DS,LA) STATIC 

43 YD2 SHARED Ergebnis$ 

44. nv Dividend=DD 

45 TR Divisor=DS 

46 39 LaengesLA 

47 ki IF SGN(Dividend)<>SCN(Divisor) THEN Ergebnis$="-” 

48 tz _ Dividend=ABS(Dividend) 

49 os _Divisor=ABS(Divisor) 

50 37 WHILE Dividend< >INT(Dividend) OR Divisor< > INT(Divisor 

) 

51 VCA _ Dividend=Dividendx10 

52 Vz Divisor-Divisor*10 

53 162  WEND 

54 FN FOR Lauf=1 TO Laenge 

55 a64 _ Stellen=FIX(Dividend/Divisor) 

56 tb Ergebnis$=Ergebnis$+RICHT$(STR$(Stellen) ‚LEN(STRE(Stell 
en))-1) 

57 xo Dividend=10* (Dividend-Stellen*Divisor) 

58 98 IF Komma=0 THEN Ergebnis$=Ergebnis$+"." : Komma=1 

59 j42 NEXT Lauf 

60 020 END SUB 

(C) 1987 M&T 


Listing 1. Das Demoprogramm zu »Division«. 
Bitte mit dem Checksummer (Seite 159) eingeben. 








Genaue 


Manchmal ist es sinnvoll, beim Teilen 
zweier Zahlen mehr als 16 Nachkomma- 
stellen zu erhalten. Mit »Division« können 
Sie bis zu 32000 Stellen hinter dem Kom- 
ma berechnen lassen. 


in Anwendungsfall ist das Erkennen von Perioden (das ist 
eine Ziffernfolge eines Bruchs, die sich ständig wieder- 
holt). Man benötigt dazu mindestens die zweifache Peri- 
odenlänge, bei dem Bruch 100/233 immerhin 464 Ziffern nach 
dem Komma. Selbst bei doppelter Genauigkeit erhält man in Ba- 
sic höchstens 16 Nachkommastellen. »Division« ist jedoch in der 
Lage bis zu 32000 Stellen hinter dem Komma zu berechnen. 
Das Programm Division (Listing 1) besteht aus zwei Teilen, dem 
Unterprogramm und dem Demonstrationsteil, der nur die Anwen- 
dung des Unterprogramms veranschaulicht. Inden Zeilen 8bis 14 
wird der Bildschirm gelöscht, die Zeilenlänge auf 80 Zeichen ein- 
gestellt und die Eingabe der drei Variablen »Dividend«, »Divisor« 
und »Laenge« verlangt. Die Variable Laenge beinhaltet die ge- 
wünschte Länge des Ergebnis-Strings. In den Zeilen 16 bis 21 
fragt das Programm ab, ob die Eingabe richtig war. Zugelassen 
sind die Tasten <n> und <j>.Die SUB-Routine »Division« wird 
in der Zeile 20 aufgerufen, die Variablen Dividend, Divisor und 
Laenge werden dabei an das Unterprogramm übergeben. Nach- 
dem vom Unterprogramm die Variable »Ergebnis$« mit der ge- 
wünschten Anzahl der Ziffern des Ergebnisses gefüllt worden ist, 
wird die Rechnung und das Ergebnis auf dem Bildschirm ausge- 
geben (Zeilen 21 bis 23). Nun wird der Benutzer in den Zeilen 24 
bis 28 gefragt, ob eine Ausgabe auf dem Drucker gewünscht wird. 
Falls ja, wird in den Zeilen 30 bis 34 die Rechnung und das Ergeb- 
nis auf dem Drucker ausgegeben. Dabei wird der Ergebnis-String 
durch den MID$-Befehl in Teile zu je 77 Zeichen aufgeteilt, die ein- 
zeln an den Drucker geschickt werden. So erreicht man eine for- 
matierte Ausgabe. Ohne diesen Befehl kann es Probleme mit der 
Preferences-Einstellung der Druckzeilen-Breite geben. Danach 
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Division 

wird gefragt, ob noch eine Rechnung durchgeführt werden soll. 
Wenn ja, wird das Programm neu gestartet, sonst beendet. Inden 
Zeilen 47 bis 66 befindet sich das Unterprogramm »Division«. Der 
Algorithmus hält sich an die Methode, die beim Dividieren »per 
Hand« angewandt wird. Auf einem Blatt Papier kann man das gut 
nachvollziehen. Die Zeilen 47 und 48 sind der Kopf der Routine. 
Es werden die drei Variablen aus dem Hauptprogramm erwartet, 
die hier allerdings die Namen DD, DS und LA haben, um eine Ver- 
änderung der Variablen Dividend und Divisor zu verhindern. 
Durch die SHARED-Anweisung hat auch das Hauptprogramm 
Zugriff auf Ergebnis$. Um die SUB-Routine verständlicher zu ge- 
stalten, werden die Variablen DD, DS und LA sofort wieder in Divi- 
dend, Divisor und Laenge umbenannt, wobei dies allerdings loka- 
le Variablen sind. Falls Dividend und Divisor unterschiedliche Vor- 
zeichen haben, erhält das Ergebnis als erste Stelle ein »-« (Zeile 
53). In den Zeilen 54 und 55 werden die Vorzeichen von Dividend 
und Divisor entfernt, und dann werden beide Variablen so lange 
mit zehn multipliziert, bis sie keine Nachkommastellen mehr ha- 
ben. Damit sind die Vorbereitungen abgeschlossen. 


Genauigkeit ist Trumpf 


In der FOR...NEXT-Schleife wird der Dividend durch den Divi- 
sor geteilt und die Stellen vor dem Komma des Ergebnisses an die 
Variable Ergebnis$ angehängt. Durch den RIGHT$-Befehl wird 
von dieser Zahl eine Stelle von links abgeschnitten, weil diese ent- 
weder ein »-« oder ein Leerzeichen enthält (Zeile 62). 

In der Zeile 63 wird der Rest der Division berechnet. Nun müßte 
man die nächste Stelle »herunterholen«, da aber im ersten Durch- 
gang der FOR...NEXT-Schleife schon mit dem ganzen Dividend 
gerechnet wird, muß nur eine Null angehängt werden, was durch 
das »10*.....« auch geschieht. Da, wie schon erwähnt, im ersten 
Durchgang mit dem ganzen Dividend gerechnet wird, muß auch 
im ersten Durchgang das Komma gesetzt werden (Zeile 64). 

Wenn Sie eine Division mit großer Genauigkeit benötigen, müs- 
sen Sie die Zeilen 47 bis 66 an Ihr Programm anhängen. Der Auf- 
ruf geschieht wie oben beschrieben. (Roland Keßler/rs) 
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Basic 





ür Aufsteiger 


as mit dem Amiga zu- 

sammen ausgelieferte 

Basic gehört zu einer 
neuen Generation von Inter- 
pretern: Programmzeilen be- 
nötigen keine Zeilennummern 
mehr, lange Variablennamen 
machen ein Programm we- 
sentlich lesbarer. Neue Befeh- 
le, die Zusammenfassung von 
Programmzeilen zu Blöcken 
und alphanumerische An- 
sprungmarken gestatten, ver- 
bessern den Ruf einer Pro- 
grammiersprache, in der struk- 
turierte Programmierung bis- 
her ein Fremdwort war. Die 
Grafik-Befehle eröffnen neue 
Dimensionen in der optischen 
Gestaltung von Bildschirmaus- 
gaben. Mit den Sound-Befeh- 
len zaubern Sie vierstimmigen 
Stereosound aus dem Compu- 
ter. Ihrer Kreativität sind keine 
Grenzen gesetzt. 


sondern auch künstlerische 
Fähigkeiten anspruchsvoll um- 
gesetzt werden können aber 
auch Einsteiger profitieren von 
diesem umfangreichen Basic- 
Kurs. 


Basic 
strukturiert 


Zunächst soll erklärt wer- 
den, was unter strukturierter 
Programmierung eigentlich 
gemeint ist und wie Amiga- 
Basic diese Programmierphi- 
losophie unterstützt. Die Mei- 
nungen über die strukturierte 
Programmierung sind durch- 
aus nicht einstimmig. Während 
sie bei Profis zur Selbstver- 
ständlichkeit gehört, ist sie bei 
Freizeitprogrammierern nach 
wie vor umstritten. Natürlich ist 
es viel leichter, zur Erstellung 









Wasist ein Interpreter? 


Wenn ein Basic-Programm 
mit einem Interpreter eingege- 
ben und gestartet wird, muß er 
für jeden Befehl-nachsehen, 
was er tun soll. Dafür existiert 
im Interpreter für jede Anwei- 
sungein Maschinenprogramm. 
Dieses muß der Interpreter fin- 
den und ausführen. 

Haben Sie ein einfaches 
Programm wie 
PRINT ”Hallo”; 

GOTO 100 

schaut der Interpreter bei 
»PRINT« erst nach, ob er den 
Befehl überhaupt kennt. Ist 
dies der Fall, so startet er das 
Programm, das für diesen Be- 
fehl zuständig ist. Ebenso ver- 
läuft es bei der »GOTO«-Anwei- 
sung. 






Sie stehen schon mit einem 
Bein in der Programmierung 
und können mit Begriffen wie 
FOR...NEXT oder IF...THEN 
umgehen? Dieser Kurs hilft Ih- 
nen, festen Fuß in einer Umge- 
bung zu fassen, in der es nicht 
mehr nur auf Logik ankommt, 
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Bei dieser Methode geht viel 
Zeit verloren. Ein Compiler um- 
geht diese Zeitspanne, indem 
er das Programm ein einziges 
Mal beim Start komplett in Ma- 
schinensprache übersetzt. So 
kann sich der Prozessor bei 
compilierten Programmen mit 
seiner eigentlichen Aufgabe 
beschäftigen und muß nicht 
ständig nach Befehlsprogram- 
men suchen. 

Compiler haben jedoch ei- 
nen entscheidenden Nachteil: 
Soll in einem Programm ein 
Fehler behoben werden, so 
muß der Compiler gestartet, 
das Programm geladen, korri- 
giert und wieder compiliert 
werden. Bei einem Interpreter 
hingegen kann das Programm 
nach Korrekturen sofort wieder 
gestartet werden. ! 























eines Programms einfach 
draufloszutippen und die Ab- 
lauflogik nebenher während 
der Programmierung zu ent- 
wickeln. 

Derartige Programme funk- 
tionieren nach der Fertigstel- 
lung ebenso wie ihre struktu- 


Kurse 


Amiga-Basic unterstützt 
die fantastischen Fähigkeiten 


der Hardware mit 


mächtigen Befehlen. Vorbei 

sind die Zeiten, in denen 

Grafik- und Musikkunstwerke mit 
PEEK und POKE program- 

miert wurden. Begeben Sie sich mit 
uns in neue Dimensionen der 
Basic-Programmierung. Schöpfen Sie die tollen Fähig- 
keiten Ihres Computers endlich voll aus. 


rierten Gegenstücke. Sollnach 
einiger Zeit Ihr Programm um 
eine »Kleinigkeit« erweitert 
werden, so fällt Ihnen das als 
Autor natürlich nicht schwer: 
einfach nach Zeile x die Anwei- 
sung a,b und c einfügen — fer- 
tig. Aber was ist das: Plötzlich 
spielt der Programmteil d voll- 
kommen verrückt. Aber für Sie 
als Programmierer ist das ja 
kein Problem: einfach (?)... 


KURSÜBERSICHT 


1. Strukturierte Programmie- 
rung 

Programmentwicklung, Top- 
Down-Design, Struktogram- 
me, optische Gestaltung von 
Quelltexten, »IF...THEN...EL- 
SE...ENDIF«, »WHILE... 
WEND« (Seite 85) 


2. Unterprogramme 
Funktionen, GOSUB-Unter- 
programme, echte Unterpro- 
gramme, lokale und globale 
Variablen, Parameterübergabe 
(Seite 90) 


3. Daten und Dateien 
Programmdateien, serielle Da- 
teien, relative Dateien, index- 
sequentieller Dateizugriff (Sei- 
te 92) 


4. Grafik 

Setzen von Punkten, Screens 
und Windows, Rechtecke und 
Ellipsen, Muster, Kopieren und 
Scrollen von Bildschirmaus- 
schnitten (Seite 95) 

5. Animation 

Bobs und Sprites, Bewegung 
von en Kollisionen (Sei- 
te 99) 


6. al 
Spracherzeugung, Tonleitern, 
Klangcharakteristik, Wellenfor- 
men (Seite 105) 


7. Unterbrechungsverarbei- 


| tung 
| Mausereignisse, Menüaus- 
wahl, Fehlerbehandlung, Zeit- 
messung (Seite 106) 


8. Externe Funktionen 
Einbinden von Maschinenpro- 

rammen, Aufruf von Library- 
"Funktionen, BMAP-Format 
(Seite 110) 





Einfacher wäre es jedenfalls, 
wenn das Programm eine kla- 
re, leicht durchschaubare 
Struktur besäße, also struktu- 
riert programmiert worden wä- 
re. Die Vorteile der strukturier- 
ten Programmierung wollen 
wir Ihnen anhand eines, bei 
der Einführung in diese Tech- 
nik oft verwendeten, Beispiels 
demonstrieren: Die Lösung fol- 
gender quadratischer Glei- 
chung: 


at +b*x+c=0 


Eine solche Gleichung hat in 
der Regel zwei Lösungen: 


2 
Br -b+Yb - hac 
2a 
2 
29, ZZ b V ®° - 4ac 
r 2a 


Keine Sorge — wir werden 
dieses Problem lösen, ohne 
Sie mit komplizierten mathe- 
matischen Beweisführungen 
zu belasten. Vorher sollten wir 
uns allerdings noch ein paar 
grundsätzliche Gedanken zur 
Programmierung von Compu- 
tern machen. 


Programmieren 
— was ist das? 


Wenn Sie sich entschlossen 
haben, ein bestimmtes Pro- 
blem mit dem Computer zu lö- 
sen, so sollten Sie erst einmal 
die Frage beantworten: Ist das 
Problem überhaupt auf einem 
Computer lösbar? Dann muß 
ein (Programmier-)Verfahren 
gefunden werden, mit dem 
sich das Problem lösen läßt. 
Ein solches Verfahren nennt 
man auch Algorithmus, und 
das ist nichts anderes als eine 
Lösungsvorschrift, die es dem 
Computer gestattet, das Pro- 
blem eindeutig und in ange- 
messener Zeit zu lösen. Unter- 
schätzen Sie den Faktor Zeit 
hierbei nicht, denn esgibt auch 
Lösungsverfahren, die zwar 
theoretisch in derLage sind, ei- 
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ne eindeutige Lösung zu lie- 
fern, jedoch dafür zuviel Zeit 
benötigen. Bei unserem Bei- 
spiel scheint es in dieser Hin- 
sicht keine Schwierigkeiten zu 
geben, daals Lösungsalgorith- 
mus die oben angegebenen 
Formeln zur Verfügung stehen. 
Der programmierte Algorith- 
mus für x1 lautet also: 


x1 = (-b + SOR( bib - 
4xakc )) / (2%a). 


Nicht selten gilt jedoch ein 
Algorithmus zwar für die mei- 
sten Variationen eines Pro- 
blems, bei Sonderfällen aber 
versagt er. So ist in unserem 
Beispiel der Lösungsalgorith- 
mus nicht brauchbar, falls der 
Koeffizient »a« gleich Null ist. 
Aus der Ursprungsgleichung 
ergibt sich dann »b*’x + c = 0« 
(eine sogenannte lineare Glei- 
chung). Diese Gleichung be- 
sitzt, falls b von Null verschie- 
den ist, die Lösung »x = -c/b«. 
Ebenfalls mit diesem Algorith- 
mus nicht lösbar ist der Fall, 
wenn der Wert unter der Wur- 
zel negativ ist. Berücksichtigen 
Sie bei der Programmierung 
diese Sonderfälle nicht, und 
ein Anwender Ihres Program- 
mes will eine derartige Glei- 
chung lösen, so führt dies 
im günstigsten Fall zum Pro- 
grammabbruch, oder schlim- 
mer: Der Anwender erhält ein 
falsches Ergebnis. So verhal- 
ten sich nur schlecht durch- 
dachte, minderwertige Pro- 
gramme. 

Unser erstes Programm (Li- 
sting 1) zeigt Ihnen einen Lö- 
sungsvorschlag, wie er bei 
Basic-Programmen häufig an- 
zutreffen ist. Allerdings bedarf 
es doch schon einiger Anstren- 
gung, um dem Listing zu ent- 


100 INPUT ”a,b,c”; a,b,c 

110 IF a = 0 GOTO 190 

120 d = bib - 4Xaxe 

130 IF d < 0 C0TO 260 

140 IF d = 0 COTO 280 

150 x1 = (-b + SOR(d))/2/a 

160 x2 = (-b - SQR(A))/2/a 

170 PRINT x1,x2 

180 GOTO 100 

190 IF b = 0 6070 230 

200 x0 = -c/b 

210 PRINT xO 

220 6070 100 

230 IF ce = 0 6070 310 

240 PRINT "Keine Lösung” 

250 G0TO 100 

260 PRINT "Komplexe Lösungen 
kann ich nicht” 

270 G0TO 100 

280 x0 = -b/2/a 

290 PRINT x0 

300 GOTO 100 

310 END 








Listing 1. So sieht ein un- 
strukuriertes Programm aus 
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nehmen, was dieses Pro- 
gramm nun eigentlich an einer 
bestimmten Stelle macht. 


Von oben nach 


unten 


Zum Glück gibt es einige 
Hilfsmittel, die es gestatten, 
das Erstellen von Programmen 
übersichtlicher zu gestalten: 
Zum einen sind dies »Strukto- 
gramme« genannte grafische 
Darstellungen der logischen 
Programmstruktur (siehe Ta- 
belle 1), zum anderen ist es die 
Programmiermethode des 
»Top-Down-Design«. Bei der 
letztgenannten Methode zer- 
legt man ein Problem erst grob 
in die zur Lösung notwendigen 
Schritte. Dann werden diese 
Bausteine schrittweise so ver- 
feinert, bis ein ablauffähiges 
Programm entsteht. Auch wir 
werden nach dieser Methode 
vorgehen. 

Zuerst Überlegen wir uns al- 
so, in welche Teile man das Lö- 
sen der quadratischen Glei- 
chung zerlegen könnte. Grob 
gesehen sind das zunächst 
drei Varianten: 

1. Eingabe der Werte für die 
Koeffizienten a, b und c 

2. Lösen der linearen Glei- 
chung 

3. Lösen der quadratischen 
Gleichung 

Die Punkte 2 und 3schließen 
sich gegenseitig aus, das 
heißt, es wird entweder nur die 
eine oder die andere Tätigkeit 
ausgeführt. Durch Überprü- 
fung des Wertes der Variablen 
»a« wird entschieden, welche 
Gleichung zu lösen ist. Versu- 
chen wir diesen Zusammen- 
hang einmal grafisch darzu- 
stellen. 

Wir verwenden für eine sol- 
che übersichtliche Darstellung 
dazu die in Tabelle 1 gezeigten 
Strukturblöcke. Aus diesen 
werden sogenannte Strukto- 
gramme aufgebaut. Ein für un- 
sere Zwecke geeigneter Block 
ist die »zweiseitige Alternati- 
ve«. Die zu überprüfende Be- 
dingung lautet »a = 0«. Ist die- 
se Bedingung wahr, so soll der 
mit »ja« gekennzeichnete 
Block (die lineare Gleichung), 
im anderen Fall der mit »nein« 
bezeichnete Block (quadrati- 
sche Gleichung) ausgeführt 
werden (Bild 1). 


Übersicht durch 
Struktogramme 


Würden wir dieses Strukto- 
gramm in ein Programm über- 
setzen, so wäre der Programm- 
ablauf nach der Ausgabe der 
Ergebnisse beendet. Eine wei- 





Sequenz (Befehle) 


DS Bedingung erfüllt ?2 = 
Li 










Solange (Bedingung) erfüllt 


Schleifenkörper 


Schleifenrumpf (Befehle) 


Wiederholungsbedingung 









Wiederholungsbedingung 












_ Schleifenabbruch- 
en bedingung 


BEGIN [<(Unter-)Progrannnane] 





Befehle 





Tabelle 1. Die Strukturblöcke und ihre Bedeutung: Unter- 
halb der Verzweigungsblöcke befindet sich der erste 
Schleifenkörper. Die Befehle im Schleifenrumpf werden 
mindestens einmal abgearbeitet, man spricht daher von 
einer nicht-abweisenden Schleife. Darunter befindet sich 
eine Schleife mit Abbruchbedingung. Ganz unten sehen 
Sie den Struktogramm-Rahmen eines Unterprogramms. 
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Einlesen 


Lösen der 
linearen 


Gleichung 


von a, 


b und c 


Lösen der 


quadratischen 





Gleichung 


Bild 1. Problemdarstellung durch Struktogramme 


tere Berechnung könnte erst 
durch einen Neustart des Pro- 
gramms erfolgen. Da dies et- 
was unkomfortabel ist, ergän- 
zen wir also die Aufgabenstel- 
lung so, daß eine beliebige An- 
zahl von Berechnungen durch- 
geführt werden kann. Wir wol- 
len den Anwender entscheiden 
lassen, wann er das Programm 
beenden möchte. Oft lassen 
sich für solche Zwecke »unsin- 
nige Eingaben« ausnutzen. Ei- 
ne solche ist zum Beispiel die 
Eingabe von Null für alle drei 
Koeffizienten. 

Der Übersicht (Tabelle 1) 
können Sie die Form des Struk- 
turblocks für Schleifenanwei- 
sungen entnehmen. Oberhalb 
des Schleifenkörpers wird die 
Bedingung festgelegt, bei der 
die Anweisungen desselben 
ausgeführt beziehungsweise 
wiederholt werden. Für unser 
Beispiel ist der Schleifenkör- 


Programm Quadrat 


per das in Bild 1 gezeigte 
Struktogramm und die Wieder- 
holungsbedingung lautet »a 
oder b oder c ungleich Null«. 
Damit man erkennen kann, 
daß es sich bei einem Strukto- 
gramm um ein komplettes Pro- 
gramm und nicht um einen 
Ausschnitt handelt, wird um 
das Diagramm ein Strukto- 
grammrahmen gelegt (Bild 2). 


Das sichere 
Baugerüst 


Nachdem nun das grobe 
Programmgerüst entwickelt 
ist, wenden wir uns den einzel- 
nen Bausteinen zu. Das Struk- 
togramm zur Lösung der linea- 
ren Gleichung (Bild 3) macht 
uns keine größeren Schwierig- 
keiten. Durch eine weitere 
zweiseitige Alternative wird der 
Fall, daß auch »b« den Wert 


Einlesen der 3 Koeffizienten a,b,c 


der Gleichung a # xarb#xtc=8 


Solange alle 3 Koeffizienten ungleich 8 


Koeffizient a = 


Lösen der 
linearen 
Gleichung 


e? 


Lösen der 
quadratischen 


Gleichung 


Einlesen der nächsten Koeffizienten 





Bild 2. Struktogramm eines kompletten Programms 
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Null hat, abgefangen. Bei der 
quadratischen Gleichung (Bild 
4) muß zunächst bestimmt wer- 
den, ob der Wert innerhalb der 
Wurzel (im Struktogramm mit 
»d« bezeichnet) negativ ist. Ist 
dies der Fall, gibt der Compu- 
ter eine entsprechende Mel- 
dung aus. Nun bleiben nur 
noch zwei Möglichkeiten übrig: 
»d« ist Nulloder größer als Null. 
Diese beiden Fälle werden un- 
terschiedlich behandelt. 
Aufgrund der von uns ge- 
wählten Struktogrammgröße 
ist für die hierzu notwendigen 
Schritte kein Platz mehr in der 
Grafik. Daher wird an dieser 
Stelle der Grafik vermerkt, daß 
ein weiteres Struktogramm 
(dieses sehen Sie in Bild 5) ein- 
gefügt werden muß. Nach der 
Fertigstellung der einzelnen 
Bausteine werden diese in das 
Programmgerüst eingefügt. 


Lineare Gleichung 


Koeffizient b = 8 ? 5 


Ausgabe: 
Keine Lösung 


Kurse 


So entsteht das komplette 
Struktogramm für die Lösung 
unseres Problems (Bild 6). 

Der Vorteil von Struktogram- 
men gegenüber den bekannte- 
ren Programmablaufplänen ist 
ihre größere Übersichtlichkeit 
und die Möglichkeit, daß jedes 
Struktogramm als Block wie- 
der in einem anderen enthal- 
ten sein kann; das heißt man 
kann Struktogramme beliebig 
tief verschachteln. Der besse- 
ren Übersichtlichkeit halber 
sollten Sie sich jedoch an die 
Regel halten, ein Strukto- 
gramm niemals größer als eine 
normale Schreibmaschinen- 
seite zu machen. Bei Platzpro- 
blemen lagern Sie Strukto- 
gramme auf weitere Seiten aus 
und machen dies mit einem 
Vermerk an entsprechender 
Stelle kenntlich, wie in obigem 
Beispiel gezeigt. 


Lösung x8 = 
-c/b 





Bild 3. Die Lösung einer linearen Gleichung 


Berechnen d = 


Ausgabe: 


"Mit mir 
nicht" 


b*b — 4r=a*=c 





Bild 4. Lösung einer quadratischen Gleichung 


-b/<C2raD 


Ausgabe: 
1 


Programm: Quadratische Gleichung 


Solange a, b, c nicht zugleich 8 


= 
<-b+SOR<A>>/ 
rad 


ZZ = 
<-b-SOR<ADD/ 
cra> 


Ausgabe: 


x1, x2 





Eingabe a,b, c 


Ausgabe: 
"Nicht 


mit mir 


Eingabe a,b, c 


Routinesache 


Mit der Entwicklung der 
Struktogramme ist die Pro- 
blemaufbereitung abgeschlos- 
sen. Das Eingeben des Pro- 
gramms ist nur noch Routine- 
sache. Die Formulierungen im 
Struktogramm erinnern nur 
wenig an die Sprache Basic. In 
der Tat lassen sich solche Dia- 
gramme in jede beliebige Pro- 
grammiersprache übersetzen. 
In unserer Übersicht (Tabelle 1) 
finden Sie für die jeweiligen 
Strukturblöcke die entspre- 
chenden Basic-Anweisungen. 


main: 
INPUT "a,b,c”; a,b,c 
WHILE a <> 00Rb <> 00Rc <>0 
IF a = 0 THEN 
PRINT "Loesung der linearen Gleichung !” 

ELSE 


Eine geeignete Vorgehenswei- 
se ist das Übersetzen jedes 
einzelnen Strukturblockes, um 
diesen dann getrennt von den 
anderen Bausteinen auf Fehler 
zu untersuchen. Beginnen wir 
mit dem Programmgerüst (Li- 
sting 2). Aus Ihrer Program- 
mierpraxis wissen Sie viel- 
leicht, daß Wiederholungen 
mit Programmschleifen reali- 
siert werden. Die Anwendung 
einer »FOR...NEXT«-Schleife 
empfiehlt sich hier jedoch 
nicht, da hier die Anzahl der 
Wiederholungen von vorn- 
herein festgelegt wird. Mit 
»WHILE...WEND« bietet Ami- 


PRINT "Loesung der quadratischen Gleichung !” 


END IF 
INPUT "a,b,c”; a,b,c 
WEND 
END 





Listing 2. Das Programmgerüst unseres Problems 


Bild 5. 
Das ausgelagerte 
Struktogramm Nr. 5 


Bild 6. 
Struktogramm eines 
kompletten Programms 


#1= 

<-b+SQOR<A>> 
ı <2ra> 

2= 
<-b-SQRCa>> 
<2r#aD> 





ga-Basic jedoch eine weitere 
Möglichkeit der Schleifenpro- 
grammierung: Gelangt der 
Computer während des Pro- 
grammablaufs an eine WHILE- 
Anweisung, so wird überprüft, 
ob die dem WHILE folgende 
Aussage zutrifft (hier: a,b,c un- 
gleich Null). Ist dies der Fall 
(die Aussage ist wahr), so wird 
das Programm mit der Abar- 
beitung der zwischen »WHILE« 
und »WEND« stehenden Be- 
fehle fortfahren. Mit der Aus- 
führung von »WEND« springt 
das Programm zurück zum 
entsprechenden »WHILE« und 
überprüft dort erneut die ange- 
gebene Bedingung. Dies wird 
solange fortgeführt, bis die Be- 
dingung falsch ist. In diesem 
Fall fährt das Programm mit 
den Befehlen nach dem 
»WEND«-Befehl fort. Ist die Be- 
dingung gleich bei der ersten 
Überprüfung falsch, so wird 
der zwischen »WHILE« und 
»WEND« stehende Programm- 
teil niemals durchlaufen. Da- 
her wird die »WHILE«-Schleife 
auch abweisende Schleife ge- 
nannt. Vielleicht haben Sie er- 
kannt, daß es sich bei der 
»FOR...NEXT«-Schleife um ei- 
nen Spezialfall der »WHILE«- 
Schleife handelt, denn die An- 
weisungsfolge 

L=1 

WHILE I <= 10 


(Befehle) 
I=I+1 
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REM Input nur zum Test 


INPUT ”b,c”; b,c 
IF b= O0 THEN 
PRINT ”Keine Lösung” 


ELSE 
x0 = -e/b 
PRINT xO 
END IF 
END 


Listing 3. Programmteil 
lineare Gleichung 


WEND 
entspricht genau 
FOR I = 1 T0 10 
(Befehle) 
NEXT I 

Die Programmteile für das 
Lösen der Gleichungen (Li- 
sting 3 und 4) sind schon einfa- 
cher zu durchschauen. Die 
beiden »Zweige« der zweiseiti- 
gen Alternative (ja und nein) 
werden programmtechnisch 
mit »IF...THEN...ELSE...END 
IF« realisiert. Ist die zwischen 
dem »IF«- und dem »THEN«- 
Befehl stehende Bedingung 
erfüllt, so werden die zwischen 
»THEN« und »ELSE« stehen- 
den Befehle abgearbeitet. 
Falls kein »ELSE«-Befehl vor- 
handen ist, werden die Befehle 
zwischen »THEN« und »END 
IF« ausgeführt. Ist die ange- 
gebene Bedingung jedoch 


REM INPUT-Anweisung nur zum Test 


INPUT "a,b,c”; a,b,c 

d = bkb - 4Xakc 

IF d > O THEN 
x1 = (-b + SOR(d))/2/a 
x2 = (-b - SOR(d))/2/a 
PRINT x1,x2 

ELSEIF d = 0 THEN 
x0 = -b/2/a 
PRINT xO 

ELSE 
PRINT "Mit mir nicht!” 

END IF 

END 





Listing 4. Programmteil 
quadratische Gleichung 


falsch, so werden die Befehle 
zwischen »ELSE« und »END 
IF« ausgeführt, falls kein »EL- 
SE« vorhanden ist, wird die Be- 
fehlsausführung nach dem 
»END IF«-Befehl fortgesetzt. 

Tritt die »ELSE«-Alternative 
überhaupt nicht auf, sowärees 
Platzverschwendung, wenn 
man im zugehörigen Strukto- 
gramm diesem nicht vorhan- 
denen Teil ebensoviel Platz 
einräumen würde, wie dem 
»THEN«-Zweig. Daher hat es 
sich eingebürgert, in diesem 
Fall den Strukturblock nach 
Bild 7 abzuwandeln. 
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Variable: 


0 ' Koeffizienten in der quadratischen 
0 ' Gleichung at xkx+b*x+c=0 


0 
0 ' Zwischenergebnis 


x0 = 0 ' Endergebnis bei linearer Gleichung 


x1 = 0 ' Endergebnisse bei 


x2 = 0 ' quadratischer Gleichung 


main: 
INPUT ”a,b,c”; a,b,c 


WHILEa <> O0O0Rb <> 00Re<>0 


IF a = 0 THEN 
IF b = 0 THEN 
PRINT "Keine Lösung” 
ELSE 
x0 = -0/b 
PRINT x0 
END IF 
ELSE 
d = bb - AXatc 
IF d > O THEN 
x1 = (-b + SOR(d))/2/a 
x2 = (-b - SOR(d))/2/a 
PRINT x1,x2 
ELSEIF d = 0 THEN 
x0 = -b/2/a 
PRINT xO 
ELSE 
PRINT "Mit mir nicht!” 
END IF 
END IF 
INPUT "a,b,c”; a,b,c 
WEND 
END 





Listing 5. Die Lösung des Problems als strukturiertes 


Programm 


Für die Testphase haben wir 
in die Beispielprogramme zwei 
Eingabeanweisungen einge- 
fügt. Funktionieren alle Pro- 
grammteile zufriedenstellend, 
so entfernen Sie die Testbefeh- 
le, fügen alle Teile zusammen 
und Ihre Problemlösung ist fer- 
tig (Listing 5). Damit Ver- 
schachtelungen im Programm 
leicht erkennbar sind, ist es 
vorteilhaft, den Programmtext 
der entsprechenden Struktur- 
blöcke einzurücken (siehe Li- 
sting 5). Sie haben jetzt die 
wichtigsten Techniken der 
strukturierten Programmie- 
rung kennengelernt. Sehen wir 
uns nun die weniger gebräuch- 
lichen Strukturen an. In Tabelle 
1 können Sie neben der abwei- 
senden Schleife auch eine 
nicht-abweisende Schleife er- 


kennen. In Amiga-Basic gibt es 
dafür keinen direkt entspre- 
chenden Befehl. Sie können 
diese Schleifenart, bei der der 
im »Schleifenkörper« liegende 
Programmteil mindestens ein- 
mal abgearbeitet wird, aber mit 
folgender Befehlskombination 
simulieren: 
begin: 
(Schleifenkörper) 
IF (Bedingung) GOTO be 
gin 

Diese Simulation ist übri- 
gens einer der wenigen Aus- 
nahmefäle der sauberen 
strukturierten Programmie- 
rung, der die Benutzung des 
»GOTO«-Befehles erlaubt. An- 
sonsten ist der »GOTO«-Befehl 
nur in Sonderfällen zur Beendi- 
gung des Programms gestat- 


Bedingung 


Anweisung 1 
Anweisung 2 





Bild 7. Der modifizierte Verzweigungsblock 


Kurse 


tet. Aber keine Sorge, wenn Sie 
sauber strukturiert ,program- 
mieren, werden Sie den »GO- 
TO«-Befehl nicht vermissen. 


Schlechte Zei- 
ten für »GOTO« 


Auch auf den Befehl 
»IF...GOTO« können Sie (abge- 
sehen von obiger Ausnahme) 
in Zukunft verzichten. Die Be- 
fehlsfolge »IF...THEN...ELSE 
„END IF« bietet Ihnen dafür 
mehr als einen vollwertigen Er- 
satz. 

Somit verbleiben noch drei 
Struktogrammtypen “aus der 


" Tabelle 1 zu besprechen. Die 


Bedeutung des Strukto- 
grammrahmens wird sich spä- 
ter, bei der Besprechung von 
Unterprogrammen, automa- 
tisch ergeben. Kommen wir al- 
so zur mehrseitigen Alternati- 
ve. Die zugehörige Befehlsfol- 
ge in Amiga-Basic lautet: 


IF (Bedingung 1) THEN 
(Befehlsblock 1) 
ELSEIF (Bedingung 2) 
THEN (Befehlsblock 2) 
ELSEIF (Bedingung 3) 
THEN (Befehlsblock 3) 


ELSE 
(Befehlsblock n) 
END IF 


Hier wird nun zuerst die Be- 
dingung 1 geprüft. Trifft diese 
zu, so wird Befehlsblock 1 ab- 
gearbeitet und danach wird mit 
der Befehlsausführung nach 
dem »END IF« fortgefahren. 
Trifft die Bedingung dagegen 
nicht zu, so wird Bedingung 2 
überprüft und entsprechend 
der Befehlsblock 2 ausgeführt 
oder nicht. Trifft keine der an- 
gegebenen Bedingungen zu, 
so wird die nach dem »ELSE«- 
Befehl stehende Befehlsfolge 
zur Ausführung gebracht. In 
der mehrseitigen Alternative 
können beliebig viele »EL- 
SEIF«-Anweisungen stehen 
und die »ELSE«-Anweisung 
kann, muß aber nicht vorhan- 
den sein. Um Rechenzeit zu 
sparen, ist es zu empfehlen, 
die Bedingungen nach der 
Wahrscheinlichkeit Ihres Ein- 
tretens zu ordnen. Denn wird 
die wahrscheinlichste Bedin- 
gung als erste Bedingung ge- 
setzt, ist es auch am wahr- 
scheinlichsten, daß der erste 
Befehlsblock ausgeführt wird. 
Und da danach die Befehls- 
ausführung nach dem »END 
IF« fortgesetzt wird, wird die 
Zeit für dienachfolgenden »EL- 
SEIF«-Abfragen gespart. 
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»Abweisende« 
Schleifen 


Zuletzt nun zur (abweisen- 
den) Schleife mit Abbruchbe- 
dingung. Auch aus einer 
Schleife kann man im allge- 
meinen nur mit Hilfe eines 
»GOTO«-Befehles springen. 
Entsprechend dem oben Ge- 
sagten sollte dies nur in Aus- 
nahmefällen geschehen. Eine 
der akzeptablen Möglichkeiten 
ist wieder der gewollte Pro- 
grammabbruch im Falle eines 
Fehlers: 


WHILE (Bedingung) 
(Befehlsblock 1) 

IF. (Fehlerbedingung) 

GOTO Marke 

(Befehlsblock 2) 

WEND 

(weitere Befehle) 

Marke: 

(Fehlerbehandlung) 


Günstiger als das »IF (Feh- 
lerbedingung) GOTO Marke«- 
Konstrukt ist der Sprung zur 
Fehlerbehandlung mit »ON 
ERROR GOTO«, dazu aber 
später. 

Vielleicht fragen Sie sich, 
warum dem »GOTO«-Befehl 
hier so wenig Bedeutung zuge- 
messen wird. Die Antwort ist 
einfach: man braucht ihn nicht. 
Das Konzept der strukturierten 
Programmierung erlaubt, wie 
Sie auch an unserem Beispiel 
sehen konnten, einzelne Pro- 
grammteile unabhängig von- 
einander zu entwickeln, zu te- 
sten und erst dann zu einem 
vollständigen Programm zu- 
sammenzusetzen. Will man 
nun einen dieser Programmtei- 
le verbessern, so muß auch 
wirklich nur dieser abgeändert 
werden, während Sie alle an- 
deren Teile unverändert las- 
sen. 

Dieser unbestreitbare Vorteil 
wird jedoch im allgemeinen 


Variablendeklaration: 


durch die Benutzung des »GO- 
TO«-Befehles zunichte ge- 
macht, da es dieser gestattet, 
von einem Strukturblock in ei- 
nen anderen zu springen. Da- 
her werden die einzelnen 
Blöcke durch den »GOTO«- 
Befehl so miteinander verwo- 
ben, daß normalerweise bei je- 
der Programmänderung das 
gesamte Programm umge- 
schrieben werden muß. Außer- 
dem trägt das »wilde« Umher- 
springen in einem Programm 
nicht gerade zu besseren 
Übersichtlichkeit bei. 


Reine 
Außerlichkeiten 


Wie baut man nun ein Basic- 
Programm idealerweise auf? 
Zuerst sollte damit begonnen 


werden, den im Hauptpro- 
gramm verwendeten Variablen 
Anfangswerte zuzuweisen. 


Der Sinn dieser Maßnahme 
liegt darin, alle benutzten Va- 
riablen dem Interpreter vor der 
eigentlichen Programmaus- 
führung bekannt zu machen, 
um so Rechenzeit zu sparen. 
Zusätzlich erhalten Sie da- 
durch schnell eine Übersicht 
über alle verwendeten Varia- 
blen. 

Weiterhin ist es vorteilhaft, 
einzelne Variablen als Spei- 
cher für Konstanten zu verwen- 
den. Ein Beispiel: Nehmen wir 
an, Sie haben ein Programm 
geschrieben, das formatierte 
Ausgaben auf dem Bildschirm 
liefert. Das Programm benötigt 
an verschiedenen Stellen die 
Information, wie viele Zeichen 
in eine Zeile passen. Wenn Sie 
einen hochauflösenden Moni- 
tor besitzen, werden dies 80 
Zeichen pro Zeile sein. Doch 
was passiert, wenn nun die 
Ausgabe auf einem Moni- 
tor/Fernseher erfolgen soll, der 
nur 60 Zeichen pro Zeile dar- 
stellen kann? Sie müssen das 


Monate = 12 ' Anzahl der Monate im Jahr 
Wochen® = 52 "Anzahl der Wochen pro Jahr 
PI = 4% ATN(1) 'Kreiszahl pi 


DIM MonatsNamen$[12] 
MonatsName$[ 1] = ”Januar” 


Funktionen: 
DEF FNsinh(x) = 0.5 * ( exp(x) - exp(-x) ) "sinus hyperbolicus 


main: 


'Dieses Programm berechnet zu jedem Datum den Wochentag 


' (Programm) 
END 
Unterprogramm1: 
' (Anweisungen) 
RETURN 
SUB UnterProgramm2(x,y,2z) STATIC 
' (Anweisungen) 
END SUB 





Listing 6. Ein typisches Programmgerüst 
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Programm nach jenen Stellen 
durchforsten, wo dem Pro- 
gramm die darstellbare Zeilen- 
breite mitgeteilt wird, und dort 
mühsam entsprechend än- 
dern. Wesentlich einfacher 
wird die gesamte Operation, 
wenn Sie am Anfang des Pro- 
gramms eine Variable mit der 
entsprechenden Zeilenbreite 
belegen. Bei einer Änderung 
braucht später nur deren Wert 
angepaßt werden. 

Nach den Variablen sollten 
die Funktionen definiert wer- 
den. Genaueres dazu später. 
Anschließend kann das eigent- 
liche Programm folgen. Dieses 
sollte am besten mit einer 
Sprungmarke (Label), zum 
Beispiel »Main«, eingeleitet 
werden. 

Nach der »END«-Anweisung 
des Hauptprogramms folgen 
dann die Unterprogramme. Ein 
typisches Programmgerüst 
sieht also wie in Listing 6 aus. 


Unterprogramme 
als logische 
Einheiten 


Wobei handelt es sich nun 
eigentlich bei Unterprogram- 
men. Bei der Entwicklung ei- 
nes Programmes mit Hilfe des 
Top-Down-Design beschrei- 
ben Sie den Programmablauf 
erst grob und verfeinern diesen 
Ansatz dann immer mehr. Häu- 
fig erweist es sich als günstig, 
zusammengehörige Pro- 
grammteile als eine logische 
Einheit aufzufassen. Um diese 
logische Zusammengehörig- 
keit zu betonen, ist es möglich 
diese Programmteile als soge- 
nannte Unterprogramme aus- 
zuführen. In Amiga-Basic gibt 
es drei derartige Zusammen- 
fassungen: Funktionen, »un- 
echte« und »echte« Unterpro- 
gramme: 

Einer Funktion in Basic kann 
eine Reihe von Werten überge- 
ben werden, mit denen sie Be- 
rechnungen zuführt und dann 
ein eindeutiges Ergebnis lie- 
fert. Dabei ist zu beachten, daß 
die Funktionsdefinition nicht 
länger als eine Programmzeile 
(80 Zeichen) sein darf. Neh- 
men wir als einfaches Beispiel 
eine Prozentrechnung: Sie ha- 
ben einen gewissen Verdienst 
und wollen wissen, wieviel Sie 
davon als Steuer dem Finanz- 
amt in den Rachen werfen dür- 
fen. In Ihrer Lohnsteuertabelle 
finden Sie leider nur den Ver- 
dienst und die Steuer in Pro- 
zent. Also schreiben Sie ein- 
fach eine Basic-Funktion, die 
für Sie rechnet: 


DEF FNsteuer(Einkommen, 
Prozent) = Einkommen * 
Prozent / 100.0 


Mit dem Befehl »DEF« teilen 
Sie dem Basic-Interpreter mit, 
daß jetzt die Definition einer 
Funktion folgt. Dabei muß jede 
von Ihnen definierte Funktion 
mit den beiden Buchstaben 
»FN« beginnen. Nach dem Na- 
men der Funktion folgen, in 
Klammern eingeschlossen 
und durch Kommata getrennt, 
die Parameter der Funktion. 
Die Namen dieser Platzhalter 
sind dabei Nebensache, es 
empfiehlt sich jedoch, aussa- 
gekräftige Namen zu wählen. 
Nach der Aufzählung der 
Platzhalter geben Sie nach ei- 
nem Gleichheitszeichen an, 
was innerhalb der Funktion mit 
diesen Platzhaltern gesche- 
hen soll. 

In Ihrem Programm können 
Sie dann etwa angeben: 


MeinVerdienst = 30000 
Abzug = FNsteuer(MeinVer 
dienst, 47.5) 


Da Funktionen in Amiga-Ba- 
sic leider auf eine Zeile be- 
schränkt sind, muß man häufig 
auf ihre Anwendung verzich- 
ten. Hier wird dann auf Unter- 
programme ausgewichen. 

Die »unechten« Unterpro- 
gramme, die mit Hilfe von »GO- 
SUB Label« aufgerufen wer- 
den, dürften Ihnen bekannt 
sein. Diese bieten die Möglich- 
keit, logisch zusammengehöri- 
ge Programmteile an separater 
Stelle niederzuschreiben (sie- 
he auch Bild 8): 


label: 


(Unterprogramn) 
RETURN 


Findet nun der Basic-Inter- 
preter im Programmablauf den 
Befehl »GOSUB label«, so ver- 
zweigt er zu dieser Marke, führt 
die danach folgenden Befehle 
aus, bis er auf den Befehl »RE- 
TURN« stößt. Dieser veranlaßt 
ihn, zu dem Befehl, von dem 
aus er das Label angesprun- 
gen hatte, zurückzuspringen 
und mit dem »GOSUB« folgen- 
den Befehl fortzufahren. 

Mit »GOSUB« aufgrufene 
Unterprogramme haben je- 
doch einen entscheidenden 
Nachteil: Sie besitzen nicht die 
für »echte« Unterprogramme 
notwendige Unabhängigkeit. 
Ein Unterprogramm sollte von 
dem Programm, dases aufruft, 
so unabhängig wie nur irgend 
möglich sein. Dies ist notwen- 
dig, damit es einerseits auch in 
anderen Programmen sinnvoll 
eingesetzt und andererseits 
ohne Anpassungsschwierig- 
keiten durch ein neues, besse- 
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Haup tprogr am 






CALL oder GOSUB ... 


Anweisung n 










Unterprogr am 





Bild 8. Der Aufbau von Unterprogrammen 


res Unterprogramm ersetzt 
werden kann. Zur Veranschau- 
lichung dient Listing 7. Es ent- 
hält zwei Unterprogramme: ein 
unechtes mit dem Namen 
»pseudo« und ein echtes mit 
dem Namen »echt«. 

Die Unabhängigkeit vom 
»Hauptprogramm« ist bei mit 
»GOSUB« aufgerufenen Routi- 
nen nicht erfüllt, denn alle Va- 
riablen des Unterprogramms 
sind auch im übergeordneten 
Hauptprogramm bekannt und 
umgekehrt. Das hat folgende 


Variable: 
a=1:b 
xe4:ıy 
mein: 
PRINT a,b,c,x,y,2 : PRINT 
GOSUB pseudo : PRINT 
CALL echt(a,b,z) : PRINT 
GOSUB pseudo : PRINT 
x = 400 : y = 500 : c = 300 
echt 2,%,(x) : PRINT 
COSUB pseudo 3 PRINT 

END 

pseudo: 
PRINT a,b,c,x,y,2 

RETURN 

SUB echt(x,y,2) STATIC 
SHARED a,c 
b = 20 
2 = 30 
PRINT a,b 
a=10 

END SUB 


2% 
9 


e=3 
2=6 


„K,yr2 








Listing 7. Lokale und globale 
Variablen 
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Konsequenzen: Erstens: Bei 
der Entwicklung des Unterpro- 
gramms muß der Programmie- 
rer darauf achten, daß er nicht 
unbeabsichtigt Variablenna- 
men verwendet, die schon im 
Hauptprogramm benutzt wer- 
den. Das kann fatale Folgen 
haben: ein Unterprogramm än- 
dert Variablenwerte, die im 
Hauptprogramm für eine ande- 
re Aufgabe vorgesehen sind. 
Die Fehlersuche in solchen 
Fällen ist in der Regel sehr auf- 
wendig. Zweitens: Die Varia- 
blenübergabe an solche Unter- 
programme ist sehr umständ- 
lich. 

Ein einfaches Beispiel: Mit 
dem Unterprogramm 
printxy: 

LOCATE Zeile%,Spalte% 
PRINT Text$ 
RETURN 


lassen sich beliebige Texte an 
einer beliebigen Stelle des 
Bildschirms ausgeben. Vor 
dem Aufruf der Routine müs- 
sen den Variablen Zeile%, 
Spalte% und Text$ natürlich 
noch entsprechende Werte zu- 
gewiesen werden. Das an die 
Variablennamen angehängte 
»%«-Zeichen klassifiziert diese 
als ganzzahlig (kurze Ganz- 
zahl), das angehängte »$« 
steht für Stringvariable. Nähe- 
res hierzu finden Sie im Amiga- 
Basic-Handbuch. 


Anweisung Ul 


END SUB oder RETURN 









Fälschung 


Um die Probleme, die durch 
gleiche Variablennamen ent- 
stehen können, zu beseitigen, 
haben die Entwickler des 
Amiga-Basic die Besonderheit 
vorgesehen, auch echte Unter- 
programme mit »lokalen« Va- 
riablen zu verwenden. Die Be- 
zeichnung »lokal« bedeutet in 
diesem Zusammenhang, daß 
diese Variablen nur dem Unter- 
programm, nicht jedoch dem 
Hauptprogramm bekannt sind. 
So werden Namenskonflikte 
vermieden. Sie können sowohl 
in Ihrem Hauptprogramm als 
auch im Unterprogramm eine 
Variable mit dem Namen »x« 
definieren. Während »x« im 
Hauptprogramm beispielswei- 
se den Wert Null hat, kann »x« 
im Unterprogramm Eins ent- 
halten. Mit der Verwendung 
von lokalen Variablen können 
Sie sich eine Sammlung oft be- 
nötigter Unterprogramme auf- 
bauen (sogenannte Pro- 
grammbibliotheken) und diese 
nach Bedarf in Ihre Program- 
me einfügen, ohne darauf ach- 
ten zu müssen, ob diese Varia- 
blen mit gleichnamigen im 
Hauptprogramm  kollidieren. 
Erst diese Arbeitsweise ermög- 
licht effizientes Programmie- 
ren. 


Kurse 


Wie bringen Sie Ihrem Ami- 
ga nun bei, daß Sie fortan nur 
noch »echte« Unterprogramme 
schreiben möchten? Dazu ge- 
nügt nicht mehr die Angabe ei- 
ner Sprungmarke, wie bei den 
mit »GOSUB« aufgerufenen 
Unterprogrammen. Ein echtes 
Unterprogramm muß mit der 
Anweisung 


SUB Unterprogrammname 
( Parameterliste ) STATIC 


beginnen. Obwohl die Varia- 
blen echter Unterprogramme 
in der Regel nichts mit denen 
des Hauptprogramms zu tun 
haben, müssen auf irgend eine 
Weise zu verarbeitende Werte 
übergeben werden. Dazu dient 
die Parameterliste. Sie enthält, 
ebenso wie bei den Funktio- 
nen, eine Aufzählung von »for- 
malen« Variablen, an die die 
von Ihnen gewünschten Werte 
übergeben werden können. 
Der Name »formale Variable« 
rührt von der Tatsache her, daß 
diesen Variablen im Unterpro- 
gramm nur insofern Bedeu- 
tung zukommt, als sie als 
Platzhalter für die dann tat- 
sächlich übergebenen aktuel- 
len Variablen des Hauptpro- 
gramms dienen, mit denen die 
Berechnungen dann durchge- 
führt werden. 

Entsprechend der »RE- 
TURN«-Anweisung bei den un- 
echten Unterprogrammen be- 
wirkt bei den echten die Anwei- 
sung »END SUB« das Been- 
den des Unterprogramms. Ein 
echtes Unterprogramm kann 
zusätzlich noch an beliebiger 
Stelle mit Hilfe des Befehles 
»EXIT SUB« verlassen werden. 

Aufgerufen werden echte 
Unterprogramme mittels des 
Befehls »CALL«. Mit 


CALL UprogName 
( Parameterliste ) 


veranlassen Sie Ihren Compu- 
ter, die Programmausführung 
mit dem genannten Unterpro- 
gramm fortzusetzen. Die for- 
malen Parameter des Unter- 
programms erhalten die Werte 
der in der Liste aufgeführten 
aktuellen Parameter. 

Hier wird es nun notwendig, 
sich mit der Art der Parameter- 
übergabe etwas genauer aus- 
einanderzusetzen. Es sind hier 
zwei Arten der Parameter- 
übergabe denkbar: zum einen 
die Übergabe durch Referenz, 
zum anderen die Übergabe als 
Wert. Diese Übergabeformen 
haben unterschiedliche Aus- 
wirkungen auf die Werte, die 
die übergebenen Parameter 
nach der Ausführung des Un- 
terprogramms annehmen kön- 
nen. Besprechen wir also zu- 
nächst die von Amiga-Basic 
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praktizierte Methode: die 
Übergabe durch Referenz. 

Bei diesem Verfahren wird 
dem Unterprogramm nicht der 
Inhalt der übergebenen Varia- 
ble mitgeteilt, sondern die 
Speicherstelle, in der sich die- 
ser Wert befindet. Dies hat 
zwei Konsequenzen: erstens 
können derartige Unterpro- 
gramme nicht rekursiv (aus 
sich selbst heraus) aufgerufen 
werden. 


Der Ruf nach 
Unterprogram- 
men 


Daher muß in Amiga-Basic 
ein Unterprogramm immer 
vom Typ »STATIC« sein. Die 
zweite — und wichtigere — 
Konsequenz ist, daß das Unter- 
programm durch diese Über- 
gabeart in die Lage versetzt 
wird, die aktuellen Parameter 
zu verändern; das heißt die ak- 
tuellen Parameter können 
nach dem Unterprogrammauf- 
ruf einen anderen Wert haben 
als vorher. Dagegen wird bei 
der direkten Übergabe des 
Wertes Wert in eine neue, vom 
Unterprogramm bereitgestell- 
te Speicherzelle geschrieben. 
Das bedeutet, daß sich alle An- 
derungen des Variablenwertes 
auf diese Speicherzelle bezie- 
hen und die Speicherzelle, in 
der die übergebene Variable 
im Hauptprogramm gespei- 
chert ist, nicht beeinflußt wird. 
Also haben nach einem Unter- 
programmaufruf, bei dem die 
Parameter als Wert übergeben 
wurden, die Parameter nach 
dem Aufruf die gleichen Werte 
wie vorher. 


Basic überlistet 


In einigen Fällen kann es Ih- 
nen durchaus wünschenswert 
erscheinen, die Parameter als 
Wert und nicht durch Referenz 
zu übergeben. Hier läßt sich 
der Basic-Interpreter nun 
durch einen einfachen Trick 
überlisten. Es ist Ihnen viel- 
leicht schon aufgefallen, daß 
Sie an die eingebauten Basic- 
Funktionen nicht unbedingt ei- 
ne Variable übergeben müs- 
sen. Esist auch möglich, einen 
Ausdruck, wie etwa »a+b«, an 
eine Funktion zu übergeben. 
Auch bei den von Ihnen ge- 
schriebenen Unterprogram- 
men ist dies möglich. Die Vor- 
gehensweise von Amiga-Basic 
ist dabei wie folgt: Es wird zu- 
erst der Wert des Ausdruckes 
berechnet (in unserem Bei- 
spiel also »a+b«) undnachdem 
dieser Wert von Ihnen an keine 
Variable übergeben wird, rich- 
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tet Amiga-Basic eine temporä- 
re Speicherstelle ein, in der 
dieser Wert abgelegt wird. Die 
Adresse dieser Speicherstelle 
wird dann an das Unterpro- 
gramm übergeben. Genau hier 
können Sie einhaken, indem 
Sie die zu übergebende Varia- 
ble in Klammern einschließen. 
So gaukeln Sie Amiga-Basic 
vor, daß sich innerhalb der 
Klammern ein zu berechnen- 
der Ausdruck befindet. Für die- 
sen Ausdruck wird dann eine 
temporäre Speicherstelle re- 
serviert, in die der berechnete 
Wert eingelesen wird. 

Nachdem in unserem Fall 
aber nichts zu berechnen ist, 
wird dorthin einfach der Wert 
der Variable geschrieben. An- 
statt der richtigen Adresse der 
Variablen wird im Unterpro- 
gramm nun diese temporäre 
Adresse benutzt, mit der Folge, 
daß der Wert der eigentlichen 
Variable vom Unterprogramm 
nicht verändert werden kann. 

Der unbestreitbare Vorteil 
der echten Unterprogramme 
sind lokale Variablen — trotz- 
dem sind diese nicht immer er- 
wünscht. Um dem Program- 
mierer die Möglichkeit zu ge- 
ben, bewußt Variablen zu defi- 
nieren, die sowohl im Haupt- 
programm, als auch im Unter- 
programm bekannt sind, ist in 
Amiga-Basic der Befehl »SHA- 
RED« implementiert. In Com- 
puter-Chinesisch heißen der- 
artige Variablen »global«, um 
ihren Gegensatz zu den loka- 
len Variablen herauszustellen. 
Geben Sie also in Ihrem Unter- 
programm (am besten gleich 
nach der »SUB«-Anweisung) 
das Schlüsselwort »SHARED«, 
gefolgt von einer Variablenliste 
an, so besitzen die genannten 
Variablen im Unterprogramm 
denselben Wert wie auch im 
Hauptprogramm. Listing 7 soll 
dazu dienen, die bisher ge- 
wonnenen Kenntnisse an ei- 
nem praktischen Beispiel zu 
erproben. Vor dem Lauf sollten 
Sie in einem »Trockentest« er- 
mitteln, welche Werte auf dem 
Bildschirm ausgegeben wer- 
den. Gelingt Ihnen dies, dann 
haben Sie die Prinzipien von 
lokalen und globalen Variablen 
sowie von der Datenübergabe 
an Unterprogramme als Wert 
und durch Referenz verstan- 
den. Wie Ihnen in diesem Li- 
sting sicher auffällt, haben wir 
den »CALL«-Befehl beiden Un- 
terprogrammaufrufen wegge- 
lassen. Dies können Sie immer 
dann gefahrlos tun, wenn kei- 
ne Verwechslungen mit 
Sprungmarken zu befürchten 
sind. Allerdings darf die Para- 
meterliste dann auch nicht in 
Klammern stehen. 


Von Daten 
und Dateien 


Sie haben nun Ihr erstes 
Standbein in Amiga-Basic er- 
worben. Doch bekanntlich 
läuft’s sich mit einem Bein 
ziemlich schlecht. Daher soll- 
ten Sie sich für weitere Fort- 
schritte noch Kenntnisse über 
den Umgang mit Dateien an- 
eignen. Aufbauend auf diesen 
beiden Grundpfeilern werden 
Sie sich dann auch sehr 
schnell mit den speziell auf die 
Hardware des Amiga zuge- 
schnittenen Eigenschaften 
von Amiga-Basic anfreunden 
können. 

Die Befehle »DATA«, »READ« 
und »RESTORE« sind Ihnen 
vielleicht schon bekannt, so 
daß wir sie hier nur der Voll- 
ständigkeit halber erwähnen 
(andernfalls lesen Sie bitte im 
Basic-Handbuch nach). Etwas 
interessanter sind schon die 
Befehle zum Umgang mit dem 
Dateisystem des Amiga. Der 
Befehl »FILES« zeigt Ihnen im 
Ausgabefenster die Files im 
aktuellen Directory an, wäh- 
rend Sie mit dem Befehl 
»CHDIR <Directory> «das ak- 
tuelle Directory ändern kön- 
nen. Mit»NAME <Dateil > AS 
<Datei2>« weisen Sie dem 
File <Dateit > den neuen Na- 
men <Datei2> zu. Dagegen 
löschen Sie mit »KILL <Da- 
tei> «ein File von der Diskette. 
Dabei ist zu beachten, daß alle 
Argumente der genannten Be- 
fehle wie Strings behandelt 
werden. Insbesondere müs- 
sen die Argumente daher in 
Anführungszeichen einge- 
schlossen werden. 

Im wesentlichen müssen Sie 
drei Arten von Dateien unter- 
scheiden: Programmdateien, 
sequentielle und relative Datei- 
en. Diese drei Arten sollen nun 
in dieser Reihenfolge bespro- 
chen werden. Am kürzesten 
fällt dabei die Besprechung 
der Programmdateien aus: 
Diese können mit Hilfe des 
»LOAD«-Befehles geladen und 
mit »RUN« zur Ausführung ge- 
bracht werden. Auf Diskette 
gesichert werden diese Datei- 
en mit Hilfe des »SAVE«-Be- 
fehles, wobei es aber einige 
Kleinigkeiten zu beachten gilt. 
Gibt man nur »SAVE <Datei- 
name> «an, sowird das Basic- 
Programm in einem speziellen 
Format abgespeichert. Wollen 
Sie dies verhindern, um etwa 
das Basic-Programm auch mit 
einem normalen Textverarbei- 
tungsprogramm bearbeiten zu 
können, so müssen Sie »SAVE 
<Dateiname>,A« angeben. 
Das »A« steht dabei für ASCII. 


Haben Sie ein Programm ein- 
mal im ASCII-Format gespei- 
chert, so merkt dies der Inter- 
preter bei Programmänderun- 
gen, das heißt beim Abspei- 
chern eines im ASCII-Format 
vorliegenden Programmes ist 
die Angabe des »A« überflüs- 
sig. Geben Sie statt »A« ein »P« 
an, so läßt sich das Programm 
bei erneutem Laden nicht 
mehr listen. Dies bietet einen 
einfachen Programmschutz. 
Alle hier angegebenen Befehle 
zur Behandlung von Pro- 
grammdateien können Sie im 
Befehlsfenster angeben, aber 
wahrscheinlich ziehen Sie die 
Anwahl dieser Befehle im »Pro- 
ject«-Menü mit Hilfe der Maus 
vor. 


Daten in Serie 


Kommen wir also nun zu den 
sequentiell oder auch seriell 
genannten Dateien, denn 
schließlich wollen Sie nicht nur 
Programme auf Diskette spei- 
chern, sondern auch Daten, 
mit denen die Programme ar- 
beiten können. Der Name »se- 
rielle« Datei rührt von der Tatsa- 
cheher, daß bei diesen Dateien 
die vorhandenen Daten nur 
nacheinander zu lesen sind. 
Sie können sich dies etwa wie 
bei einem Tonband vorstellen: 
Wenn sich Ihr Lieblingslied in 
der Mitte des Bandes befindet, 
dann müssen Sie eben gege- 
benenfalls bis dorthin vorspu- 
len (Bild 9). Das erklärt auch, 
weshalb Sie mit seriellen Da- 
teien im wesentlichen nur drei 
Dinge erledigen können: Die 
Informationen in der Datei 
nacheinander einlesen, über- 
schreiben oder aber Daten an 
das Ende der Datei anhängen. 

Dagegen ist es nicht mög- 
lich, irgendwelche Informatio- 
nen irgendwo in der Mitte der 
Datei einzufügen oder zu lö- 
schen, ohne die gesamte Datei 
in den Speicher zu holen und 
nach erfolgter Änderung wie- 
der vollständig neu auf Disket- 
te zu schreiben. Wie Sie sich 
vorstellen können, ist dies ein 
zeitaufwendiges Unterfangen. 
Zugegriffen wird auf serielle 
Dateien mit Hilfe des »OPEN«- 
Befehles, der folgende Syntax 
besitzt: 


OPEN <Dateiname> FOR 
<Modus> AS <Datei 
nummer> 


Damit können Sie Ihrem 
Amiga erst einmal die von Ih- 
nen gewünschte Datei be- 
kanntgeben. Dabei ist < Datei- 
name> der Name des ent- 
sprechenden Files, für 
<Modus> können Sie eines 
der drei Schlüsselworte (ohne 
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Datensatz 1 gelesen: 


Fee ee 
r 


Filezeiger 


Datensatz 2 gelesen: 


rt 


Filezeiger 








Bild 9. Das Lesen von seriellen Dateien 


Anführungszeichen) einset- 
zen: »INPUT« falls Sie von der 
Datei Daten einlesen wollen, 
»OUTPUTs, falls Sie eine neue 
Datei eröffnen oder eine alte 
Datei überschreiben wollen 
und schließlich »APPEND«, 
falls Sie Daten an eine beste- 
hende Datei anhängen wollen. 
Sollte im letzten Fall die Datei 
noch nicht existieren, so wird 
eine Datei mit dem entspre- 
chenden Namen angelegt. Die 
weiteren, noch zu besprechen- 
den Ein- und Ausgabebefehle 
erfordern die Angabe einer Da- 
teinummer, die Sie hier im 
»OPEN«-Befehl einer be- 
stimmten Datei zuweisen. 

Der Unterschied dieser Ein- 
und Ausgabebefehle zu den 
entsprechenden Befehlen zur 
Ausgabe auf den Bildschirm 
und zur Eingabe von der Tasta- 
tur besteht eigentlich nur dar- 
in, daß Sie zusätzlich angeben 
müssen, welche Datei von den 
Befehlen betroffen sein soll. 
Dazu folgt dem jeweiligen 
Bildschirm- oder Tastaturbe- 
fehl einfach die im OPEN- 
Befehl zugeordnete Dateinum- 
mer. Um diese Nummer von ei- 
ner normalen Zahl unterschei- 
den zu können, wird sie durch 
ein vorausgehendes Doppel- 
kreuz gekennzeichnet. 

Während also zum Beispiel 
der Befehl »PRINT 2,a$« die 
Zahl 2, gefolgt vom Textstring 
»a$« auf den Bildschirm aus- 
gibt, schreibt der Befehl 
»PRINT #2,a$« den Textstring 
»a$« in die Datei, der durch den 
»OPEN«-Befehl die Nummer 2 
zugeordnet wurde. 

Bis jetzt haben wir klar ge- 
trennt zwischen einer Datei, 
die ein Basic-Programm ent- 
hält und einer sequentiellen 
Datei, die Daten enthält. Falls 
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Sie Ihre Programmdateien im 
ASCII-Format abgespeichert 
haben, ist diese Unterschei- 
dung künstlich, wie Ihnen Li- 
sting 8 verdeutlicht. Da Sie die- 
ses Beispielprogramm nur zu 
eigenen Experimenten anre- 
gen soll, werden wir es nur kurz 
erläutern. Das Programm öff- 
net eine serielle Datei in der 
RAM-Disk und schreibt in die- 
se eine Reihe von Strings. Die- 
se Strings ergeben wiederum 
ein Basic-Programm. Der 
»CHAIN«-Befehl am Ende un- 
seres Programms bewirkt, daß 
dieses durch das in der seriel- 
len Datei gespeicherte über- 
schrieben wird. Nun enthält 
aber auch dieses Programm 
am Ende einen »CHAIN«-Be- 
fehl, mit dessen Hilfe sich die- 
ses Programm selbst erneut in 
den Speicher lädt und startet. 
Ein Zähler zeigt an, wie oft dies 
bereits geschehen ist. Somit 
haben Sie hier ein schönes 
Beispiel für eine Endlosschlei- 
fe. Die wichtige Erkenntnis, die 
aus diesem Beispiel zu ziehen 


ist, ist jedoch folgende: Es be- 
steht kein wesentlicher Unter- 
schied zwischen sequentiellen 
Dateien und im ASCII-Format 
abgespeicherten Programm- 
dateien. Somit ist es möglich, 
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programmgesteuert Program- 
me zu erstellen oder zu verän- 
dern (Für Profis: Mit Hilfe die- 
ser Methode sollte zum Bei- 
spiel ohne größere Schwierig- 
keiten ein Preprozessor im Stil 
der Sprache C realisierbar 
sein). Etwas Wichtiges können 
Sie aus Listing 8 allerdings 
noch entnehmen: Jede Datei, 
die Sie mit »OPEN« geöffnet 
haben, sollten Sie mit Hilfe des 
»CLOSE«-Befehles auch wie- 
der schließen. Dazu geben Sie 
nach dem »CLOSE« einfach 
die zugeordnete Dateinummer 
an. Geben Sie keine Datei- 
nummer an, dann werden alle 
zur Zeit geöffneten Dateien ge- 
schlossen. 


Ist alles relativ? 


Eine anspruchsvollere Art 
Daten zu verwalten sind relati- 
ve Dateien. Im Gegensatz zu 
seriellen Dateien ist es bei die- 
sen möglich, auf Daten an be- 
liebiger Stelle eines Files diekt 
zuzugreifen. Haben wir beiden 
seriellen Daten zur Veran- 
schaulichung das Beispiel ei- 





sequentielle Datei 





Datensatz 


oe 10 37e01 ee... ..w 


relative Datei 





Bild 11. Die unterschiedlichen Datensatzlängen bei 
sequentiellen und relativen Dateien 





Variable: 
COMMON anzahl 
anzahl = 0 
wohin$ = "ram:katastrophe” 
er$ = CHR$(13) : 


REM jede Basic-Programmzeile muss mit 


: REM Wagenruecklauf abgeschlossen werden. 


Variable$ = 
ausgabe$ 
katastrophe$ 
wieoft$ 
main: 
OPEN wohin$ FOR OUTPUT AS 1 
PRINT #1,Variable$ 
PRINT #1,wieoft$ 
PRINT #1,ausgabe$ 
PRINT #1,katastrophe$ 
CLOSE #1 
CHAIN wohin$ 
END 


"COMMON anzahl ”+er$ 

"PRINT anzahl”+cr$ 

"CHAIN ”+CHR$(34)+wohin$+CHR$ (34) +cr$ 
"anzahl = anzahl + 1”+cr$ 


: REM Achtung! Endlosschleife 
: REM zu diesem Befehl gelangt Basic nie 


Listing 8. Der Zugriff auf serielle Dateien 





nes Tonbandes benutzt, so 
entspricht einer relativen Datei 
am ehesten eine Schallplatte 
(Bild 10): Wenn Sie hier Ihr 
Lieblingslied hören wollen, so 
bringen Sie den Tonarm ein- 
fach in die richtige Position und 
lassen dann das Lied abspie- 
len. Sie müssen nur wissen, 
das wievielte Lied auf der 
Schallplatte Sie hören wollen. 
Ganz ähnlich verhält es sich 
mit den relativen Dateien: Den 
Liedern entsprechen »Daten- 
sätze«, die eine festgelegte 
Länge besitzen. Derartige Da- 
tensätze mit bestimmter, vor- 
gegebener Länge wollen wir in 
Zukunft als »Record« bezeich- 
nen. Um nun auf einen Record 
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zugreifen zu können, ist ein- 
fach dessen Nummer anzuge- 
ben. Bild 11 zeigt die unter- 
schiedlichen Datensatzlängen 
bei sequentiellen und relativen 
Dateien. Unter einem Record 
können Sie sich ein Feld (Ar- 
ray) mit einer bestimmten Län- 
ge (in Byte) vorstellen. 

Im Unterschied zu normalen 
Arrays, die entweder nur 
Integer-Zahlen, Strings oder 
Gleitpunkt-Zahlen enthalten 
können, können diese Datenty- 
pen in einem Record theore- 
tisch gemischt sein. Die Beto- 
nung liegt hier auf »theore- 
tisch«, denn bei Amiga-Basic 
funktioniert das nicht so ein- 
fach — aber dazu später mehr. 

Gehen wir einmal davon 
aus, daß eine relative Datei er- 
öffnet werden soll. Dies ge- 
schieht wieder mit dem 
»OPEN«-Befehl, allerdings oh- 
ne die Angabe eines Modus: 


OPEN <Dateiname> AS 
<Dateinummer> LEN=< 
Recordlänge> 


Dabei ist die Angabe der Re- 
cordlänge von besonderer 
Wichtigkeit, denn Amiga-Basic 
muß sich einen Datenpuffer 
dieser Länge anlegen, um ei- 
nen vollständigen Record le- 
sen oder schreiben zu können. 
Wie oben gesagt, kann ein Re- 
cord theoretisch die unter- 
schiedlichsten Datentypen 
(lange Ganzzahl, String ...) ent- 
halten. Dagegen wird der von 
Amiga-Basic angelegte Daten- 
puffer immer als String ange- 
sehen. Um also etwa eine dop- 
pelt genaue Gleitpunktzahl in 
einem Record abzuspeichern, 
muß diese erst einmal in eine 
Zeichenkette umgewandelt 
werden. Dabei ist es allerdings 
unnötig, jede einzelne Ziffer 
getrennt umzuwandeln, wie 
dies bei der »STR$«-Funktion 
geschieht. Um die Recordlän- 
ge richtig angeben zu können, 
genügt es vollkommen, zu wis- 
sen, daß eine doppelt genaue 
Gleitpunktzahl in der Amiga- 
internen Darstellung 8 Byte be- 
nötigt (eine einfach genaue 
Gleitpunktzahl und eine dop- 
pelt genaue Ganzzahl benöti- 
gen jeweils 4 Byte, eine kurze 
Ganzzahl 2 Byte). Die Funktio- 
nen »MKl«$(<kurze Ganz- 
zahl >)«, »MKL$(<lange Ganz- 
zahl>)«, »MKS$(<einfache 
Gleitpunktzahl >)« und »MKD$ 
(<doppelte Gleitpunktzahl>)« 
interpretieren ihr Argument je- 
weils als String. Die umgekehr- 
ten Funktionen (»CVI«,»CVL«, 
»CVS«»CVD«), bewirken das 
Gegenteil. Sie sollten sich un- 
bedingt die Unterschiede zu 
den »STR$«- und »VAL«-Funk- 
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Bild 10. 
Der Zugriff auf 
relative Dateien 


tionen vor Augen führen: Wäh- 
rend diese beiden Funktionen »| 
ihre Argumente tatsächlich in 
einen String oder eine Zahl 






Variable: 
Kennungk = 0 : REM Personalnumer, anzzahl = 4 Byte 
Name$ =" 


lange 6: 
name, String maximal 20 Byte 


REM Nach: 
Vorname$ = "" REM Vorname, String maximal 20 Byte 
Gehalt = 0 : REM Einkommen, Gleitkommazahl = 4 Byte 


M 
Recordnummer% = 1 : REM Schleifenvariable zum 


Recordzaehlen 
Anzahl% = 2 Reco: 


: REM Anzahl der einzulesenden Records 


main: 
OPEN "RAM:Personal” AS 1 LEN=48 


: REI en| 20 +20 +4 
FIELD #1, 4 AS Pı 


M Laenge = 4 + 
ersID$, 20 AS NachNam$, 20 AS VorNam$, 4 
3 








= MKL$(Kennung&) : REM in Dateipuffer 








Listing 9. Der Umgang mit relativen Dateien 
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pretiert. Dies erkennen Sie 
io- auch daran, daß die mit der 
nen die Argumente nicht ver- 
ändert, sondern nur uminter- 


»STR$«-Funktion in eine Zei- 
chenkette umgewandelte Zahl 
»12345« eine Länge von 5 Byte 
besitzt, während das mit der 
»MKI$«-Funktion erhaltene Er- 
gebnis hingegen nur 2 Byte be- 
nötigt. 

Nun wissen Sie zwar, wie Sie 
Zahlen als Strings interpretie- 
ren können, doch wie bringt 
man diese Strings in den Da- 
tenpuffer? Dazu ist es zu- 
nächst nötig, den Datenpuffer 
in unterschiedliche Bereiche 
aufzuteilen. Diesen Bereichen 
werden dann gezielt Strings 
und »Zahlen« zugeordnet. Dies 
geschieht mit Hilfe der 
»FIELD«-Anweisung, die Sie 
am besten immer direkt nach 
dem »OPEN«-Befehl angeben. 
Als Beispiel (siehe Listing 9) 
nehmen wir eine Personalkar- 
tei, die folgende Daten enthal- 
ten soll: Personalnummer (lan- 
ge Ganzzahl), Nachname (ma- 
ximal 20 Byte), Vorname (maxi- 
mal 20 Byte), Gehalt (einfach 
genaue Gleitpunktzahl). 


FIELD #1, <Längel> 
AS <Namel$>,..., 
LängeN> AS <NameN$> 
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teilt also den Eingabepuffer in 
N Abschnitte auf, die dann un- 
ter den Namen <Namei$> 
bis <NameN$> als Strings 
angesprochen werden kön- 
nen. Diese Namen erwecken 
zwar auf den ersten Blick den 
Eindruck, als seien sie ganz 
normale Stringvariablen, je- 
doch sind beim Umgang mit ih- 
nen einige Besonderheiten zu 
beachten: Da sie mit dem Da- 
tenpuffer der relativen Datei 
verbunden sind, dürfen ihnen 
keine Strings mit Hilfe des nor- 
malen Gleichheitszeichens zu- 
gewiesen werden. Tut man 
dies dennoch, so verlieren sie 
ihre Zuordung zum Datenpuf- 
fer und werden zu normalen 
Stringvariablen. 

Zuweisungen an Datenpuf- 
fervariablen haben daher mit 
Hilfe des »LSET«-Befehles 
oder des »RSET«-Befehles zu 
erfolgen. Der Unterschied zwi- 
schen diesen beiden Befehlen 
ist der, daß der erste die Daten 
linksbündig in den Puffer 
schreibt, während der zweite 
die Daten dem Puffer rechts- 
bündig zuweist. 

Nachdem der Datensatz 
dann vollständig in den Puffer 
übernommen worden ist, kann 
Amiga-Basic mit Hilfe des 
»PUT«-Befehls, dem als Argu- 
mente die Dateinummer und 
die Recordnummer zu überge- 
ben sind, den Record in die Da- 
teischreiben. Umgekehrt kann 
mit Hilfe des »GET«-Befehles 
ein bestimmter Record aus ei- 
ner Datei in den Datenpuffer 
eingelesen werden. 

Nun wissen wir, wie man Da- 
ten in relative Dateien schreibt 
und wieder zurückholt. Doch 
wie findet man bestimmte Da- 
ten wieder? Die einzige Infor- 
mationsquelle, die bis jetzt zur 
Verfügung steht, ist die Re- 
cordnummer. Um aber etwa in 
unserer Personaldatei den Na- 
men Müller zu finden, erweist 
sich diese Nummer als wenig 
hilfreich. Auch die Records der 
Reihe nach einzulesen, er- 
scheint wenig sinnvoll, denn 
dazu hätte eine serielle Datei 
auch genügt. Und dennoch 
sind serielle Dateien die Lö- 
sung unseres Problems. Der 
Trick dabei ist, sich eine seriel- 
le Datei anzulegen, die nicht 
den gesamten Record enthält, 
sondern nur ein Schlüsselwort 
aus jedem Record und die da- 
zugehörige Recordnummer 
(ein sogenannter Index). Durch 
die Beschränkung auf ein 
Schlüsselwort, wie etwa den 
Nachnamen, kann die serielle 
Datei im Regelfall so kurz ge- 
halten werden, daß sie voll- 
ständig in einen Array eingele- 
sen werden kann. In einen 
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zweiten Array werden gleich- 
zeitig die zugehörigen Record- 
nummern eingelesen. 

Und so wird der zu einem 
Nachnamen gehörige Record 
aufgefunden: Öffnen Sie die 
Index-Datei und lesen Sie die- 
se in zwei Arrays (Index und 
Recordnummer) ein. Suchen 
Sie im Index-Array nach dem 
fraglichen Namen und merken 
Sie die Position des Namens 
im Array vor. Nun lesen Sie aus 
der relativen Datei den Record 
ein, der im zweiten Feld (dem 
mit den Recordnummern) an 
der gleichen Position wie der 
gefundene Name steht. Dieses 
Zugriffsverfahren heißt index- 
sequentiell, da der relative Da- 
tensatz gefunden wird, indem 
die Recordnummer mit Hilfe ei- 
nes Schlüsselfeldes (der Ar- 
rayposition), in einer sequen- 
tiellen Datei bestimmt wird. 
Vielleicht ist Ihnen auch schon 
einmal die zugehörige (eng- 
lischsprachige) Abkürzung 
»ISAM« über den Weg gelau- 
fen. 

Nun bleibt nur noch zu klä- 
ren, wie viele Records in derre- 
lativen Datei enthalten sind, 
denn schließlich muß ja das 
Feld, in das die Schlüsselwör- 
ter eingelesen werden sollen, 
dimensioniert, also dessen 
Größe festgelegt werden. Hier 
kommt Ihnen die Tatsache zu 
Hilfe, daß Records eine be- 
stimmte Länge haben. Nach- 
dem die relative Datei geöffnet 


wurde (als Datei mit der Num- 
mer N), erhalten Sie mit Hilfe 
der Funktion »LOF(N)« die Län- 
ge der Datei in Byte und somit 
nach der Division dieser durch 
die Recordlänge die Anzahl 
der Records. 


Grafik Punkt für 
Punkt 


Nach den Basic-Befehlen 
der trockeneren Sorte wird es 
nun erheblich bunter. Wir kom- 
men zu den zahlreichen »Bon- 
bons«, die Amiga-Basic zu bie- 
ten hat. Bekannt geworden ist 
der Amiga vor allem durch sei- 
ne Grafikeigenschaften. Diese 
sind auch bei Amiga-Basic ent- 
sprechend berücksichtigt und 
werden mit einer Reihe von Be- 
fehlen unterstützt. 

Um eine grafische Darstel- 
lung auf den Bildschirm zu 
zeichnen, müssen die einzel- 
nen Punkte des Bildschirms 
gesetzt werden. Der einfachste 
Befehl hierfür ist »PSET«. Die 
Koordinaten werden bezogen 
auf die linke obere Bildschirm- 
ecke angegeben (Bild 12). In 
Zukunft werden wir, entspre- 
chend dem mathematischen 
Sprachgebrauch, die horizon- 
tale Bildschirmrichtung als x- 
Richtung unddie vertikale Bild- 
schirmrichtung als y-Richtung 
bezeichnen. Die linke, obere 
Ecke heißt dann »Ursprung des 
Koordinatensystems« und hat 


<403,108) 


Positionierung eines Punktes 


Bild 12. 


mit x- und y-Koordinaten 





die x-Koordinate O und die y- 
Koordinate 0 (0,0). 

Mit PSET »(200,170)« kön- 
nen wir also einen Punkt set- 
zen. Entfernen könnn wir die- 
sen wieder mit PRESET 
(200,170). Durch das Setzen 
der entsprechenden Punkte 
können beliebige, einfarbige 
Grafiken erzeugt werden. 

Eine mehrfarbige Grafik ist 
wesentlich ansprechender als 
eine einfarbige. Wie Sie viel- 
leicht wissen, kann der Amiga 
selbst auf der Workbench vier 
Farben darstellen: drei Vorder- 
grundfarben und den Hinter- 
grund. Daher ist es möglich, 
sowohl beim »PSET«- als auch 
beim »PRESET«-Befehl nach 
der Koordinatenangabe, durch 
ein Komma getrennt, die Farbe 
anzugeben, mit der der Punkt 
gezeichnet werden soll. Sie 
können also angeben: »PSET 
(200,170),<Farbe>«, dabei ist 
<Farbe> eine ganze Zahl 
zwischen 0 und 3, entspre- 
chend den vier auf der Work- 
bench darstellbaren Farben. 
Durch den Befehl »POINT 
(<x>,<y>)« erhalten Sie die 
Farbe des Punktes mit den 
Koordinaten (x,y). 


Jetzt wird’s bunt 


Mit diesen einfachen Befeh- 
len lassen sich bereits sehr an- 
sprechende Bilder erzeugen 
(Listing 10). Wir nehmen eine 
Bildschirmzeile mit einer Brei- 
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Variable: 
i= 1: REM Spaltenzaehler 

J = 1: REM Zeilenzaehler 
DIM rege1%(9) : 
rege1l%(9) = 
rege1%(8) 
rege1%(7) 
rege1%(6) 
rege12(5) 
rege1%(4) 
rege12(3) 
rege1%(2) 
) 

) 


regel%(1 
rege1%(0 


un nnn 
OrurrnmWOooo 


main: 

RANDONIZE TIMER 

FOR i = 1 70 300 
PSET (1,0) ,INT(4XRND) 

NEXT i 

FOR j = 0 70 179 
PSET( 1,j+1)‚regelß(POINT( 
PSET(300, j+1) ‚regel%(POINT(2 
FOR i = 2 TO 299 


NEXT i 

NEXT J 

WHILE NOT MOUSE(0) : 
END 


SLEEP : 


REM Zuordnungsregeln 


PSET(i,j+1),regel%(POINT(i-1,j) + POINT(i,j) + POINT(i+1,3)) 


WEND 


1,5) + POINT( 2,5) + POINT(300,5)) 
99) 


) + POINT(300,5) + POINT( 1,3)) 





Listing 10. »Zellulare Automaten« 


te von beispielsweise 300 Pi- 
xel. Stellen Sie sich nun diese 
300 Pixel lange Zeile so zu ei- 
nem Kreis gebogen vor, daß 
das Pixel 300 (der rechte Rand) 
wieder an das Pixel 1 (den lin- 
ken Rand) stößt, das heißt der 
rechte Nachbar von Pixel 300 
ist Pixel 1 und der linke Nach- 
bar von Pixel 1 ist Pixel 300. Wir 
setzen nun in dieser ersten 
Bildschirmzeile Punkte nach 
Belieben und in beliebigen 
Farben. In unserem Beispiel 
nehmen wir dazu einen Zu- 
fallszahlengenerator zu Hilfe. 
Die Funktion »RND« erzeugt 
Zufallszahlen zwischen 0 und 


1, wobei der Wert 1 gerade 
nicht mehr auftritt. Um unter- 
schiedliche Farben zu erhal- 
ten, wird diese Zufallszahl mit 4 
multipliziert und davon der 
Ganzzahlantel genommen. 
So erhält man Zahlen zwi- 
schen O0 und 3, die gerade den 
verfügbaren Farben entspre- 
chen. Nun berechnen wir aus 
dieser vorgegebenen Zeile die 
nachfolgende, indem wir für je- 
den Punkt der neuen Zeile die 
Summe der Farbwerte des dar- 
überliegenden Punktes und 
dessen beider Nachbarn be- 
rechnen (siehe Bild 13). Diese 
Summe liegt zwischen 0 (alle 









Summe: 18765 43 21 


drei Punkte hatten die Farbe 0) 
und 9 (alle drei Punkte hatten 
Farbe 3). Da nur die Farben 0 
bis 3 zur Verfügung stehen, le- 
gen wir uns eine Tabelle mit 10 
Einträgen (0 bis 9) an, die be- 
sagt, welche Farbe bei welcher 
Summe gesetzt werden soll. 
Mit dieser Zuordnungsregel 
können Sie nach Belieben ex- 
perimentieren, Sie werden die 
unterschiedlichsten Bilder er- 
halten. Aus der neuen Zeile 
läßt sich wieder die nächste be- 
rechnen und so fort. Damit das 
Bild auch auf den Bildschirm 
paßt, brechen wir die Berech- 
nung nach der 179. Zeile ab. 
Gebilde, die sich nach derarti- 
gen Regeln verhalten, heißen 
in der Informatik »Zellulare Au- 
tomaten«. 

Da wird immer von den fan- 
tastischen Farbmöglichkeiten 
des Amiga gesprochen und 
jetzt sollen nur vier Farben dar- 
stellbar sein? Keine Sorge — 
aber um mit mehr als vier Far- 
ben zu arbeiten, sind noch eini- 
ge Vorbereitungen notwendig. 


Farben kontra 
Speicherplatz 


Je mehr Farben auf dem 
Bildschirm eingesetzt werden 
sollen, desto mehr Speicher- 
platz benötigt der Amiga für 
dessen Verwaltung. Für einige 
Anwendungen — beispielswei- 
se die gemischte Ausgabe von 
Texten und Rechenergebnis- 
sen — ist eine große Farbaus- 
wahl nicht notwendig. Man hat 
sich deshalb mit einer Stan- 
dardeinstellung von vier Far- 








Bild 13. Die Berechnungsregel für zellulare Automaten 
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ben begnügt. Für unsere 
Zwecke ist das aber zu wenig. 
Wir definieren uns deshalb ei- 
nen neuen Bildschirm. Keine 
Angst — Sie brauchensich kei- 
nen neuen Monitor zu kaufen. 
Mit dem Amiga kann man sich 
auf demselben Monitor, je 
nach Erfordernis, einen Bild- 
schirm unterschiedlicher Auf- 
lösung und Farbauswahl defi- 
nieren. Dazu ist die folgende 
Anweisung notwendig: 


SCREEN <Nummer>, 
<Breite>,<Höhe>, 
<Bitplanes>, <Auf 
lösung> 


Die <Nummer> dient zur 
Identifizierung des Screens, 
<Breite> und <Höhe> le- 
gen die Größe des Bildschirms 
fest. <Bitplanes> ist eine 
ganze Zahl zwischen 1 und 5 
und bestimmt die Anzahl der 
möglichen Farben (2, 4, 8, 16 
oder 32). Mit <Auflösung> 
wird die maximale Anzahl der 
Bildpunkte festgelegt. Dabei 
entsprechen die möglichen 
Werte (Ganzzahlen zwischen O 
und 4) den Auflösungen 320 x 
256 (niedrige Auflösung), 640 x 
256 (hohe Auflösung), 320 x 
512 beziehungsweise 640 x 
512 (Interlace) Punkten. Um 
den verwendeten Speicherbe- 
reich wieder freizugeben, kann 
mit 
SCREEN CLOSE <Nummer> 


der Bildschirm wieder »ge- 
schlossen« werden. Nachdem 
wir nun die Eigenschaften un- 
seres Bildschirms festlegen 
können, müssen wir nur noch 
ein entsprechendes Fenster 
öffnen. 


Einstieg durchs 
Fenster 

Dazu dient die Anweisung: 
> >WINDOW 
<Kennummer>,<Titel>, 
(<linke obere Ecke>)-(< 
rechte untere Ecke>),< 
Typ>, <Screennummer> 


Diese Anweisung sieht kom- 
plizierter aus, als sie ist. Die 
einzelnen Parameter kann ein 
Beispiel am besten verdeutli- 
chen: 


WINDOW 2, "Test-Fenster”, 
(50,50)-(300,150),31,1 


Wie auch beim »SCREEN«- 
Befehl, kann man sich mit der 
Angabe der Kennummer auf 
das jeweilige Fenster bezie- 
hen. Hier sollte jedoch nicht 
die Nummer »1« verwendet 
werden, denn Amiga-Basic hat 
diese für sein Ausgabefenster 
reserviert. Der Titel erscheint 
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in der Titelleiste des Fensters. 
Werden keine Koordinaten an- 
gegeben, so besitzt das Fen- 
ster die Größe des Bildschirms, 
auf den man sich mit 
<Screennummer> bezieht. 
Der Parameter <Typ> gibt an, 
welchen Einfluß Mausbefehle 
auf das Fenster haben. Sie 
können damit festlegen, ob 
das Fenster mit der Maus ge- 
schlossen, in den Hintergrund 
gebracht, oder seine Größe 
verändert werden kann. Die 
unterschiedlichen Einstellun- 
gen schlagen Sie bitte in Ihrem 
Amiga-Basic-Handbuch nach. 
Jenach dem gewählten Wert 
<Bitplanes > steht Ihnen eine 
mehr oder minder große An- 
zahl möglicher Farben zur Ver- 
fügung. Bis jetzt haben wir 
aber noch nicht festgelegt, wel- 
che Farben das sein sollen. 
Diese Angaben teilen wir dem 
Computer mit dem »PALET- 
TE«-Befehl mit. Die Farben er- 
halten Kennummern von 0 bis 
maximal 31 (Einschränkung: In 
der hohen Auflösung 640 x 512 
sind nur 16 Farben möglich). 
Die Farben auf dem Bild- 
schirm werden im Prinzip ge- 
nauso festgelegt, wie bei ei- 
nem gewöhnlichen Fernseher: 
Aus den drei Grundfarben Rot, 
Grün und Blau (daher der Na- 
me RGB-Monitor) können 
durch Mischung nahezu belie- 
bige Farben hergestellt wer- 
den. Könnte man nur wählen, 
ob etwa die rote, grüne oder 
blaue Farbe vorhanden sein 
soll oder nicht, so gäbe es nur 
acht verschiedene Farben. Der 
Amiga bietet jedoch die Mög- 
lichkeit, die Intensität der ein- 
zelnen Farben in 16er-Schrit- 
ten zu variieren. Dies ergibt ei- 


ne Anzahl von 16 x 16 x 16 = 
4096 möglichen Farben. Die 
Intensitätswerte für eine kleine 
Auswahl von Farben sind im 
Basic-Handbuch bei der Be- 
schreibung des »PALETTE«- 
Befehls dargestellt. Die Syntax 
des Befehls ist demnach also: 


PALETTE <Farbnummer>, 
<Rotanteil>, <Grünan 
teil>,<Blauanteil> 


Mit dem Befehl 


COLOR <Vordergrund>, 
<Hintergrund> 


können Sie bestimmen, wel- 
che der mit »PALETTE« defi- 
nierten Farben für Vorder- und 
Hintergrund des Bildschirmes 
verwendet werden soll. 


Noch mehr 
Grafikbefehle 


Der einfachste der höheren 
Grafikbefehle kann mehr, als 
sein Name verheißt. Denn der 
»LINE«-Befehl zeichnet außer 
Linien auch Rechtecke, die zu- 
sätzlich mit einer Farbe ausge- 
füllt werden können. Mit der 
Anweisung 


LINE (<Startpunkt>) - 
(<Endpunkt>),<Farbe> 


zeichnet der Computer eine 
Gerade vom angegebenen 
Startpunkt (x1,y1) zum End- 
punkt (x2,y2) in der angegebe- 
nen Farbe. Wird keine Farbe 
angegeben, dann wird die ak- 
tuelle Vordergrundfarbe be- 
nutzt. Werden keine Startkoor- 
dinaten angegeben, wird vom 
letzten gesetzten Punkt aus 
gezeichnet. Ergänzend kann 


man noch, durch ein Komma 
von der Farbe getrennt, entwe- 
der den Parameter »B« (Box) 
oder den Parameter »BF« (Box 
filled) angeben. In diesem Fall 
werden die Anfangskoordina- 
ten als linke obere und die End- 
koordinaten als rechte untere 
Ecke eines Rechteckes inter- 
pretiert. Bei der Angabe von 
»B« wird nur ein Rechteckrah- 
men gezeichnet, mit »BF« wird 
das Rechteck zusätzlich mit 
der angegebenen Farbe aus- 
gefüllt. 


Aus Ellipsen 
werden Kreise 


Das Zeichnen von Kreisen 
wird schon etwas komplizier- 
ter. Man erkennt das schon an 
der Anweisungssyntax: 


CIRCLE <Mittelpunkt>, 
<Radius>,<Farbe>, 
<Start>,<Ende>, 
<Bildverhältnis> 


Bevor wir auf die Feinheiten 
eingehen, sollte zunächst ein- 
mal die Bedeutung der Para- 
meter klar sein. <Start> und 
<Ende> bezeichnen die Win- 
kel im Bogenmaß (360 Grad = 
2, Zählrichtung entgegen dem 
Uhrzeigersinn), bei dem das 
Zeichnen des Kreises begon- 
nen und beendet werden soll. 


Kurse 


So ist es möglich, auch beliebi- 
ge Kreissegmente zu zeich- 
nen. Sind die beiden Winkel- 
angaben positive Zahlen, so 
wird nur der Kreisbogen ge- 
zeichnet. Bei negativen Win- 
kelangaben wird dagegen der 
Kreisbogen noch mit einem 
Radius zum Mittelpunkt verse- 
hen. Dies ist wichtig, um ge- 
zeichnete Kreisbögen mit Far- 
ben füllen zu können. 

Nun wird es etwas schwieri- 
ger: Die Punkte des Amiga- 
Bildschirmes sind keine Qua- 
drate, sondern Rechtecke, de- 
ren Seiten im Verhältnis 2.25 : 
1 stehen (das heißt, das Bild- 
verhältnis beträgt 0,44). Dieser 
Wert ist auch für das Bildver- 
hältnis voreingestellt, doch er 
gilt nur in der Auflösung mit 
640 x 256 Bildpunkten, zudem 
ist er auch noch vom Monitor 
abhängig. 

Arbeitet man in einer ande- 
ren Auflösung, so erhält man 
keine Kreise, sondern Ellipsen. 
Dies ist einerseits ganz nütz- 
lich, daman so durch die Anga- 
be eines anderen Bildverhält- 
nisses gezielt Ellipsen zeich- 
nen kann, andererseits enthal- 
ten Grafiken so in der einen 
Auflösung Kreise und in einer 
anderen Ellipsen. Wenn Sie 
sich mit dieser Problematik nä- 
her auseinandersetzen wollen, 
so bietet Ihnen Listing 11 einige 





oben 


= -10 : unten = 10 


0 'Kreisradius = Seitenlaenge des gleichseitigen Dreiecks 


"Winkel 60 Grad = pi / 3 


Variable: 
links = -10 : rechts = 10 : 
radius = 
Hoehe = 0 'Hoehe des gleichseitigen Dreiecks 
BVH = 0 'Bildverhaeltnis 
phi = AU * ATN(1!) / 31 
x1=0:y1=0:2=0:y2=0: 


Eckpunkte 


x3 =0:y3 = 0 'Dreieck 


Listing 11. So werden Kreise immer rund 








erh 


‚uch 
Bausot 


1.8MB 


AMIGA500 


AL 


3.8M 


AMIGA500 


A 
N 1.88 


AMIGA 1000 


Die 1.8-MB-Karte ist supereinfach 
einzubauen: 
als 0.5-MB-Erweiterung auf 1 MB intern: 
AMIGA umdrehen, Speichererweiterungs- 
klappe öffnen und Karte einstecken - die 
Garantie bleibt erhalten. 
als 1.8-MB-Erweiterung auf 2.3 MB intern: 
Gehäuse öffnen, GARY-Chip herausneh- 
men, Adapter in den GARY-Sockel ein- 
setzen, GARY auf- 

DM 1197,—- 


stecken - fertig! 


Die 1.83-MB-Karte gibt es jetzt auch 


@ als Bausatz mit allen Teilen, Schaltplan und 
Bestückungsliste, jedoch ohne 1-MegaBit- 


Chips (511000) DM 228,- 


® als Bausatz wie oben, jedoch fertig gelötet 
mit allen Teilen, ebenfalls ohne 1-Megaßit- 


Chips (511000) DM 342,- 
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Für Unersättliche: Die 3.8-MB-Karte 
für 4.3 MB Mammutspeicher intern: 
®@ als 1.8-MB-Erweiterung wie oben (bereits 
fertig mit 1-MegaßBit-Chips bestückt) - 

zusätzlich mit weiteren 16 RAM-Chips 
(511000) selbst bestücken, einbauen und 
dann den zusätzlichen Speicher mit „Add- 


Mem“ (40000 -5FFFF) DM 1698,- 


einbinden - fertig! 
® komplett bestückt 
DM 2428,- 


mit 3.8 MB 


Endlich! 
Die 1.8-MB-Karte für den 1000er: 

@ wird ganz einfach in den vorderen Speicher- 
erweiterungsschacht des Rechners gesteckt. 
Die bisherige 256 KB-Erweiterung wird 
abgezogen, die neue 1.8 MB-Karte wird auf- 
gesteckt, dann einen Adapter in den CPU- 
Sockel, CPU aufstecken - fertig. 512 KB blei- 
ben nach dem Abschalten erhalten. 


® läuft absolut problemlos 
mit Sidecar und Festplatte DM 1311,— 


‚Alle Karten sind bis 1.8 MB autokonfigurierend und mit gesockelten ICs (Ausnahme: Bausatz) sowie einer Echtzeituhr 
(akkugepuffert) versehen. Sie arbeiten bereits auch unter Workbench 1.3. 


Die gigantischen 
Speicherkarten erhalten 
Sie nur im guten 
Fachhandel oder bei 


Gigatron c.preuth, R.Tiedeken 
(Entwicklung, Service & Versand) 
Resthauser Str. 128, 4590 Cloppenburg 
Telefon 04471/3070 


eihenfolge der Be 


FreeCom worrgang FW. Paul 
(Auslieferung & Service Raum Hamburg) 
Bismarckstraße 2, 2000 Hamburg 20 
Telefon 040/495990 





main: 


begin: 
INPUT "x,y "; x%,y% 


Initialize x% , y% , BVH 
Dreieck x% , y% 

Segment 3,4, 
Segment Al, 
Segment 1,8, 
Segment 35 


3,4, xl+links 
5 
0 
3 
Segment » 334, 4 
5 
& 
7 


‚4 

‚0, x2+rechts 
33 %3 

ya, 1 

5, %3 

‚0, x2 

vd, %3 

b 


Segment 452, 
Segment 2,3, 
LINE (0,0 
Finalize 
END 
SUB Initialize( Breite, Hoehe%, Bi 
aus =0 : ein=1:Bild=0 
hoch% (Breite \ 321) + 1 
interlace% = 2 * (Hoehe% \ 257 ) 
modus% hoch% + interlace® 
ScreenX% hoch® * 320 
ScreenY% (1 + .5 * interlace% 
IF modus® = 1 THEN 
Bild=2%* .5 "halb so viele 
ELSEIF modus% = 2 THEN 
Bild =1%* 5 'Normalauflösun, 
u 
5 


Soour 


gig, in den USA 0.44 
ELSEIF modus% = 3 THEN 
Bild =4% .5  'halb so viele 
ELSE 
Bild =2% ,5 
END IF 
SCREEN 2,ScreenX%,ScreenY%,3,modu: 


"doppelt so vie 


WINDOW 2, ”RCB”,,0,2 : WINDOW OUTP 

"Alle Kombinationen mit Rot, Grue: 

PALETTE O,aus,aus,aus : PALETTE 1 
ein,aus 

PALETTE 3,aus,ein,ein : PALETTE 4 
aus,ein 

PALETTE 6,ein,ein,aus : PALETTE 7 


END SUB 
SUB Dreieck( Breite%, Hoehe% ) STAT: 
SHARED x1,y1,x2,y2,x3,y3,radius,BVH 
x3 = Breitef / 21 
yl = Hoeheg * 7! y ı2l 
IF Breite > Hoehe% * BVH THEN 
radius = Hoehe / BVH / Al 
h SQR(31) * radius / 21 * BVI 
x2 = x3 + radius / 2! 
x1 = x3 - radius / 2! 
ELSE 
radius 
h 


nun 


= Breitef / 41 

SOR(31) * radius / 2! 
x3 + radius / BVH / 21 
x3 - radius / BVH / 2! 


SH 
ER 


< 
>5 
wwuunn 
SE 
\ 
> 


y3:= 
END SU! 
SUB Segment( von1%,bis1%,von2%,bis2: 
SHARED x1,y1,x2,y2,x3,y3,radius, BVH 
CIRCLE (x1,y1),radius, farbe%,voni: 
eine 
CIRCLE (x2,y2),radius, farbe%, von2 
die 
CIRCLE (x3,y3) ‚radius, farbe, von3 
drei 
PAINT (fx,fy),farbeg 
segmenten besteht 
END SUB 
SUB Finalize STATIC 
WHILE NOT MOUSE(0) : 
WINDOW CLOSE 2 





SLEEP : WEND 
fenster 
SCREEN CLOSE 2 
END SUB 


: REM Warte auf Mausklick, dann schliesse Ausgabe 





PRINT ”Geben Sie die Seitenlaengen eines Rechteckes ein.” 


IF (x% > 640 OR y% > 512) OR (x% < 70 OR y% < 70) GOTO begin 


‚yl+unten, 1 
»y2+unten, 2 
‚y3+oben , 4 
»33 39 
‚yirradius/2, 3 
»93 ‚6 
‚yı ‚7 


1a ) STATIC 

"hoch® ist 1 oder 2 

"interlace% ist 0 oder 2 

'modus® ist 1, 2, 3, oder 4 
'x-Aufloesung ist 320 oder 640 

) * 256 "y-Aufloesung 256 oder 512 
Punkte in x-Richtung 


g, Monitorabhän 


Punkte in x, doppelt so viele in y 


le Punkte in y-Richtung 


5% 

UT 2 

n und Blau aus und ein 
‚aus,aus,ein : PALETTE 2,aus, 
‚ein,aus,aus : PALETTE 5,ein, 


‚ein,ein,ein 
IC 


'"Bestimme Mittelpunkte der drei 
'zu zeichnenden Kreise als Ecken 
"eines gleichseitigen Dreiecks 
"Achte darauf, dass die Kreise 

H "auch das vorgegebene Rechteck 
'moeglichst gut ausfuellen. 
"falls die Hoehe des Rechteckes 
"unter Beruecksichtigung des 
"Bildverhaeltnisses groesser als 
"die Breite ist, so passe den 
'Kreisradius, der ja immer in 
'x-Richtung gemessen wird, 


"entsprechend an. 
%,von38,bis3%,fx,fy,farbe ) STATIC 


‚phi 


%*phi,bis1%*phi,BVH : REM Zeichne 


%*phi,bis2%*phi,BVH : REM Flaeche, 
%*phi,bis3%*phi,BVH : REM aus 


: REM Kreis 





Listing 11. (Schluß) 


Denkanstöße. Zum Verständ- 
nis unseres Kurses ist dies je- 
doch nicht erforderlich, daher 
wird hier auf eine Bespre- 
chung verzichtet. 


Flächenfüllend 


Nicht immer sind die Flä- 
chen, die Sie zeichnen wollen, 
Rechtecke und Ellipsen. Um 


98 


auch Flächen zeichnen zu kön- 
nen, die etwas unregelmäßiger 
aussehen, wurde der »AREA«- 
Befehl implementiert. Durch 
mehrere »AREA (<Punkt>)«- 
Anweisungen nacheinander 
legen Sie die Ecken eines Ge- 
bildes (mathematisch: eines 
Polygonzuges) fest, das mit 
Hilfe der »AREAFILL«-Anwei- 
sung mit der Vordergundfarbe 


ausgefüllt werden kann. Sie 
müssen sich allerdings nicht 
auf eine Füllfarbe beschrän- 
ken, sondern Sie können sich 
mit Hilfe des »PATTERN«-Be- 
fehles auch eigene Füllmuster 
definieren. Genauso erlaubt 
der »PATTERN«-Befehl selbst- 
erstellte Linienmuster. Beim 
normalen Ziehen von Linien 
sind alle Punkte gesetzt. Es ist 
jedoch möglich, ein 16 Punkte 
langes Muster zu entwerfen, 
das zum Ziehen von Linien be- 
nutzt wird. Dabei gehen Sie am 
besten entsprechend Bild 14 
vor. Jeder zu setzende Punkt 
besitzt eine bestimmte Wertig- 
keit. Addieren Sie einfach die 
Wertigkeiten der Punkte, die 
Sie setzen wollen, auf. Beach- 
ten Sie dabei, daß der erste 
Punkt eine negative Wertigkeit 
besitzt. Die errechnete Ge- 
samtwertigkeit des Musters 
weisen Sie dann an eine kurze 
Ganzzahl zu, die Sie dem 
»PATTERN«-Befehl als Para- 
meter übergeben. Ein Füllmu- 
ster definieren Sie, indem Sie 
mehrere Linien untereinander 
zeichnen und deren einzelne 
Wertigkeiten berechnen. Es 
gibt allerdings die Einschrän- 
kung: die Anzahl der Linien 
muß eine Potenz von 2 sein 
muß, daher sind nur 1, 2, 4, 8, 
16, 32, und so weiter als Linien- 
anzahl erlaubt. 
Dimensionieren Sie ein ent- 
sprechend großes Feld aus 
kurzen Ganzzahlen und über- 
geben Sie es dem »PATTERN«- 
Befehl als zweiten Parameter: 


PATTERN <Linie%>, 
<Füllmuster%> 


Die bis jetzt besprochenen 
Grafikbefehle dienten alle zum 
Zeichnen neuer Bilder, die fol- 
genden bearbeiten dagegen 
bereits vorhandene Bilder. Da 
ist zum einen der »SCROLL«- 
Befehl: 


SCROLL (<linke obere 
Ecke>) - (<rechte 
untere Ecke>),<delta 
x>,<delta y> 


Mit diesem Befehl wird der 
im angegebenen Rechteck lie- 
gende Bildausschnitt um 
<deltax> Punkte nach rechts 
und um <delta y> Punkte 
nach unten verschoben. Alle in 
Schieberichtung aus dem de- 
finierten Rechteck hinausge- 
schobenen Zeilen und/oder 
Spalten verschwinden damit 
vom Bildschirm. Durch ge- 
schickte Programmierung kön- 
nen mit diesem Verfahren Gra- 
fiken über den Bildschirm ge- 
schoben werden: 


FOR i = 0 TO 100 
SCROLL (50+1,50) 


-(150+1,150),1,0 
NEXT i 


Ein Nachteil dieser Technik 
ist das Löschen derjenigen Tei- 
le des Hintergrundes, über die 
der Bildausschnitt verschoben 
wird. Ist diese Wirkung nicht 
erwünscht, empfiehlt sich eine 
Befehlskombination aus »PUT« 
und »GET«. Beachten Sie, daß 
dies die Grafikversionen dieser 
Befehle sind, die mit den 
»PUT«- und »GET«-Befehlen re- 
lativer Dateien nichts zutun ha- 
ben. »PUT« und »GET« sind die 
wohl mächtigsten Grafikbefeh- 
le des Amiga-Basic. Um mit 
diesen Befehlen arbeiten zu 
können, wird eine Feldvariable 
benötigt, die genügend Ele- 
mente besitzt, um die komplet- 
te Bildinformation eines Aus- 
schnittes zu speichern. Daran 
erkenntmanschon, daß dieses 
Verfahren für ganze Bild- 
schirmseiten nicht geeignet 
ist. Die Größe des benötigten 
Integer-Feldes läßt sich nach 
folgender Formel berechnen: 


<Größe> = <Höhe> * 
INT( (<Breite> + 16) 
/ 16) * <Anzahl der 
Bitplanes> +3 


Nachdem Sie ein entspre- 
chend großes Feld definiert ha- 
ben, können Sie mit 


GET (<linke obere Ecke 
>) - (<rechte untere 
Ecke>), <Feldname%> 


die Bildinformation in die Feld- 
variable einlesen und mit 


PUT (<linke obere Ecke 
>),<Feldname%> 


den Ausschnitt an einer belie- 
bigen Stelle des Bildschirms 
plazieren. Schreiben Sie ihn 
jedoch wieder an die alte Stelle 
zurück, so verschwindet über- 
raschenderweise das Bild. Das 
liegt daran, daß hinter dem 
Feldnamen beim »PUT«-Befehl 
noch ein Schlüsselwort ange- 
geben werden kann, das be- 
stimmt, in welcher Weise das 
gespeicherte Bild mit dem 
Bildschirm verknüpft wird. Vor- 
eingestellt ist hier der Verknüp- 
fungstyp »XOR« (exklusives 
oder), der bewirkt, daß alle 
Bildpunkte, die zugleich im ab- 
zubildenden Ausschnitt und im 
Fenster gesetzt sind, gelöscht 
werden. Die anderen mögli- 
chen Typen für diese Einstel- 
lung sind zum einen »AND« 
und »OR«, zum anderen kön- 
nen Sie auch »PSET« und 
»PRESET« angeben. Die Wir- 
kungsweise dieser Schlüssel- 
worte können Sie anhand von 
Tabelle 2 ermitteln, wobei zu 
beachten ist, daß diese Opera- 
tionen für jede Bitplane sepa- 
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Bild 14. 
Definition eines Musters 
für den »PATTERN«-Befehl 





rat durchgeführt werden. Da 
wir nun schon Zeichnungen in 
Feldvariablen abgespeichert 
haben, bietet es sich an, diese 
Feldvariablen und damit auch 
die Bilder auf Diskette zu spei- 
chern. Auch hier können wie- 
der die »MKli$«- und »CVl«- 
Befehle (siehe oben) von Nut- 
zen sein: 
OPEN <File> FOR OUTPUT 
AS <Nummer> 
FOR i = 0 TO <Größe> 
PRINT # <Nummer 
> ‚MKI$( < Feldname% 
>); 
NEXT i 
CLOSE <Nummer> 


speichert das Bild auf Diskette, 
während 


OPEN <File> FOR INPUT 
AS <Nummer> 

DIM <Feldname%> (LOF 
(<Nummer>/2 - 1) 

FOR i = 0 TO LOF(< 
Nummer > / 2-1 


<Feldname%> 
(1) = OVI(INPUT$(2, 
<Nummer>)) 


NEXT i 
CLOSE <Nummer> 


ein ausreichend großes Feld 
dimensioniert und das Bild 
dann einliest. Der Befehl 
»INPUT$(< Anzahl >,<Num- 
mer>)« liest dabei aus der 
Datei mit der Kennzahl 
<Nummer> genau die Men- 
ge <Anzahl> Byte ein. 

Listing 12 bietet Ihnen eine 
Demonstration der Wirkung 
der bis jetzt besprochenen 
Grafikbefehle. 


AMIGA-SONDERHEFT 1 


Einfach 
animierend 


Mit Hilfe des »SCROLL«-Be- 
fehles und der »GET«- und 
»PUT«-Anweisungen lassen 
sich bereits einfache Bewe- 
gungen auf dem Bildschirm 
darstellen. Doch wofür hat un- 
ser Amiga schließlich seine 
Spezialchips, die unter ande- 
rem eben auch auf die Darstel- 
lung von bewegten Objekten 
spezialisiert sind. 

Damit Sie mit dem im folgen- 
den erworbenen Wissen auch 


gleich experimentieren kön- 
nen, sollten Sie sich mit dem 
Objekt-Editor des Amiga-Basic 
auskennen. Ist dies nicht der 
Fall, so lesen Sie bitte zu- 
nächst das Kapitel 7 Ihres 
Basic-Handbuches durch. Der 
Objekt-Editor »ObjEdit« wird 
dort ausführlich beschrieben. 
Wir wollen hier nur kurz auf sei- 
ne Arbeitsweise eingehen: 
Nach dem Aufruf des Editors 
müssen Sie sich entscheiden, 
ob Bobs oder Sprites editiert 
werden sollen. Haben Sie Ihre 
Wahl getroffen, so können Sie 
die gewünschte Größe des Ob- 


K URSE 


jektes mit der Maus einstellen. 
Die vorhandenen Funktionen 
erlauben ein komfortables und 
einfaches Erstellen der Objek- 
te. Nach der Fertigstellung soll- 
ten Sie Ihr Objekt auf Diskette 
speichern. Die Datei enthält 
dann alle Informationen, wie 
Größe, Form und Farbe, die für 
die Darstellung benötigt wer- 
den. 

Falls Sie den Unterschied 
zwischen Bobs und Sprites 
noch nicht kennen: Ein Bob 
(Blitter Object) ist praktisch ein 
Teil des Grafikspeichers, der 
vom Blitter (einem der oben er- 
wähnten Spezialchips) blitz- 
schnell von einer Position auf 
die andere kopiert werden 
kann. Dabei wird der jeweilige 
Hintergrund in einen anderen 
Speicherbereich gerettet. 
Durch das schnelle Kopieren 
ergibt sich der Eindruck einer 
fließenden Bewegung. Da- 
durch, daß Bobs ein Teil des 
Bildschirmspeichers sind, sind 
sie in ihrer Größe und Farbe 
theoretisch nicht einge- 
schränkt. Praktisch dagegen 
können zu große Bobs nicht 
mehr schnell genug umkopiert 
werden, so daß die bewegten 
Objekte zu flimmern beginnen. 

Im Gegensatz zu Bobs sind 
Sprites Objekte, die von einem 
Spezialchip auf den Bild- 
schirm eingeblendet werden. 
Sie benötigen daher keinen 
Platz im Bildspeicher und kön- 
nen sich wesentlich schneller 
als Bobs bewegen. Dafür sind 
Sprites allerdings in der Größe 
auf eine Breite von 16 Pixel be- 
schränkt, und auch die Farb- 
auswahl ist eingeschränkt. 





Resultat 














Tabelle 2. Wahrheitstafeln zum »PUT«-Befehl 





Variable: 
true 
breites ' Seiten eines Rechtecks 
hoehe? 
n% ' Unterteile Rechteck in 2 #* 4 Gitter 
n® 
radius% = breite \ (2Xn%+1) ' Zum Zeichnen in Untergitter 
h% hoeheg \ (2*m%+1) 


phi = 41 % ATN(1!) / 3! ' Winkel 60 Grad = pi / 3 
speicher? = (h%+1) * INT((radiusß + 16)/16) #* 3 + 3 
DIM imagei%(speicher$) 
DIM image2%(speicher%) 
DIM f111%(7) ' Fuellmuster im PATTERN-Befehl 
fi11%(0) = -31807 : Fil1(1) = 7800 : fill%(2) = 28686 : FiL1%(3) 
32383 
fil1ß(4) = -32383 : 
-31807 
DIM default%(1) : default%(0) = -1 : defaultf(1) = -1 
DEF FNmitteX( i ) = (i-.5)/n®%breiteg ' x-Mittelwert eines 
Untergitters 
DEF FNmitteY( 1 ) = (1-.5)/m%*hoehe% 
Untergitters 


' Bilder merken 


fil1%(5) = 28686 : fFil1%(6) = 7800 : FiLLK(T) 


' y-Mittelwert eines 


main: 
Initialize 
Gittern ,m ‚7 
PATTERN 13107 
LINE ( FNmitteX(.75) ,‚FNmitteY(.75) )-(FNmitteX(1.25), 
FNnitteY(1.25)),3,b 
PATTERN -1 
CIRCLE(FNmitteX(2) ,FNmitteY(1)) ‚radiusß,1,,,.5 
PAINT (FNmitteX(2),FNmitteY(1)),1 
CIRCLE(FNmitteX(3) ‚FNmitteY(1)) ‚radius%,2,3*phi,phi, .75 
CIRCLE(FNmitteX(4),FNmitteY(1)) ‚radius%,4,-3*phi,-phi, .25 
PATTERN -1,fi11% 
COLOR 5,6 
AREA (FNnitteX(1),FNmitteY(1.75)) : AREA STEP (radius%,h%) 
AREA STEP (-2*radius$,0) : AREAFILL 
PATTERN -1,default% 
COLOR 7,0 
x% = INT(FNmitteX(2)) : y% = INT(FNmitteY(2)) 
LINE (x%,y%)-(x%+radius%,y%+h%) ‚2,bf 
GET (x%,y%)-(x%+radius®,y%+h%) ‚image1% 
LINE (x%-radiusß,y%-h%)-(x%,y%) ‚6,bf 
GET(x%-radius%,y%-h%)-(x%,y%) ‚image2% 
x% = INT(FNmittex(3)) 
PUT (x% - radius%/2,y%-h%/2) ‚image2%,PSET 
PUT (x%,y%) ‚image1%,XOR 
PUT (x%-radius%,y%-h%) ‚image1%,0R 
PUT (x%,y%-h%) ‚image2%, AND 
x% = INT(FNmitteX(3.75)) 
WHILE true ' warte auf Mausklick 
PUT (x%,y%-h%) ‚image1%,PRESET 
PUT (x%,y%-h%) ‚image2%, AND 
FOR i = 1 T0 1.5*radius® 
IF MOUSE(0) THEN true = 0 
SCROLL (x%,y%-h%)-(x%+1.5*radius$,y%+h%),1,1 
NEXT i 
WEND 
Finalize 
END 


SUB Initialize STATIC 
aus = 0 
ein =1 


SCREEN 2,640,256,3,2 

WINDOW 2, "Grafik-Demo”,,0,2 : WINDOW OUTPUT 2 

"Alle Kombinationen mit Rot, Gruen und Blau aus und ein 
PALETTE O,aus,aus,aus : PALETTE 1,aus,aus,ein 

PALETTE 2,aus,ein,aus : PALETTE 3,aus,ein,ein 

PALETTE 4,ein,aus,aus : PALETTE 5,ein,aus,ein 

PALETTE 6,ein,ein,aus : PALETTE 7,ein,ein,ein 

END SUB 


SUB Gitter( n$ , m% , farbe ) STATIC 
SHARED breite% , hoehe% 
i =0 


LINE (1, 
FOR i = 
LINE ( 
NEXT i 
FOR 1 = 1 TO hoehe% STEP hoehe%/n% 
LINE (1,i)-(breite%,1),7 
NEXT i 
END SUB 


1)-(breite%,hoehe%) ‚7,b 
1 TO breite? STEP breite%/n% 
1,1)-(i,hoehe%) ,7 


SUB Finalize STATIC 
WINDOW CLOSE 2 
SCREEN CLOSE 2 

END SUB 





Listing 12. Unsere Grafikbefehle im Einsatz 


100 








Objekte einlesen 


Vielleicht jucktesjetztschon 
in Ihren Fingern — wir wollen 
Sie nicht länger auf eine erste 
Demonstration warten lassen. 
In der Schublade »BasicDe- 
mos« Ihrer »ExtrasD«-Diskette 
existiert eine Datei mit dem Na- 
men »Ball«. Sie enthält ein 
ebensolches Objekt, und die- 
ses wollen wir nun mit einem 
Programm (Listing 13) laden 
und abbilden. Mit 


OPEN "ExtrasD:Basic 
Demos/Ball” FOR INPUT 
A4S1 

OBJECT.SHAPE 1, INPUT$ 
(LOF(1),1) 


wird die Datei geöffnet und das 
Objekt mit der Nummer 1 be- 
legt. Natürlich können Sie die 
Werte des Objekts auch einer 
Stringvariablen zuweisen, und 
dann mit 


OBJEKT.SHAPE < Nummer 
1>,<String$> 


das Objekt definieren. Dies hat 
den Vorteil, daß Sie aus dem 
<String$> durch die Anwei- 
sungen 


<Tiefe%> = CVI(MID$ 
(<String$> ,11,2)) 
<Breite4> = CVI(MID$ 
(<String$> ‚,15,2)) 
<Höhe%> = CVI(MID$ 
(<String$>,19,2)) 


Informationen über die Breite, 
Höhe und Anzahl der benutz- 
ten Bitplanes erhalten können. 
Vor allen Dingen auf die Anzahl 
werden wir später etwas näher 
eingehen, da sie für die Farb- 
darstellung von Bobs (nicht je- 
doch von Sprites) eine wesent- 
liche Rolle spielt. Wollen Sie 


ON COLLISION GOSUB abprallen 
COLLISION ON 

OPEN Ball” FOR INPUT AS 1 
OBJECT.SHAPE 1, INPUT$(LOF(1),1) 
CLOSE 1 

OBJECT.X 1,240 

OBJECT.Y 1,50 

OBJECT.VX 1,30 

OBJECT.VY 1,30 

OBJECT.ON 

OBJECT.START 

WHILE 1 : SLEEP : WEND 


abprallen: 
merkf = WINDOW(1) 
WINDOW 4 
1 = COLLISION(0) 
IF i=0 THEN RETURN 
J = COLLISION(i) 


OBJECT.START 
WINDOW merkf 
RETURN 


WINDOW 4, Animation”, (310,95)-(580,170) ,15 


IF j=-2 THEN OBJECT.VX 1,ABS(OBJECT.VX(1)) 
IR j=-4 THEN OBJEOT.VX 1,-ABS(OBJEOT.VX(1)) 
IR j=-1 THEN OBJEOT.VY 1,ABS(OBJECT.VY(1)) 
IF j=-3 THEN OBJECT.VY 1,-ABS(OBJECT.VY(1)) 


mehreren Objekten die gleiche 
Form geben, so können Sie na- 
türlich die »OBJECT.SHAPE«- 
Anweisung nochmals in der- 
selben Art wie oben benutzen. 
Es spart jedoch Speicherplatz, 
wenn Sie stattdessen ange- 
ben: 

OBJECT.SHAPE < Nummer 
2>,<Nummerl> 


<Nummeri > bezeichnet da- 
bei ein bereits definiertes Ob- 
jekt bezeichnet. 

Bis jetzt haben Sie dem Ami- 
ga nur ein neues Animations- 
objekt bekannt gemacht — se- 
hen können Sie es auf dem 
Bildschirm allerdings noch 
nicht. Bevor wir es jedoch ein- 
schalten, sollte erst mal die Po- 
sition des Objektes festgelegt 
werden. Mit den Anweisungen 


OBJECT.X <Nummer>, 
<x-Position> 
OBJECT.Y <Nummer>, 
<y-Position> 


legen Sie den Abstand vom 
Koordinatenursprung fest. Mit 


OBJECT.ON <Nummer> 


wird Ihr Objekt nun sichtbar. 
Doch jetzt wird es interessant: 
wir bringen Bewegung ins 
Spiel. Durch 

OBJECT.VX <Nummer>, 
<x-Geschwindigkeit> 
OBLECT.VY <Nummer>, 
<y-Geschwindigkeit> 


legen Sie die Geschwindigkeit 
der Bewegung der Bewegung 
in Bildpunkten pro Sekunde 
fest. Eine positive <x-Ge- 
schwindigkeit> bewegt das 
Objekt von links nach rechts; 
eine negative in umgekehrter 
Richtung. Ebenso läßt sich mit 





Listing 13. Ein einfaches Programm zur Sprite-Darstellung 
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UNLıNIleD 


Wer mehr bezahlt hat selber Schuld! 


Schlag auf Schlag fällt die Hochburg um; die Elefanten stehen traurig 
rum; die versunkene Stadt bleibt unterm Meer: UNLIMITED muß her! 





RAIDER 
BALLYHOO MYSTERY 
BARBARIAN (Psygnosis) 
BATTLESHIPS 


FEUD 

FINAL MISSION 
FIREPOWER 
FLIP-FLOP 
GALACTIG INVASION 
GALAXY FIGHT 
GARRISON 
GARRISON Il 
GOLDEN PATH 
GOLDEN PYRAMID 
GRAND SLAM TENNIS 


N 
LITTLE COMPUTER PEOPLE 
LURKING HORROR 
LIBYANS IN SPACE 
MGLNSDENGEONS 


PHALANX 

PHANTASIE II 

PLUTOS 

POWERPLAY 
REISENDE IM WIND 
RETURN TO ATLANTIS 
ROADWAR 2000 
ROADWARS 


ROCKY 
SECONDS OUT 
SHANGHAI 


STRIKE FORCE HARRIER 
STRIP POKER Il 

TASS TIMES IN TONETOWN 
TERRAMEX 

TERRORPODS 


SABTSTSERTITERIIESRR 


Animation 


AEGIS Animator 

AEGIS Videoscape 3D 2.0 dt. 
AEGIS Videoscape 3D Update 
AEGIS Videotitier 

APPRENTICE DISNEY 3D jr. 
APPRENTICE DISNEY 3D Animator 
APPRENTICE Libraries: GEO 


DELUXE Video 1.2 deutsch 
Pageflipper deutsch 
Bagefipper plus FIX 

Sculpt 3- 
Siver 


‚Amiga Jahrbuch 1988 
Amiga Users Guide 
Das grosse Public Domain Buch #1 
lopers Reference Guide 


Daiaachs Handbücher 
ne 
Flugmultor u 


Kamptgruppe 


Datenbank 


Micro Fiche Filer deutsch 
Superbase Personal deutsch 
Superbase Professional deutsch 


Disketten 


3 1/2 Zoll 2DD Maxell 10er 
3 1/2 Zoll 2DD No Name 
Diskettenreinigungsset 3 1/2 
Diskettenreinigungsset 5 1/4 
Diskettentasche Stoff 3 1/2 


Diverses 


AEGIS Diga! 


Drucker 


Citizen 120D 
Druckerkabel A-500/2000 Centr. 
Hewlett Packard Paint Jet 


STAR NB 24/15 


Erweiterung 


HURRICANE 68030 Optionboard 795 
HURRICANE Speicherboard 2M/32 1495 
HURRICANE Turboboard A2000 0.P. 1495 
SCSI & RAM 2 MByte OK 685 
TV-HF Modulator A-500/2000 57 
XT Erweiterung für A-2000 995 


DER 
VAMPIRES EMPIRE 
VIDEO VEGAS 
VYPER 
WINTER GAMES 
WINTER OLYMPICS 88 
WIZARDS CROWN 
WORLD GAMES 
XR-35 


ZOOM! 
ZORK TRILOGY 


Diese Liste ist bedingt durch Anzeigenvor- 
lauf nicht Immer aktuell. Gerne nennen wir 
Ihnen telefonisch die letzen Neuheiten auf 
dem Spielemarkt. 
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Farbbänder 


Farbpatrone DIABLO 150 4 gem. 
Farbpatrone DIABLO 150 einz. 


Festpl atten 
20 MB SCSI f. A- kompl. 
SCSI Hardcard 20 MB A-2000 
SCSI Hardcard 40 MB A-2000 
SCSI Hardcard 84 MB A-2000 


DELUXE Print & Data #1 
Digi Paint PAL deutsch 
EASYL 1000 Zeichentablett 
EASYL 2000 Zeichentablett 
EASYL 500 Zeichentablett 
Fonts & Borders 

Funktion Graphenzeichner 
Intro Cad 

Photon Paint Expansion Disk 
Photon Paint 

Pixmate 

Printmaster plus 

Prism plus 


AMIGA Scart Kabel 2 mtr. 


Monitore 


Farbmonitor 1084 
Monitorständer 14 Zoll/Metall 


Musik 


AEGIS Audiomaster 

DELUXE Music Construction dtsch. 
Drum Studio 

Future Sound Il 


Perfect Sound mit Diglizer 
Pro Midi Studio 

AEGIS Sonix 

Sound Sampler A-1000 
Sound Sampler A-500/2000 
Studio Magic 


Simulation 


Flightsimulator Il 
Galileo Planetarium 
Interceptor 
Jet 
Sanery Diak #11 

ıy Disk #7 
= 1y Disk Europe, 


Sprachen 


AC Basic Compiler 

Aztec C Developers 

Aztec C Professional 

Lattice C Compiler Companion 
Lattice C Compiler 4.0 

Lisp Metacomco 

Macro Assembler Metacomco 
Modula 2 Commercial 
Modula 2 Developer 

Modula 2 ular 

Pascal vol ) Metacomco 
Pascal UOCSD 


Tools 
CLI Mate 


Demonstrator deutsch 
DISCovery Disk Editor deutsch 
Disk to Disk 

DiskMaster dtsch. 

Dos to Dos 

Fast Lightning 

Floppy Accelerator II 
Grabbi 

Marauder 

Mirror 

Mirror Hacker Package 
Project D 

Quarterback 1.4 deutsch 
Shell Metacomco 
Toolkit Metacomco 
TuEd plus Editor 


i-View 3.0 Digitizer 
PAL Video Karte f. A-2000 


Abdeckhaube AMIGA 500 Bel 
Basic Kei Overlay A-1 
Overlay A-1000 


Konzepthalter schwenkbar 
Mouse House Max grau 
Mouse House Millie rosa 
Mose House Stoffmaus braun 
Mouse Pad 27 x 23 cm 


Rund um die Yhr 06121 /543848 


Wir liefern nur 
Preisen. 3 
Telefonnummer. Lieferun 


+4- DM Porto) e, 


indestbestellwert 50,- 
vorbehalten. 


Bestellen Sie 


Originalprogramme zu knallhart kalkulieren 
schriftic oder unter 

solange Vorrat eich 1 geash, rs 
Nachnahme 

nen und 


UNLIM ITED, 6200 Wiesbaden 





obiger 


el 


negativen Werten für die <y- 
Geschwindigkeit> die Bewe- 
gungsrichtung bestimmen. 
Selbst nach der Eingabe die- 
ser Befehle verharrt unser Ob- 
jekt aber immer noch regungs- 
los auf dem Bildschirm. Erst 
mit 

OBJECT. START <Nummer > 


beginnt ein Bewegungsablauf, 
der durch 


OBJECT.STOP <Nummer> 


wieder angehalten werden 
kann. Damit Sie während der 
Bewegung nicht den Überblick 
verlieren, läßt sich die augen- 
blickliche Position mit den 
Funktionen 


OBJECT.X (<Nummer>) 
OBJECT.Y (<Nummer>) 


ermitteln. Nicht immer bleibt 
die Bewegung eines Objektes 
konstant: Durch Brems- und 
Beschleunigungsmanöver wird 
die Programmierung erst rich- 
tig interessant. Die Befehle 


OBJECT.AX <Nummer>, 
<x-Beschleunigung> 
OBJECT.AY <Nummer>, 
<y-Beschleunigung> 


erlauben es, die Objekte zu be- 
schleunigen. Dabei wird bei 
positiven Werten nach rechts 
beziehungsweise nach unten 
beschleunigt, bei negativen 
Werten jeweils umgekehrt. Um 
ein Objekt abzubremsen, müs- 
sen Sie es also einfach ent- 
gegen seiner momentanen 
Bewegung beschleunigen. 
Selbstverständlich gibt es 
auch die zur Geschwindigkeit 
analogen Befehle, die augen- 
blickliche Beschleunigung ab- 
zufragen. 


Geschwindigkeit 
ist alles 


Ihr Objekt läuft bis jetzt im- 
mer der Nase nach und stößt 
so irgendwann an den Rand 
des Fensters. Wenn Sie ihm 
nicht beibringen, was es in ei- 
nem solchen Fall tun soll, 
bleibt es prompt wie angewur- 
zelt stehen. Für solche Zusam- 
menstöße hat Amiga-Basic die 
Anweisung 


ON COLLISION GOSUB < 
Marke> 


Dabei ist <Marke> entwe- 
der eine Zeilennummer oder 
eine alphanumerische Sprung- 
marke. Sie geben also das (un- 
echte) Unterprogramm an, das 
nach einer Kollision abgearbei- 
tet werden soll. Voraussetzung 
dafür ist aber, daß Sie diesen 
Mechanismus mit 


COLLISION ON 
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aktiviert haben. Diese beiden 
Zeilen sollten in Ihrem Pro- 
gramm am besten zwischen 
den Variablendeklarationen 
und dem Beginn des Haupt- 
programms stehen. In diesem 

»Kollisions-Unterprogramm« 
können Sie dann entspre- 
chend auf den Zusammenstoß 
reagieren. In unserem Fall 
kann das Objekt ja nur mit dem 
Rand des Fensters kollidieren. 
Das muß aber nicht immer so 
sein. Mit der Funktion 


COLLISION(0) 


erhalten Sie die Nummer des 
Objekts, welches zuletzt einen 
Zusammenstoß hatte. Rufen 
Sie diese Funktion erneut, mit 
der soeben ermittelten Num- 
mer als Argument auf, so erhal- 
ten Sie die Nummer des Kolli- 
sionspartners. Ist diese Anga- 
be negativ, so handelt es sich 
jeweils um den oberen (-1), lin- 
ken (-2), unteren (-3) oder rech- 
ten (-4) Rand des Bildschirm- 
fensters. Sie können sich aller- 
dings mit Hilfe des Befehles 


OBJECT.CLIP (<linke 
obere Ecke>) - (< 
rechte untere Ecke>) 


selbst das Rechteck definie- 
ren, dessen Ränder eine Kolli- 
sion auslösen sollen. Unser 
Programmbeispiel verwendet 
diese Technik, um den Ball 
vom Rand des Fensters abpral- 
len zu lassen. Bei diesem Pro- 
gramm handelt essich um eine 
verbesserte Version des in Ih- 
rem Basic-Handbuch beim 
»OBJECT.SHAPE«-Befehl an- 
gegebenen, fehlerhaften Pro- 
gramms. Den Fehler dieses 
Programms entdecken Sie 
sehr leicht, indem Sie es ein- 
fach abtippen und einige Zeit 
laufen lassen: der Ball verläßt 
das Fenster! Die wesentliche 
Anderung in unserem Pro- 
gramm betrifft das Unterpro- 
gramm »Abprallen«. Anstatt le- 
diglich zu überprüfen, ob das 
Objekt mit den senkrechten 
oder waagrechten Fensterbe- 
grenzungen kollidiert und 
dann die y- beziehungsweise 
x-Geschwindigkeit einfach um- 
zudrehen, werden in unserer 
Version alle Seiten einzeln ab- 
gefragt und das Objekt unter 
Verwendung der »ABS«-Funk- 
tion wieder auf den rechten 
Weg geschickt. Wo liegen nun 
die Ursachen für das abson- 
derliche Verhalten der Urver- 
sion? Da wir in den Basic-Inter- 
preter nicht »hineinschauen« 
können, ist die sichere Bestim- 
mung des Fehlers nur schwer 
möglich. Trotzdem können 
Überlegungen dazu bei Ihren 
Programmierversuchen zur 
Animation von Nutzen sein: 


Nach dem Starten des Bewe- 
gungsablaufes bewegen sich 
die Animationsobjekte unab- 
hängig von Ihrem Basic-Pro- 
gramm. Erst nach einer Kolli- 
sion wird das Programm aus 
seinem »Schlaf« geweckt und 
es verzweigt in ein eigens für 
diesen Zweck geschriebenes 
Unterprogramm, welches sich 
um solche Zusammenstöße 
kümmert. Um dorthin zu gelan- 
gen, braucht der Amiga natür- 
lich etwas Zeit und während- 
dessen bewegtsich das Objekt 
weiter. 


Um die Ecke 
gebracht 


Stößt das Objekt nun genau 
in die Ecke des Fensters, so 
merkt sich der Amiga die Kolli- 
sion mit den beiden Fenster- 
grenzen (er kann sich bis zu 16 
Zusammenstöße merken). 
Nehmen wir einmal an, das 
Objekt stößt an die linke obere 
Ecke und die Urversion dreht 
nun zuerst die waagrechte Be- 
wegungsrichtung um. Wieder 
zurück im Hauptprogramm 
merkt der Amiga, daß noch ei- 
ne zweite Kollisionsmeldung 
vorliegt und dreht nun auch die 
senkrechte Bewegung um. 
Beide Unterprogrammaufrufe 
haben jedoch »viel« Zeit geko- 
stet und so hat sich das Objekt 
inzwischen weiter nach oben 
bewegt und eine dritte Kolli- 
sionsmeldung verursacht. Auf 
diese wird auch prompt rea- 
giert und der Effekt ist ein er- 


anzahl = 6 
SCREEN 2,640,255,2,2 
WINDOW 4, "Animation”,,15,2 
ON COLLISION GOSUB Abprallen 
COLLISION ON 
RANDOMIZE TIMER 
OPEN ball” FOR INPUT AS 1 
form$ = INPUT$(LOF(1),1) 
CLOSE 1 
FOR n = 1 TO anzahl 
OBJECT.SHAPE n, form$ 
OBJECT.X n,300 * RND + 100 
OBJECT.Y n,80 * RND + 50 
OBJEOT.VX n,200 * RND - 100 
OBJECT.VY n,200 * RND - 100 
NEXT n 
OBJECT.ON 
OBJECT.START 
WHILE 1 : SLEEP : 
Abprallen: 
1 = COLLISION(0) 
IF i = 0 THEN RETURN 
BEEP : FOR i = 1 TO anzahl 
J = COLLISION(1) 


WEND 





IF j> 0 THEN BEEP 
NEXT i 
OBJECT.START 
RETURN 


IF j=-2 THEN OBJECT.VX i,ABS(OBJECT.VX(1)) 
IF j=-4 THEN OBJECT.VX i,-ABS(OBJECT.VX(1)) 
IF j=-1 THEN OBJECT.VY i,ABS(OBJECT.VY(1)) 
IF j=-3 THEN OBJECT.VY 1,-ABS(OBJECT.VY(1)) 


neutes Umdrehen der Ge- 
schwindigkeitskomponente — 
das Objekt bewegt sich also 
weiter nach oben und damit 
aus dem Fenster hinaus! Die 
Ursache des Problems ist also 
die mangelnde Geschwindig- 
keit des Interpreters. Wenn 
sich dies allerdings bereits bei 
einem Objekt auswirkt, wie soll 
das erst mit mehreren werden? 
In einem solchen Fall sind na- 
türlich eine ganze Reihe von 
Kollisionen zu erwarten und al- 
le sollten auch verarbeitet wer- 
den. Das Objekt, dessen Kolli- 
sion bearbeitet wird, hält zwar 
an, die anderen laufen jedoch 
weiter und können dabei auch 
mit anderen Objekten zusam- 
menstoßen. Dies kann dazu 
führen, daß die maximale An- 
zahl von 16 Kollisionen schnell 
überschritten wird. Alle Objek- 
te, deren Zusammenstöße mit 
dem Randsich der Amiganicht 
mehr merken kann, verschwin- 
den vom Bildschirm. Einen ein- 
fachen Trick zur Lösung dieses 
Problems zeigt unser Pro- 
gramm (Listing 14). Im Unter- 
programm »Abprallen« werden 
außer dem Objekt, das eine 
Kollision erfahren hat, auch die 
Zusammenstöße der anderen 
registriert und bearbeitet. 
Durch das Streichen der bei- 
den Zeilen mit dem »FOR«- und 
dem »NEXT«-Befehl und dem 
Einfügen von »BEEP« direkt 
unter der Sprungmarke »Ab- 
prallen:« läßt sich beobachten, 
was passiert, wenn Sie nicht 
mit dieser Technik arbeiten: In- 
































Listing 14. Kollisionsabfrage für Sprites 
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Bitplane 1 


Bitplanes und Bobs 











Bild 15. Das Zeichnen von Bobs in Bitplanes 


nerhalb kurzer Zeit wird aus 
dem kurzen Pfeifton ein Dauer- 
ton — Amiga-Basic kommt mit 
der Verarbeitung der Kollisio- 
nen nicht mehr nach. 

Die bis jetzt besprochenen 
Animationsbefehle erlauben 
Ihnen den einfachen Umgang 
mit Objekten, unabhängig da- 
von, ob es sich um Bobs oder 
Sprites handelt. Die nun fol- 
genden, höheren Animations- 
befehle finden zum Großteil 
nur auf Bobs Anwendung und 
erfordern zudem ein etwas de- 
taillierteres Wissen um die Art, 
wie Ihr Amiga Farben auf dem 
Bildschirm darstellt. Kenntnis- 
se des binären und sedezima- 
len Zahlensystems sind zwar 
vorteilhaft, jedoch kommen Sie 
zur Not auch ohne diese aus. 
Wenn Sie jedoch tiefer in die 
Geheimnisse Ihres Amiga ein- 
dringen wollen, kann Ihnen nur 
empfohlen werden sich, durch 
entsprechende Übung, mit die- 
sen Zahlensystemen vertraut 
zu machen. 

Wie Sie noch vom »PALET- 
TE«-Befehl her wissen, können 
Sie bis zu 32 Farben (0 bis 31) 
gleichzeitig darstellen. Wenn 
Sie nochmals einen Blick auf 
die Wertigkeitstabelle des 
»PATTERN«-Befehles werfen, 
werden Sie feststellen, daß die 
Zahlen 0 bis 31 entsprechend 
den Wertigkeiten durch fünf 
(übereinanderliegende) Punk- 


AMIGA-SONDERHEFT 1 


te dargestellt werden können. 
Die vier Farben der Workbench 
können durch die vier Punkt- 
kombinationen (0,0);(0,1);(1,0); 
(1,1) (siehe Bild 15) dargestellt 
werden. Um diese vier Farben 
auf dem ganzen Bildschirm 
darzustellen, werden also zwei 
übereinanderliegende Ebenen 
(Bitplanes) benötigt. Zur Dar- 
stellung der Bildschirmfarben 
sieht Ihr Amiga also im Spei- 
cher in den jeweiligen Bitpla- 
nes nach, welche übereinan- 
derliegenden Punkte gesetzt 
sind und wählt dann, nach den 
Punktkombinationen zugeord- 
neten Wertigkeiten, die ent- 
sprechende, mit »PALETTE« 
eingestellte Farbe. 


Bobs und 
Bitplanes 


Ein Bob wird nun definiert, 
indem für jede Bitplane ange- 
geben wird, welche Punkte ge- 
setzt werden und welche nicht. 
Dies muß allerdings nicht für 
die ganze Bitplane gesche- 
hen, sondern nur für einen 
durch die Breite und Höhe des 
Bobs gegebenen Bereich. Um 
die folgenden Erörterungen 
nicht zu umfangreich werden 
zu lassen, beschränken wir 
uns auf die Workbencheinstel- 
lung von zwei Bitplanes. Die 
DATA-Zeilen in Listing 15 defi- 
nieren einen Bob, der aus vier 


Rechtecken in den vier Work- 
benchfarben besteht (Bild 15). 
Im Normalfall wird dieser Bob 
auch so auf dem Bildschirm er- 
scheinen, doch was passiert, 
wenn Sie einen eigenen 
Screen, etwa mit einer ande- 
ren Anzahl von Bitplanes, defi- 
nieren? Dazu ist in Amiga- 
Basic der Befehl »OB- 
JECT.PLANES« vorgesehen, 
der — neben der obligatori- 
schen Objektnummer — zwei 
Argumente besitzt. Bespre- 
chen wir zunächst das erste Ar- 
gument. Dieses Argument ist 
eine »Maske« (eine 1 Byte lan- 
ge Ganzzahl), die es gestattet 


main: 
Erzeuge Bob$ 
Beschriftung 
Zeichne Bob$ 
END 
SUB Erzeuge(BobShape$) STATIC 
READ Farbe& : BobShape$ 
READ Datensatz& : BobShape$ 
nicht benutzt 
READ Tiefe& : BobShape$ 
READ Breite& : BobShape$ 
READ Hoehe& : BobShape$ 
READ Flags$ : BobShape$ 
READ Auswahl% : BobShape$ 
nicht benutzt 
READ AnAus% 
nicht benutzt 


MKL$(Farbe&) 
BobShape$ + MKL$(Datensatz&) : REM 


Kurse 


zu spezifizieren, in welche Bit- 
planes des Bildschirms die ein- 
zelnen Bitplanes des Bobs ein- 
getragen werden sollen. Dazu 
tippen Sie am besten Listing 15 
ab und starten das Programm. 
Die für Sie jetzt interessanten 
Bilder befinden sich in der er- 
sten Spalte: Das unterste Bild 
zeigt den normalen Bob, denn 
das erste Argument von »OB- 
JECT.PLANES« war hier 3, was 
auf beiden Bitplanes gesetzten 
Punkten entspricht. Das ober- 
ste Bild zeigt gar nichts, denn 


Programmierer 
zählen »anders« 


gar nichts, denn hier war das 
Argument 0, womit der Bob 
auch auf keiner Bitplane ge- 
zeichnet wird. In den Bildern in 
den beiden mittleren Zeilen 
sieht der Bob dagegen merk- 
würdig verändert aus. Hier 
wurden nur die Anteile des 
Bobs gezeichnet, die in der Bit- 
plane 0 (Argument = 1) bezie- 
hungsweise in der Bitplane 1 
(Argument = 2) liegen. Lassen 
Sie sich bitte nicht von der bei 
Programmierern übl(ich)en 
Zählweise verwirren: Es liegen 
zwei Bitplanes vor, die mit O 
und 1 numeriert sind. Ebenso 
besteht ein Byte aus 8 Bits, die 
von O bis 7 gezählt werden. Die 
restlichen drei Spalten zeigen 
die Auswirkungen des zweiten 
Arguments des »OBJECT.PLA- 
NES«-Befehles. Zu diesen Er- 
läuterungen müssen wir noch 
etwas weiter ausholen. Jedem 
Bob ist außer seinen Bitplanes 
auch noch ein »Schatten« zu- 
geordnet (siehe Bild 15). 
Stellen Sie sich die Bitpla- 
nes als durchsichtige Glas- 
scheibe vor. An den Stellen der 
Bitplanes, an denen Punkte 
gesetzt sind, sind diese Schei- 
ben geschwärzt und somit un- 
durchsichtig. Lassen Sie jetzt 


: REM nicht benutzt 


BobShape$ + MKL$(Tiefe) 
BobShape$ + MKL$(Breitek) 
BobShape$ + MKL$(Hoeheß) 
BobShape$ + MKI$(Flags%) 
BobShape$ + MKI$(Auswahl%) : REM 


: BobShape$ = BobShape$ + MKI$(AnAus%) : REM 


Grenze% = Hoche& * Tiefe& * ((Breite& + 15)\16) 


FOR i = 1 TO Grenzef : 


REM Schleifengrenze muss kurze Ganzzahl sein 


Listing 15. Dieses Programm zeigt, wie Bobs dargestellt 
werden 
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READ BobDaten% : BobShape$ = BobShape$ + MKI$(BobDatenf) 


NEXT i 
END SUB 
SUB Beschriftung STATIC 

LOCATE 2,1: 


LOCATE 2,20 


PRINT "Argument 3: Schatten in Bitplanes zeichnen” 


LOCATE 3 
FOR Spalte% = 0 TO 3 


PRINT PTAB(210 + Spalte% * 50) ;Spalte%; 


NEXT Spalte% 
LOCATE 14,4 
PRINT "Argument 2:” 
LOCATE 16,1 
PRINT "Bitplanes ausuhlen” 
FOR Zeile% = 0 TO 3 
LOCATE 8 + 5 * Zeile%,22 
PRINT Zeile% 
NEXT Zeile% 
END SUB 
SUB Zeichne(BobShape$) STATIC 
FOR Zeile%=0 TO 3 
FOR Spalte%=0 TO 3 


OBJECT.ON Viereck% 
NEXT Spalte% 
NEXT Zeile% 
END SUB 
DA 0,0,2,32,32,24 


DATA &H0000 , &H0000 , &H0000 





DATA &H0000 , &H0000 , &H0000 , 
DATA &H0000 , &H0000 , &H0000 , 
DATA &H0000 , &H0000 , &H0000 , 
DATA &H0000 , &H0000 , &H0000 , 
DATA &H0000 , &H0000 , &H0000 , 
DATA &H0000 , &H0000 , &H0000 , 
DATA &H0000 , &H0000 , &H0000 , 
DATA G&HFFFF , &HFFFF , &HFFFF , 
DATA &HFFFF , &HFFFF , &HFFFF , 
DATA SHFFFF , &HFFFF , &HFFFF , 
DATA &HFFFF , &HFFFF , &HFFFF , 
DATA &HFFFF , &HFFFF , &HFFFF , 
DATA &HFFFF , &HFFFF , &HFFFF , 
DATA &HFFFF , &HFFFF , &HFFFF , 
DATA &HFFFF , &HFFFF , &HFFFF , 
DATA 8H0000 , &HFFFF , &H0000 , 
DATA &H0000 , &HFFFF , &H0000 , 
DATA &#H0000 , &HFFFF , &H0000 „ 
DATA &H0000 , &HFFFF , &H0000 „ 
DATA &H0000 , &HFFFF , &H0000 „ 
DATA 840000 , &HFFFF , &H0000 „ 
DATA 840000 , &HFFFF , &H0000 „ 
DATA &H0000 , &HFFFF , &HO000 , 
DATA &H0000 , &HFFFF , &H0000 „ 
DATA 8H0000 , &HFFFF , &H0000 „ 
DATA &H0000 , &HFFFF , &H0000 , 
DATA 840000 , &HFFFF , &H0000 , 
DATA &H0000 , &HFFFF , &H0000 , 
DATA 8&H0000 , &HFFFF , &H0000 , 
DATA 840000 , &HFFFF , &H0000 , 
DATA 840000 , &HFFFF , &H0000 , 


Licht auf die übereinanderlie- 
genden Bitplanes fallen, so 
werden die undurchsichtigen 
Stellen natürlich einen Schat- 
ten werfen. Der Schatten kann 
aber nicht unterscheiden, 
durch welche der einzelnen 
Scheiben er bewirkt wurde. 
Nun tritt eine Verdunklung (al- 
so ein gesetzter Punkt) immer 
dort auf, wo in irgendeiner der 
vorhandenen Bitplanes ein 
Punkt gesetzt war. Mathema- 
tisch ausgedrückt heißt dies, 
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PRINT “Argument 1:” 
LOCATE 3,1 : PRINT ” Objekt-Nummer” 


Viereck%=Zeile#*4+Spalte%+1 
OBJECT.SHAPE Viereck%,BobShape$ 
OBJECT.X Viereck%,200+Spalte%*50 
OBJECT.Y Viereck#,35+Zeileg*40 
OBJECT.PLANES Viereck%,Zeile%,Spalte% 


‚3,0 


: REM Abmessungen 


&H0000 : 
&H0000 
&H0000 
&H0000 
&H0000 
&H0000 
&H0000 
&H0000 
&HFFFF 
&HFFFF 
&HFFFF 
&HFFFF 
&HFFFF 
&HFFFF 
&HFFFF 
&HFFFF 


REM Bitplane 1 


&HFFFF : 
&HFFFF 
&HFFFF 
&HFFFF 
&HFFFF 
&HFFFF 
&HFFFF 
&HFFFF 
&HFFFF 
&HFFFF 
&HFFFF 
&HFFFF 
&HFFFF 
&HFFFF 
&HFFFF 
&HFFFF 


REM Bitplane 0 


Listing 15. (Schluß) 


daß der »Schatten« durch eine 
logische »ODER«-Verknüp- 
fung der einzelnen Bitplanes 
entsteht. 

Das zweite Argument des 
»OBJECT.PLANES«-Befehls 
gibt nun an, was mit diesem 
Schattenbild geschehen soll. 
Dazu wird auch dieses Argu- 
ment als Maske aufgefaßt, die 
angibt, in welchen Bitplanes 
dieser Schatten gezeichnet 
werden soll. Allerdings wird 
der Schatten nur dann ge- 





zeichnet, wenn der Bob in die- 
ser Bitplane nichtschon sowie- 
so aufgrund des ersten Argu- 
mentes gezeichnet werden 
sollte. 

Damit lassen sich auch noch 
die restlichen Bilder unseres 
Demonstrationsprogrammes 
interpretieren: In der untersten 
Zeile erscheint natürlich immer 
nur der vollständige, normale 
Bob, da bereits das erste Argu- 
ment die beiden Bitplanes aus- 
wählte und das zweite Argu- 
ment somit keinen Einfluß 
mehr hat. In der obersten Zeile 
liegt der Sachverhalt genau 
umgekehrt. Hier wählt das er- 
ste Argument keine Bitplane 
aus. Daher wird der Schatten 
des Bob nun in der Farbe ge- 
zeichnet, die den ausgewähl- 

ten Bitplanes entspricht. 


Schattenspiele 


In den beiden dazwischen- 
liegenden Zeilen wird an den 
Stellen, bei denen das erste Ar- 
gument gleich dem zweiten ist, 
der Schatten entsprechend 
dem oben Gesagten nicht ge- 
zeichnet. Daher entsprechen 
dort die Bilder denen der jewei- 
ligen ersten Spalte. Die beiden 
verbleibenden Bilder der ein- 
zelnen Zeilen sind ebenfalls 
identisch, da hier immer eine 
Bitplane durch das erste Argu- 
ment ausgewählt ist und der 
Schatten daher immer in die 
andere, durch das erste Argu- 
ment nicht gewählte Bitplane 
gezeichnet wird. Nachdem der 
Sachverhalt schon bei nur zwei 
Bitplanes so kompliziert ist, 
können Sie sich denken, wie 
sich die Verhältnisse erst bei 
mehreren Bitplanes ent- 
wickeln. Daher wollen wir die- 
se Fälle lieber mit dem Mantel 
des Schweigens umhüllen, je- 
doch nicht ohne Sie zu eige- 
nen Experimenten zu ermun- 
tern. 

Das vorgestellte Masken- 
Konzept läßt sich auch auf das 
Verhalten der Objekte unter- 
einander (ob Bobs oder Spri- 
tes) übertragen. Bisher gingen 
wir immer davon aus, daß alle 
Objekte sowohl untereinander 
als auch mit dem Rand kollidie- 
ren können. Der Befehl »OB- 
JECT.HIT« erlaubt es aber, ver- 
schiedene Klassen von Objek- 
ten zu definieren und zugleich 
zu spezifizieren, mit welchen 
Objektklassen Objekte dieser 
definierten Klasse zusammen- 
stoßen können. Auch hier ist 
wohl wieder ein Beispiel ange- 
bracht. Stellen Sie sich also 
vor, es gäbe (außer dem Rand) 
drei Klassen von Objekten, die 
»Guten«, die »Bösen« und die 
»Neutralen«. Die »Guten« sol- 


len merken, wenn sie auf »Bö- 
se« oder den Rand stoßen. Die 
»Neutralen« hingegen sollen 
sie jedoch ignorieren, ebenso 
die Zusammenstöße unterein- 
ander. Die »Neutralen« sollen 
alle anderen und auch den 
Rand ignorieren und die »Bö- 
sen« sollen sowohl die »Guten« 
als auch die »Neutralen« und 
den Rand bemerken, andere 
»Böse« dagegen nicht. 

Dazu besitzt auch der »OB- 
JECT.HIT«-Befehl neben der 
Objektnummer noch zwei Ar- 
gumente. Das erste Argument 
gibt an, zu welcher Klasse das 
Objekt gehören soll. Da die 
Maske 2 Byte groß ist, kann es 
16 verschiedene Objektklas- 
sen geben, wobei ein Objekt 
auch mehreren Klassen 
gleichzeitig angehören kann. 
Die Zahl, die Sie für die Maske 
angeben müssen, können Sie 
wieder mit Hilfe der Wertig- 
keitstabelle angeben, wobei al- 
lerdings die 1 für Kollisionen 
mit dem Rand reserviert ist. 
Für unser Beispiel erhalten die 
»Guten« eine 2, die »Neutra- 
len« eine 4 und die »Bösen« ei- 
ne 8. Das zweite Argument gibt 
an, welche anderen Zusam- 
menstöße erlaubt sind. In un- 
serem Beispiel heißt dies, die 
»Guten« erhalten eine 9 (»Bö- 
se« und Rand), den »Neutra- 
len« ist alles egal, sie erhalten 
daher eine 0, während den 
»Bösen« eine 7 zugeordnet 
wird (alles außer anderen »Bö- 
sen«). Mathematisch heißt 
dies, daß bei einem Zusam- 
menstoß die logische »UND«- 
Verknüpfung des ersten Argu- 
ments vom einen Objekt mit 
dem zweiten Argument vom 
anderen Objekt gebildet wird. 
Eine Kollision wird nur dann re- 
gistriert, wenn das Ergebnis 
dieser Verknüpfung von Null 
verschieden ist. In Ihrem Pro- 
gramm könnte diese Definition 
dann etwa so aussehen: 


OBJECT.SHAPE 1,Boese$ 
OBJECT.SHAPE 2,1 
OBJECT.SHAPE 3,Gut$ 
OBJECT.SHAPE 4,Neutral$ 
OBJECT.HIT 1,8,7 
OBJECT.HIT 2,8,7 
OBJECT.HIT 3,2,9 
OBJECT.HIT 4,4,0 


Als letzten Animationsbefehl 
wollen wir noch die »OB- 
JECT.PRIORITY«-Anweisung 
anführen. Sie bezieht sich wie- 
der nur auf Bobs und legt die 
Rangfolge fest, in der die Bobs 
auf den Bildschirm gezeichnet 
werden. Je höher die Priorität, 
desto später wird das entspre- 
chende Bob auf den Bild- 
schirm gezeichnet. Dies hat 
bei sich gegenseitig überlap- 
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penden Bobs Auswirkungen 
darauf, welcher Bob von wel- 
chen anderen Bobs überdeckt 
werden kann. Die Anweisungs- 
syntax lautet 


OBJECT.PRIORITY <Bob 
nummer>,<Priorität> 


<Priorität> ist dabei ein kurze 
Ganzzahl. 


Der Amiga wird 
geschwätzig 


Die Möglichkeiten des Ami- 
ga zur Tonerzeugung wurden 
von den Basic-Entwicklern lei- 
der etwas stiefmütterlich be- 
handelt. Den einfachsten Be- 
fehl zur Erzeugung von Ge- 
räuschen kennen Sie schon: 
»BEEP« dient nur dazu, die 
Aufmerksamkeit eines Benut- 
zers auf den Amiga zu lenken. 
Anwendung findet dieser Be- 
fehl zur akustischen Unterstüt- 
zung der Fehlermeldungen 
von Amiga-Basic. 

Interessanter ist da schon 
die Sprachausgabe des Ami- 
ga. Diese ist durchaus komfor- 
tabel und einfach zu bedienen, 
vorausgesetzt, es handelt sich 
um englische Texte. Hier wur- 
de leider auf die Bedürfnisse 
der deutschen Amiga-Anwen- 
der keine Rücksicht genom- 
men. 

Der Befehl »TRANSLATE$« 
übersetzt einen beliebigen 
Text in einen dem Amiga ver- 
ständlichen Phonemcode (ei- 
ne Art Lautschrift). Da aber von 
einem englischsprachigen 
Text ausgegangen wird, erhal- 
ten deutsche Texte einen gera- 
dezu zungenbrecherischen 
Phonemcode. Entsprechend 
hört sich dann auch ein mit Hil- 
te des »SAY«-Befehles wieder- 
gegebener deutscher Text an. 
Deutsch mit starkem engli- 
schen Akzent ist ein milder 
Ausdruck dafür. Im Anhang H 
Ihres Amiga-Basic-Handbu- 
ches finden Sie zwar unter an- 
derem auch einige Vorschläge 
zur Behandlung deutscher 
Texte, aber die Ergebnisse klin- 
gen nicht sehr überzeugend. 
Wer Wert auf eine saubere 
deutsche Aussprache legt, 
wird sich wohl noch gedulden 
müssen. Oder er übersetzt die 
deutschen Texte per Hand mit- 
tels der Phoneme-Tabelle in 
den Phoneme-Code. 

Der »SAY«-Befehl erwartet 
also als erstes Argument den 
Phonemcode des auszuspre- 
chenden Textes. Als zweites 
Argument kann der Name ei- 
nes Ganzzahlfeldes, das die 
Eigenschaften der Stimme 
festlegt, übergeben werden. 
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Dieses besitzt neun Einträge, 
daher dimensionieren (»DIM«) 
Sie es am besten als »< Stim- 
me%>(8)«.. Die einzelnen 
Feldeinträge werden in folgen- 
der Tabelle beschrieben: 


ert werden können. Dabei sind 
die Kanäle 0 und 3 der linken, 
die Kanäle 1 und 2 der rechten 
Seite zugeordnet. 0 bis 3 wählt 
den entsprechenden Ton-Ka- 
nal. 4 wählt die Kanäle O und 1, 








Element Funktion Zulässige Werte 
0 Grundfrequenz der Stimme 65 bis 320 

1 Silbenbetonung 0,1 

2 Sprechgeschwindigkeit 40 bis 400 

3 Geschlecht der Stimme 0,1 

4 Stimmqualität 5000 bis 28000 
5 Lautstärke 0 bis 65 

6 Ausgabekanäle Obis9 

7 Synchronisation Obis2 

8 Asynchron-Modus Obis2 





Element 0 beschreibt die 
Grundfrequenz der dargestell- 
ten Stimme. Hier sind Werte 
zwischen 65 und 320 Hertz 
(Schwingungen pro Sekunde) 
möglich. Die Voreinstellung ist 
eine normale Stimme mit 110 
Hertz. Element 1 beschreibt 
die Silbenbetonung: Voreinge- 
stellt ist O0, die der Betonung 
von Silben entspricht, während 
1 eine monotone, roboterhafte 
Sprache erzeugt. Das Element 
2 bestimmt die Sprechge- 
schwindigkeit in Worten pro Mi- 
nute. Voreingestellt ist ein Wert 
von 150, Sie können jedoch 
Werte von 40 bis 400 angeben. 
Element 3 bestimmt, ob der 
Sprecher männlich (0) oder 
weiblich (1) sein soll. 

Die Stimmqualität wird 
durch das vierte Element be- 
einflußt. Es können Werte zwi- 
schen 5000 und 28000 einge- 
stellt werden. Dabei ist jedoch 
zu empfehlen, den voreinge- 
stellten Wert von 22200 nicht 
zu verändern. Element 5 steu- 
ert die Lautstärke zwischen O 
und dem voreingestellten Ma- 
ximum von 65. Die Ton-Kanäle 
zur Sprachausgabe können 
durch das Element 6 ausge- 
wählt werden. Wie Sie viel- 
leicht wissen, besitzt der Ami- 
ga vier Ton-Kanäle, die unab- 
hängig voneinander angesteu- 


Dur-Tonleiter 


Prim (CGrundton) 


Sekunde 
Sroße Terz 
Quarte 
Quinte 
Große 
GSroße 
Oktave 


Sexte 
Septime 


Moll-Tonleiter 


Prim CGrundtonD 


Sekunde 
Kleine Terz 
Quarte 

Quinte 

Kleine Sexte 
Kleine Septime 
Oktave 


5 wählt die Kanäle 0 und 2, 6 


“ wählt die Kanäle 3 und 1 und 7 


wählt die Kanäle 3 und 2. Die 
Einstellung 8 wählt hingegen 
jeden verfügbaren linken und9 
wählt jeden verfügbaren rech- 
ten Kanal. Voreingestellt ist der 
Wert 10, der jedes verfügbare 
Paar aus linkem und rechtem 
Kanal wählt. Schließlich wählt 
ein Wert von 11 irgendeinen 
verfügbaren Kanal aus. 

Mit Feldelement Nummer 7 
kann die Synchronisation der 
Sprachausgabe mit dem Ba- 
sic-Programm erfolgen. Vor- 
eingestellt ist hier der Wert 0, 
der Basic veranlaßt, so lange 
die Bearbeitung weiterer An- 
weisungen einzustellen, bis 
der »SAY«-Befehl beendet ist. 
Ein Wert von 1 dagegen führt 
die Sprachausgabe im Hinter- 
grund aus, während Basic mit 
der Befehlsbearbeitung fort- 
fährt. Das letzte Feldelement 
ist nur dann von Bedeutung, 
wenn die asynchrone Sprach- 
ausgabe aktiviert ist. In diesem 
Fall bewirkt 0 (voreingestellt) 
eine normale Verarbeitung, 
was heißt, daß eine weitere 
»SAY«-Anweisung erst durch- 
geführt wird, wenn die voraus- 
gehende beendet ist. Bei ei- 
nem Wert von 1 wird die 
Sprachausgabe abgebrochen, 
während bei einem Wert von 2 


Frequenzverhältnis 


ö 
Nauyauyr 


Frequenzverhältnis 


NOA0AH0r 
raupuaar 





Tabelle 3. Dur-und Moll-Tonleitern 


K URSE 


die aktuelle »SAY«-Anweisung 
abgebrochen und die neue 
»SAY«-Anweisung bearbeitet 
wird. 


The sound of 
music... 


Bevor wir uns nun den bei- 
den einzigen Befehlen des 
Amiga-Basic, die zur Toner- 
zeugung zur Verfügung ste- 
hen, zuwenden, erst einmal zu 
theoretischen Grundlagen der 
Tonerzeugung. Ein Ton ent- 
steht durch Schwingungen der 
uns umgebenden Luft, wobei 
unser Ohr Schwingungen zwi- 
schen etwa 15 und 20000 Hz 
wahrnehmen kann. Der wich- 
tigste Ton in den musikalischen 
Notensystemen ist der Kam- 
merton »a«, der eine Frequenz 
von 440 Hertz besitzt. Die 
C-Dur Grundtonleiter enthält 
neben diesem Ton noch sechs 
weitere und ist wie folgt aufge- 
baut: 


Note Frequenz 


261.630 
293.660 
329.630 
349.230 
392.000 
440.000 
493.880 


sso-ono 


Diese sieben Töne umfas- 
sen eine Oktave, der nächste 
Ton in diesem System ist wie- 
der ein »c«. Dessen Frequenz 
ist allerdings mit 523,260 Hertz 
genau doppelt so groß wie die 
des ersten. Diese Regel hat 
Allgmeingültigkeit: Mit jeder 
Oktave verdoppeln sich die 
Frequenzen der zugrundelie- 
genden Töne, beziehungswei- 
se bei tieferen Oktaven halbie- 
ren sich die Frequenzen. Neh- 
men wir als Beispiel den Ton 
»a«: Der Kammerton hat eine 
Frequenz von 440 Hertz, das 
»a« in der nächst höheren Ok- 


Beispiel 


Beispiel 





ysunnanyp 
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tave hat eine Frequenz von 880 
Hertz, noch eine Oktave höher 
beträgt die Frequenz des »a« 
1760 Hertz. Das »a« eine Okta- 
ve unter dem Kammerton hat 
dagegen nur eine Frequenz 
von 220 Hertz. 

Ausgehend vom Grundton 
lassen sich die Tonleitern auch 
durch Frequenzverhältnisse 
charakterisieren, wobei zwi- 
schen Dur- und Moll-Tonarten 
unterschieden werden muß 
(Tabelle 3). 

Doch nun wollen wir dem 
Amiga erste Töne entlocken. 
Mit der Anweisung 


SOUND <Frequenz>, 
<Dauer>,<Lautstärke>, 
<Kanal> 


können Sie Ihre Lautsprecher 
zum Leben erwecken. Dabei 
können Sie bei Ihren ersten 
Versuchen die beiden letzten 
Argumente sogar weglassen, 
da Amiga-Basic voreingestellt 
die Töne mit mittlerer Lautstär- 
ke auf Kanal 0 wiedergibt. Die 
Frequenz als erstes Argument 
sollte nach den vorstehenden 
Erläuterungen keine Schwie- 
rigkeiten mehr machen. Das 
zweite Argument gibt an, wie 
lange der Ton gespielt werden 
soll. Dabei bezieht sich Ihr 
Amiga aber leider nicht auf Se- 
kunden, sondern auf Zeittakte. 
Sie können dabei eine Dauer 
zwischen 0 und 77 Zeittakten 
angeben, wobei 18,2 Zeittakte 
etwa einer Sekunde entspre- 
chen. Wenn Sie wollen, kön- 
nen Sie für den Kanal eine 
Nummer zwischen O und 3 an- 
geben, während die Lautstärke 
ein Wert zwischen 0 und 255 
sein muß. 

Wie Sie wissen, verfügt der 
Amiga über vier Soundkanäle. 
Soll nun ein mehrstimmiges 
Stück abgespielt werden und 
Sie geben den einzelnen Ka- 
nälen nacheinander die 
»SOUND«-Anweisungen, so 


DIM Freq(3) ‚Dauer(3),Lautst(3) 
SOUND WAIT 
Leseschleife: 

FOR 1 = 0.70 3 


hat dies ein heilloses 
Durcheinander zur Folge. Zum 
Wohl Ihrer Ohren empfehlen 
wir Ihnen daher, den Befehl 
»SOUND WAIT« einzusetzen. 
Dieser sammelt alle nachfol- 
genden »SOUND«-Anweisun- 
gen auf und erst der Befehl 


SOUND RESUME 


gibt sie zur Ausgabe frei (Li- 
sting 16). Zu einem Kanal ge- 
hörende Töne werden nach- 
einander ausgegeben. Zu un- 
terschiedlichen Kanälen gehö- 
rige Folgen beginnen gleich- 
zeitig. Dabei kann sich aller- 
dings ein Problem ergeben: 
Wollen Sie eine bestimmte 
Tonfolge zunächst über Kanal 
0 wiedergeben und nach eini- 
ger Zeit etwa Kanal 1 zuschal- 
ten, so muß vom Wirken des 
»SOUND RESUME bis zum 
Einsatz von Kanal 1 über die- 
sen eine beliebige Tonfolge mit 
der Lautstärke O0 ausgegeben 
werden. Das Abspielen von Tö- 
nen mit der Lautstärke 0 ist ein 
guter Trick, um die Tonausga- 
be auf verschiedenen Kanälen 
zu synchronisieren. 


Die Welle 
bestimmt den 
Klang 


Der zweite Befehl zur Beein- 
flussung von Tönen ist die 
»WAVE«-Anweisung. Mit 
WAVE <Kanal>,<Wellen 
form%> 


kann die Wellenform der er- 
zeugten Töne beeinflußt wer- 
den. Was haben Töne nun mit 
Wellen zutun? Zur Klärung die- 
ser Frage unternehmen wir ei- 
nen weiteren kleinen Ausflug in 
die Theorie. Den Tönen, die 
Sie mit den bisherigen Befeh- 
len erzeugen konnten, lag eine 
einfache Sinuswelle (Bild 16a) 
zugrunde. Sotreten beim Kam- 


READ Freg(1),Dauer(i),Lautst(i) 
IF Freq(O)=-1 THEN SOUND RESUME : END 
SOUND Freg(i),‚Dauer(1),Lautst(i),i 


NEXT i 
GOTO Leseschleife 


REM Frequenz 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


440.0 , 36.4 255 
440.0 , 36.4 0 
440.0 , 36.4 0 
440.0 , 36.4 0 
261.63, 72.8 

261.63, 72.8 , 100 
DATA 329.63, 72.8 , 100 
DATA 392.00, 100 
DATA -1 , -1 


Dauer Lautstaerke 





Listing 16. Ein einfaches Programm zur Sound-Ausgabe 
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=> Rechter 


Bild 16. Die vier Standard-Wellenformen zur Klang- 
erzeugung 


merton »a« 440 Schwingungen 
pro Sekunde auf — und jede 
einzelne sieht so aus, wie die in 
Bild 16a gezeigte. Vielleicht ha- 
ben Sie beim Ausprobieren der 
Befehle bemerkt, daß die er- 
zeugten Töne nicht unbedingt 
natürlich, sondern eher künst- 
lich klangen. Der Grund dafür 
ist, daß Sinusschwingungen in 
der Natur normalerweise nicht 
in der reinen Form vorkom- 
men. Um nun die Klangcharak- 
teristik eines bestimmten 
Musikinstrumentes simulieren 
zu können, benötigt man ande- 
re Wellenformen. Genau diese 
können Sie mit dem WAVE- 
Befehl dem Amiga bekanntge- 
ben. Das Argument <Wellen- 
form%> ist dabei ein minde- 
stens 256 Einträge großes 
Ganzzahlfeld, dessen Elemen- 
te Werte von -128 bis 127 sein 
dürfen. Auf diese Weise kön- 
nen Sie beliebige Schwin- 
gungsformen definieren. 

Neben der Sinusschwin- 
gung gibt es noch andere, bei 
der Tonerzeugung oft verwen- 
dete Wellenformen: die Drei- 
ecks- (Bild 16b) und Recht- 
ecksschwingungen (Bild 16c), 
sowie das Rauschen (Bild 
16d). Aus unserem Programm 
(Listing 17) können Sie erse- 
hen, wie diese Formen pro- 
grammiert werden. Für die 
Umstellung eines Kanals zu- 
rück auf die Standardeinstel- 
lung, die Sinuswelle, genügt 
folgende Anweisung: 


WAVE <Kanal>,SIN 


Kenner des C 64 oder ande- 
rer soundfähiger Computer 
werden jetzt sicherlich noch et- 
was vermissen. Die Klangcha- 
rakteristik eines Instrumentes 
wird nämlich nicht nur durch 


die Wellenform, sondern auch 
durch die »Hüllkurve« be- 
stimmt. Sie beschreibt den An- 
schlag, also die Art und Weise, 
wie schnell ein Ton die maxi- 
male Lautstärke erreicht, wie 
lange er dann auf dem Ma- 
ximalpegel verbleibt und 
schließlich das Ausklingen des 
Tones. In Amiga-Basic gibt es 
leider keinen Befehl, mit des- 
sen Hilfe derartige Hüllkurven 
erstellt werden können. Also 
müssen Sie solche Toneigen- 
schaften selbst programmie- 
ren. Listing 18 demonstriert ei- 
ne Möglichkeit, dies zu tun. Als 
kleines Bonbon bildet es die 
Hüllkurve auch noch auf dem 
Bildschirm ab. 


Achtung: 
Unterbrechung 


Als Anwender von Amiga- 
Basic-Programmen oder Pro- 
grammierer dieser Sprache 
kennen Sie sicher den Reque- 
ster mit einer Fehlermeldung 
und der kleinen »OK«-Box am 
oberen Bildschirmrand: Ein 
Fehler ist aufgetreten, der Pro- 
grammablauf wird unterbro- 
chen. Eventuell vorher einge- 
gebene Daten sind verloren. 
Argerlich? In den meisten Fäl- 
len ja. Amiga-Basic kennt da- 
her einen Mechanismus, mit 
dem nach Auftreten eines Feh- 
lers die Programmausführung 
in einen bestimmten Teil des 
Programms verzweigt. Hier 
könnten dann zum Beispiel vor 
dem Programmende wichtige 
Daten auf die Diskette gespei- 
chert werden. Vielleicht läßt 
sich aber auch die Ursache 
des Fehlers durch Änderungen 


des Programms beheben. Das 
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Programm kann dann ohne ei- 
nen Abbruch am Ort der Unter- 
brechung seine Tätigkeit wie- 
der aufnehmen. Damit ist das 
Stichwort für diesen Abschnitt 
unseres Kurses gefallen: Un- 
terbrechungen. Sie funktionie- 
ren ähnlich wie ein Unterpro- 
grammsprung mit »GOSUB«. 
Im Unterschied zu dieser Tech- 
nik wird eine Verzweigung je- 
doch nicht durch einen Pro- 
grammbefehl, sondern durch 
ein bestimmtes Ereignis her- 
vorgerufen. Solche Ereignisse 
können das Betätigen der 
Maus, ein Menüklick oder aber 
das Auftreten eines Fehlers 
sein. In dem jeweiligen Unter- 
programm wird dann auf das 
entsprechende Ereignis rea- 
giert. Auf diese Weise läßt sich 
die von der Workbench ge- 
wohnte Benutzeroberfläche 
einfach in Basic-Programme 
integrieren. Aber eben auch 
das Abfangen von Software- 
Fehlern und eine Reaktion dar- 
auf durch Befehle des Pro- 
grammierers sind mit diesen 
Funktionen einfach zu realisie- 
ren. 


Dem Fehler auf 
der Spur 


Fehlerlos ist sicherlich kein 
Programm, zumindest solange 
es sich noch in der Entwick- 
lung befindet. Als Program- 
mierer müssen Sie schließlich 
alle Eventualitäten von Anfang 
an mit in Ihr Programm einpla- 
nen. Dies gilt besonders für die 
Fehler, die bei der Bedienung 
des Programms gemacht wer- 
den. Um Programmentwick- 
lern die Arbeit zu erleichtern, 





main: 
Wellenfornen 
Spielen 
WHILE NOT MOUSE(0) : SLEEP : 
END 
SUB Wellenformen STATIC 
Variable: 


startsub: 
RANDOMIZE TIMER 
FOR i = 0 10 63 
dreieck%(i) 
dreieckf(i + 64) = 


dreieck%(i + 192) 
NEXT i 
FOR i = 0 T0 127 
rechteck%(1) 
rechteck%(i + 128) 
NEXT i 
FOR i = 0 T0 255 


127 
-128 


NEXT i 
WAVE 0,5IN 
WAVE 1,dreieck# 
WAVE 2,rechteck% 
WAVE 3,rauschen% 
END SUB 
SUB Spielen STATIC 
FOR k = 0 70 3 
SOUND WAIT 
FOR i = 440 TO 880 STEP 40 
SOUND 1,3.6,,K 
NEXT i 
SOUND RESUME 
NEXT k 
END SUB 





rauschen%(1) = 255 * RND - 128 


WEND 
DIM dreieck%(255) ‚rechteck%(255) ‚rauschen%(255) 


= 127%17/64 

( 127 * (64-1)/64 
dreieck%(i + 128) = -127 *i / 64 

( = -127 * (64-1)/64 





Listing 17. Die Programmierung verschiedener 


Wellenformen 


bietet Amiga-Basic einerseits 
die Möglichkeit, Fehlermel- 
dungen des Interpreters abzu- 
fangen, andererseits lassen 
sich auch neue mögliche Feh- 
ler definieren. Mit Hilfe des Be- 
fehls 


ON ERROR GOTO Marke 


können Sie dann auf das Auf- 
treten eines dieser Fehler ent- 
sprechend reagieren. Doch 





Variable: 
DIM huellkurve%(255) 

main: 
REM 1. schnelles Ansteigen 
FOR i = 0 TO 30 


huellkurveß(i) = 255 * i / 30 


NEXT i 
REM 2. erstes abklingen 
FOR i = 31 70 60 


huellkurveg(i) = 255 * (1 - (1-31)/100) 


NEXT i 
REM 3. halten 
FOR i = 61 TO 100 


huellkurvef(1) = huellkurveg(60) 


NEXT i 
REM 4. abklingen 
FOR i = 101 TO 255 


huellkurve#(i) = huellkurve%(100) * (1 - (i-101)/155) 


NEXT i 


PSET (4,190 - .7*huellkurve%(0)) 


FOR i = 1 10 255 


LINE -(2*1,190 - .7*huellkurve2(i)) 


NEXT i 
FOR i = 0 10 255 
SOUND 440, .5,huellkurveg(i) 
NEXT i 
WHILE NOT MOUSE(0) : SLEEP : 
END 





WEND 





Listing 18. Ein Programm zur Hüllkurvenbestimmung 
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woher wissen Sie, welcher 
Fehler aufgetreten ist? Dazu 
dient die vordefinierte Variable 
»ERR«. Jedem Fehler wird von 
Basic eine bestimmte Nummer 
zugeordnet. Diese Zuordnung 
können Sie dem Anhang B Ih- 
res Basic-Handbuches ent- 
nehmen. Wenn Sie dort jedoch 
nachschlagen, werden Sie 
feststellen, daß von den mögli- 
chen 255 Fehlercodes nur ein 
kleiner Teil eine Bedeutung 
hat, während den restlichen 
Fehlernummern der Fehler 
»Unprintable Error« zugeord- 
net ist. Genau hier können Sie 
eingreifen: der Befehl 


ERROR Nummer 


gestattet es Ihnen, jeden Feh- 
ler zu simulieren. Falls Sie zum 
Beispiel in Ihrem Programm ir- 
gendwo die Zeile »ERROR 2« 
plaziert haben, dann wird Ihr 
Programm genau dort mit der 
Fehlermeldung »Syntax Error« 
abgebrochen. Haben Sie nun 
aber zuvor irgendwo in Ihrem 
Programm die Befehlszeile 
»ON ERROR GOTO« Marke 
stehen, so verzweigt Ihr Pro- 
gramm erst zu der angegebe- 
nen Routine. Innerhalb dieser 
Routine ist es zweckmäßig, die 
Variable »ERR« auf Ihrem Wert 
zu überprüfen (in unserem Bei- 
spiel hat sie den Wert zwei). 
Abhängig von diesem Wert 
können Sie nun versuchen, 
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den Fehler zu beheben, oder 
aber zumindest eine Fehler- 
meldung ausgeben. Der Pro- 
grammteil nach der durch den 
»ON ERROR GOTO«-Befehl 
angesprungenen Marke wird 
so lange abgearbeitet, bis 
Amiga-Basic auf den Befehl 


RESUME 


trifft. Den »RESUME«-Befehl 
gibt es in drei Variationen: Sie 
können »RESUME alleine an- 
geben — dann kehrt Basic ge- 
nau zu dem Befehl zurück, der 
den Fehler ausgelöst hat, und 
führt ihn nochmals durch. Sie 
können aber auch eine 
Sprungmarke hinter »RESU- 
ME« angeben. In diesem Fall 
springt Basic zu dieser Marke. 
Dieses Verfahren ist jedoch mit 
größter Vorsicht zu genießen. 


Wo ist der 
Übeltäter? 


Es gibt eigentlich nur einen 
Fall, in dem es angewendet 
werden sollte: den Sprung an 
das Programmende. Bei der 
dritten Variation geben Sie 
nach dem »RESUME« das 
Schlüsselwort »NEXT« an. Die- 
ser Zusatz bewirkt, daß die 
Programmausführung direkt 
nach dem Befehl fortfährt, der 
den Fehler verursachte. 

Als Beispiel für die Fehler- 
verarbeitung soll Ihnen Listing 
19 dienen. Mit dem Programm 
lassen sich Texte in eine se- 
quentielle Datei speichern. Für 
den Fall, daß die angegebene 
Datei bereits auf der Diskette 
existiert, sollen die in ihr ent- 
haltenen Texte auf dem Bild- 
schirm ausgegeben und weite- 
re Texte daran angehängt wer- 
den. Zunächst wird die Fehler- 
unterbrechung aktiviert. Um 
nach der Eingabe des Dateina- 
mens zu verhindern, daß die 
Datei mit einem Leerstring er- 
öffnet wird, wird in diesem Fall 
ein »Fehler« erzeugt. Dieser 
hat die Nummer 42 und tritt im- 
mer dann auf, wenn bei der 
Eingabe lediglich die Taste 
<Return> betätigt wird. Na- 
türlich kann dieser Fall auch 
einfacher abgefangen werden. 
Unser Beispiel soll Ihnen ledig- 
lich den Nutzen dieser Funk- 
tion erläutern, 

Tritt beim Offnen der Datei 
zum Lesen der Fehler Nummer 
53 auf, dann ist die angegebe- 
ne Datei nicht vorhanden. Das 
Programm kann in diesem Fall 
mit einer erneuten Eröffnung 
zum Schreiben und der Einga- 
be der Texte fortfahren. Tritt 
dieser Fehler allerdings nicht 
auf, werden alle Sätze der Da- 
tei gelesen und auf dem Bild- 
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schirm ausgegeben. Der in 
diesem Sonderheft benutzte 
Checksummer benutzt übri- 
gens eine solche Routine. 

Zur Fehlerbearbeitung bleibt 
jetzt nur noch eine — aller- 
dings wenig nützliche — Sy- 
stemvariable zu besprechen. 
Die Variable »ERL« enthält 
beim Auftreten eines Fehlers 
die letzte Zeilennummer, die 
vor dem Auftreten des Fehlers 
abgearbeitet wurde. Leider 
muß diese Zeilennummer 
auch wirklich eine Nummer 
sein. Label werden nicht er- 
faßt. Da Sie aber wegen der 
mächtigen strukturierten Be- 
fehle des Amiga-Basic norma- 
lerweise auf Zeilennummern 
verzichten können, lassen sich 
nur wenige Einsatzmöglichkei- 
ten für diese Variable finden. 


Der Program- 
mierer als 
Fallensteller 


Hinter der besprochenen 
Methode der Fehlerbearbei- 
tung steckt ein allgemeines 
Programmierprinzip, das wir 
mit dem deutschen Wort Unter- 
brechungsverarbeitung vorge- 
stellt haben. Wie üblich ist der 
entsprechende amerikanische 
Fachausdruck »event trap- 
ping« wesentlich anschauli- 
cher. Denn dies ist genau die 
Absicht: Ein Programm zu 
schreiben, welches darauf 
wartet, daß ihm ein bestimmtes 
Ereignis in die Falle geht. So- 
bald dieses Ereignis eintritt, 
läßt Ihr Amiga alles stehen und 
liegen, um dieses sofort zu be- 
arbeiten. Ist er damit fertig, 
kehrt er wieder zum eigentli- 
chen Programm zurück, um es 
an der Stelle fortzusetzen, an 
der es unterbrochen wurde. Es 
gibt viele Ereignisse, die eine 
derartige Bearbeitung erfor- 
dern. Zwei davon sind Ihnen 
schon bekannt: Zum einen die 
oben besprochene Fehlerbe- 
handlung, zum anderen die bei 
den Animationsbefehlen be- 
sprochene Verarbeitung von 
Zusammenstößen grafischer 
Objekte. Weitere mögliche Er- 
eignisse sind das Verstreichen 
einer gewissen Zeitspanne 
oder der Druck auf eine Maus- 
taste. 

Besonders für die Mausbe- 
dienung bietet Amiga-Basic 
mächtige Funktionen, die eine 
einfache Maus- und Menü- 
steuerung erlauben. Wie Sie 
ja schon von der Workbench 
gewohnt sind, besitzen die bei- 
den Maustasten unterschiedli- 
che Funktionen. Bekanntli- 
cherweise dient die rechte 
Maustaste zur Auswahl von 
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Variable: 
dn$ = ”" ' Dateiname 
Num = 0 ' Fehlernummer 


ON ERROR GOTO Fehler 
main: » 
cLs 
Anfang: 
Num = 0 
INPUT "Dateiname”;an$ 
PRINT 
IF dn$ = ”" THEN ERROR 42 
IF Num = 42 THEN Anfang 
OPEN dn$ FOR INPUT AS #1 
IF Num = 53 THEN 
CALL OpenDatei(dn$) 
ELSE 
CALL ReadDatei 
END IF 
END 
SUB OpenDatei(datei$) STATIC 


PRINT 


PRINT 
OPEN datei$ FOR APPEND AS #1 
LINE INPUT "Satz: ";s$ 
WHILE s$ <> "%” 
PRINT #1,5$ 
LINE INPUT "Satz: 
WEND 
END SUB 
SUB ReadDatei STATIC 


";s$ 


WHILE NOT EOF(1) 
LINE INPUT #1,e$ 
PRINT e$ 
WEND 
END SUB 
Fehler: 
Num = ERR 
IF Num = 42 THEN 
cLS 
PRINT ”Keine leere Eingabe” 
ELSEIF Num <> 53 THEN 
PRINT "Programmfehler! ” 
PRINT "Programm beendet” 
RESUME Ende 
END IF 
RESUME NEXT 


Pull-Down-Menüs, während 
mit der linken Maustaste Pro- 
gramme geladen beziehungs- 
weise Icons oder Gadgets se- 
lektiert werden. Diese unter- 
schiedliche Bedeutung der 
beiden Maustasten kommt 
auch in Amiga-Basic zum Tra- 
gen: Die beiden Befehle 


ON MOUSE GOSUB Marke 
ON MENU GOSUB Marke 


machen dem Interpreter die 
Zeilennummer bekannt, zu der 
er nach dem entsprechenden 
Ereignis verzweigen soll. Wir 
wollen uns zunächst dem 
»MOUSE«-Befehl zuwenden, 
der sich auf die linke Mausta- 
ste bezieht. Falls Sie in Ihrem 
Programm am Anfang den Be- 
fehl »ON MOUSE GOSUB 
Maus« gefolgt von »MOUSE 
ON« setzen, wird jedesmal, 
wenn Sie die linke Maustaste 
betätigen, zur Sprungmarke 
»Maus« verzweigt. Hier müs- 
sen nun diejenigen Befehle 
stehen, die die Verarbeitung 
dieses Ereignisses überneh- 
men sollen. 


s$ = "" ! Zeile zum Schreiben in Datei 


PRINT ” <*> beendet die Eingabe ” 


e$ = ”” ' enthaelt eingelesene Zeile 


Listing 19. Dieses 
Programm zeigt, wie 
Fehler abgefangen 
werden können. 

Es soll den Nutzen 
der Funktionen zur 
Fehlerbehandlung 
in Amiga-Basic 
verdeutlichen. 





Mit Hilfe der Funktion 
MOUSE (n) 


können Sie sich, je nach dem 
Wert von n, über den augen- 
blicklichen Zustand der Maus 
informieren. In folgender Ta- 
belle finden Sie die Ergebnis- 
se, die bei den einzelnen n- 
Werten dieser Funktion gelie- 
fert werden. 


Variable: 
f$ = "##3#" ' Formatstring zur 
dummy = 0 ' Hilfsvariable, nimm 

main: 

LOCATE 1,7 : PRINT 
LOCATE 1,27 : PRINT 
LOCATE 1,47 : PRINT 
LOCATE 2,1 
LOCATE 3,1 
WHILE 1 
dummy = MOUSE(0) 
LOCATE 2,10 : PRINT USING 
LOCATE 3,10 : PRINT USING 
LOCATE 2,30 : 
LOCATE 3,30 : 
LOCATE 2,50 : 
LOCATE 3,50 : 
WEND 


"MOUSE(1/2)” 
"MOUSE(3/4) ” 
"MOUSE(5/6) ” 


: PRINT "x = 
: PRINT 'y = * 


PRINT USING 
PRINT USING 


Listing 20. So ermitteln Sie die 


MOUSE (n) Funktion 


0 _ Atualisierung der 

Koordinaten 

x-Position 

2 y-Position 

3 x-Position beim 
Drücken der Mausta- 
ste 

4 _ y-Position beim 
Drücken der Mausta- 
ste 

5 _ x-Position beim Los- 
lassen der Taste 

6 _ y-Position beim Los- 
lassen der Taste 


Die wichtigste dieser Funk- 
tionen ist »MOUSE(0)«. Damit 
wird für die restlichen sechs 
Funktionen »MOUSE(1)« bis 
»MOUSE(6)« die Position des 
Mauszeigers auf den aktuellen 
Stand gebracht. Dabei erhal- 
ten die ungeradzahligen 
»MOUSE«-Funktionen die x- 
Koordinate und die geradzahli- 
gen »MOUSE«-Funktionen je- 
weils die y-Koordinate des 
Mauszeigers. Doch wodurch 
unterscheidet sich zum Bei- 
spiel die mit »MOUSE(1)« er- 
mittelte x-Position von der mit 
»MOUSE(3)« ermittelten? Am 
besten führen wir dazu ein klei- 
nes Experiment durch. Geben 
Sie Listing 20 ein und starten 
Sie das Programm. Bewegen 
Sie jetzt Ihren Mauszeiger über 
den Bildschirm, ohne dabei ei- 
ne Maustaste zu betätigen. 
Wie Sie sehen, verändern sich 
nur die Werte in der ersten 
Spalte, während alle anderen 
Werte gleich bleiben. Damit 
haben wir auch schon unser 
erstes Ergebnis. Die Funktio- 
nen MOUSE(1) und MOUSE(2) 
zeigen die bei einem MOU- 
SE(0)-Aufruf vorliegende x- be- 
ziehungsweise y-Position des 
Mauszeigers, unabhängig da- 
von, ob Sie eine Maustaste ge- 
drückt haben oder nicht. 

Nun betätigen Sie die linke 
Maustaste und halten sie fest. 
Jetzt nehmen alle drei Spalten 
(beinahe) die gleichen Werte 


PRINT USING - Anweisung 
it MOUSE(0) Wert an 


£$;MOUSE(1) 
f$;MOUSE(2) 
PRINT USING f$;MOUSE(3) 
f$;MOUSE(4) 
f$;MOUSE(5) 
PRINT USING f$;MOUSE(6) 





Mausposition 
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an. Also haben wir herausge- 
funden, daß die Funktionen 
MOUSE(3) bis MOUSE(6) auf 
das Betätigen der Auswahlta- 
ste reagieren. Ziehen Sie nun 
die Maus mit festgehaltener 
Auswahltaste über den Bild- 
schirm. Wie erwartet, ändert 
sich die erste Spalte. Aber 
auch in der dritten Spalte wer- 
den neue Werte angezeigt, 
während die zweite Spalte un- 
verändert bleibt. Wir müssen 
das so interpretieren: Die 
»MOUSE«-Funktionen 3 und 4 
geben die Koordinaten an, bei 
denen die Auswahltaste ge- 
drückt wurde, während die 
»MOUSE«-Funktionen 5 und 6 
die Koordinaten bezeichnen, 
bei denen entweder die Aus- 
wahltaste losgelassen wurde, 
oder aber — falls die Auswahl- 


taste noch gedrückt ist — an 
welcher Position sich die Maus 
augenblicklich befindet. 


Die Maus 
in der Falle 


Damit sind wir soweit, um 
uns an Listing 21 wagen zu 
können. In der ersten Zeile be- 
fehlen wir Amiga-Basic, daß es 
sich bei jeder Betätigung der 
Auswahltaste sofort an die mit 
dem Label »Maus« bezeichne- 
te Stelle begeben soll. Die Ak- 
tivierung dieser Unterbre- 
chungsverarbeitung haben wir 
durch den Befehl 


MOUSE ON 


programmiert. Ebenso wird mit 
dem Timer verfahren, wobei 
das Argument (hier eins) an- 





ON MOUSE GOSUB Maus 
ON TIMER(1) GOSUB Uhr 
Variable: 


100 
ı0 
% 


ypos 
r 
Farbe 
Status? 
Flag% 
Zeit 
1% 
main: 
CIRCLE (xpos,ypos) ‚r,Farbe 


MOUSE(0)-Status 


nononnm 


o 
0° 
1 
0 


TIMER ON 
WHILE Zeit 
SLEEP 
WEND 
END 
Maus: 
Flag% = 0 
Status? = MOUSE(0) 
LOCATE 2,10 
PRINT "Status 1: ";Status% 
FOR i% = 1 10.250 : 
Status% = MOUSE(0) 
LOCATE 3,10 
PRINT "Status 2: ";Status% 
IF Status < O0 THEN 
WHILE Status? < 0 
CIROLE (xpos,ypos),r,O 
xpos = MOUSE(1) 
ypos = MOUSE(2) 


Status% = MOUSE(0) 
LOCATE 3,10 


Flag? = 0 
WEND 
ELSE 
Farbe = Status? 


END IF 

RETURN 

Uhr: 
LOCATE 2,60 : PRINT DATE$ 
LOCATE 3,61 : PRINT TIME$ 





Flag% = Flag% + 1 
IF Flag% = 10 THEN 
LOCATE 10,10 
PRINT" zu: 
Zeit = 0 
END IF 
RETURN 


Zeit abgelaufen 





xpos = 300 ' Setzen des Kreises 


Flag fuer Maus-Betaetigung 
Programm beenden, wenn Zeit = 0 
Schleifenzaehler 


MOUSE ON ' Unterbrechungsverarbeitung ein 


' Basic schlaeft jetzt 


NEXT 1% ' Verzoegerungsschleife 


CIRCLE (xpos,ypos) ‚r,Farbe 


PRINT "Status 2: ";Status% 


Listing 21. Ein einfaches Programm mit Maussteuerung 
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gibt, in welchem Sekundenin- 
tervall dieser Aufruf durchge- 
führt werden soll. Dann soll ein 
Kreis mit dem Radius »r« und 
dem Mittelpunkt (xpos,ypos) 
gezeichnet werden. Falls Sie 
sich über die etwas seltsame 
»WHILE...WEND«-Schleifen- 

konstruktion wundern: Hinter 
dem »WHILE«-Befehl steht 
normalerweise eine logische 
Bedingung wie etwa »x < 100« 
und die »WHILE«-Schleife wird 
so lange ausgeführt, bis diese 
Bedingung unwahr ist. Nun ist 
es aber eine Eigenschaft von 
Basic, allen von Null verschie- 
denen Zahlen den logischen 
Wert »wahr« zuzuordnen, wäh- 
rend die Zahl Null logisch 
»falsch« entspricht. 

Damit ist der Wert eins 
gleichbedeutend mit »wahr« 
und so haben wir eine Endlos- 
schleife konstruiert. Wäre Ihr 
Amiga ein Home-Computer 
ohne die Fähigkeiten des Mul- 
titasking, wäre der im Schlei- 
fenkörper enthaltene Befehl 
»SLEEP« sinnlos, da sich Ba- 
sic im Moment sowieso in einer 
Endlosschleife befindet. Der 
»SLEEP«-Befehl führt jedoch 
dazu, daß Ihr Basic-Programm 
so lange angehalten wird, bis 
ein Unterbrechungsereignis 
eintritt. Gegenüber der norma- 
len Endlosschleife hat dies den 
Vorteil, daß Ihr Programm an- 
deren, gleichzeitig laufenden 
Programmen, mehr Laufzeit 
zur Verfügung stellt. 


Der Amiga 
schläft 


Das Basic-Programm wartet 
in diesem Zustand also nur 
darauf, daß Sie die Maustaste 
bedienen. Welche Funktion 
hat das Programm nun? In der 
ersten Zeile nach dem Label 
»Maus:« wird der augenblickli- 
che Zustand der Maustaste 
überprüft. Das Programm un- 
terscheidet zwei Zustände. Er- 
stens: die Maustaste wurde 
ein-, zwei- oder dreimal kurz 
betätigt. Zweitens: die Mausta- 
ste bleibt längere Zeit ge- 
drückt. Da Ihr Amiga ein sehr 
schneller Computer ist, wer- 
den Sie keine Zeit haben, den 
Finger von der Maus zu neh- 
men: schon wird angezeigt, 
daß die Auswahltaste gegen- 
wärtig gedrückt ist. Um Ihnen 
die Zeit zu geben, den Finger 
von der Maus zu nehmen, war- 
ten wir eine Sekunde. Danach 
wird die Maustaste mit »MOU- 
SE(0)« nochmals abgefragt. 
An dieser Stelle sollten Sienun 
wissen, was die Zahlenwerte, 
die Sie durch diese Funktion 
erhalten, bedeuten. Liefert die 
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Funktion MOUSE(0) als Ergeb- 
nis eine Null, so heißt dies, daß 
die Maus seit dem letzten Auf- 
ruf von MOUSE(0) nicht betä- 
tigt wurde. Mit einer Eins teilt 
uns der Interpreter einen ein- 
maligen Tastendruck mit. Die 
Auswahltaste war jedoch zur 
Zeit des Aufrufs nicht mehr ge- 
drückt. Analog bedeutet eine 
Zwei, daß die Maustaste zwei- 
mal betätigt wurde und im Mo- 
ment nicht aktiv ist. Eine Drei 
gibt an, daß die Taste mehr als 
zweimal betätigt, danach aber 
losgelassen wurde. 

Negative Zahlen informieren 
ebenso über die Anzahl der 
Mausklicks. Allerdings mit 
dem Unterschied, daß die Ta- 
ste auch im Moment des Auf- 
rufs noch niedergehalten wur- 
de. Bewegen Sie die Maus nun 
an irgendeine Stelle des Bild- 
schirms. Halten Sie die Maus- 
taste niedergedrückt. Der 
Kreis verändert seine Position 
und befindet sich nun unter- 
halb des Mauszeigers. Durch 
Verschieben der Maus läßtsich 
der Kreis an eine beliebige 
Stelle des Bildschirms plazie- 
ren. Die Bewegung stoppt mit 
Loslassen der Auswahltaste. 
Durch eine kurze Betätigung 
derselben Taste können Sie die 
Farbe beim nächsten Zeichen- 
vorgang bestimmen. Ein ein- 
maliger Klick bedeutet, daß der 
Kreis in Weiß gezeichnet wird; 
zwei- und dreimalige Klicks 
verändern die Farbe in 
Schwarz beziehungsweise Rot 
(vorausgesetzt, die Farben auf 
der Workbench besitzen die 
Standardeinstellung). Das Pro- 
gramm endet selbsttätig, wenn 
Sie zehn Sekunden die Maus 
nicht betätigt haben. Hierfür 
befindet sich in der Unterbre- 
chungsroutine für den Timer 
ein Zähler, der bei jedem Ein- 
sprung um eins erhöht wird. 
Hat er den Wert zehn erreicht, 
endet das Programm. Jede 
Mausbetätigung muß diesen 
Zähler natürlich wieder auf 
Null setzen. Damit ist das Pro- 
grammende genau zehn Se- 
kunden nach dem letzten Be- 
dienereingriff gewährleistet. 


Das Menü 
zum Dessert 


Die rechte Taste der Maus, 
die sogenannte Menütaste, hat 
eine gänzlich andere Aufgabe. 
Wenn Sie die Menüleiste mit 
dem Mauszeiger anfahren und 
dann die Menütaste drücken, 
erscheint die Menüleiste. Wäh- 
len Sie nun eine dieser Über- 
schriften mit einem Mausklick 
aus, so klappt eine Liste von 
Auswahlpunkten in den Bild- 
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schirm. Genau dieses Verhal- 
ten können Sie auch von Basic 
aus steuern. Als Beispiel steht 
Ihnen Listing 22 zur Verfü- 
gung. Zunächst muß der Inter- 
preter wissen, wie viele Menüs 
Sie anlegen wollen. Die Anzahl 
der Menüs ist auf zehn be- 
schränkt, mehr Überschriften 
passen in der Regel auch nicht 
in die Menüleiste. Eine weitere 
Beschränkung gilt für die An- 
zahl der Unterpunkte. Ein Me- 
nü darf maximal 19 davon ha- 
ben. Die Unterpunkte selbst 
dürfen in Basic keine weiteren 
Untermenüs enthalten. 

Das Programm aus Listing 
22 beschränkt sich auf zwei 
Hauptmenüs. Wir haben sie 
einfach »Menü 1« und »Menü 
2« genannt. Eingerichtet wer- 
den diese Menüs durch den 
»MENU«-Befehl. Mit der ersten 
Nummer im Anschluß an das 
Schlüsselwort machen Sie 
dem Basic-Interpreter be- 
kannt, an welcher Stelle der 
Menüleiste das Menü stehen 
soll. Mit einer Eins an dieser 
Stelle legt der Interpreter die- 
ses an die linke Seite und mit 
einer zehn wird es an der rech- 
ten Seite plaziert. Dazwischen 
liegende Werte bestimmen die 
Position entsprechend zwi- 
schen den beiden Enden der 
Menüleiste. Der zweiten Zahl 
nach dem »MENU«-Befehl 
kann Ihr Amiga entnehmen, an 
welcher Stelle innerhalb des 
Hauptmenüs der angegebene 
Unterpunkt plaziert werden 
soll. Eine Null an dieser Stelle 
besagt, daß es sich bei der an- 
gegebenen Zeichenkette um 
den Menütitel selbst handelt. 
Mit Werten von 1 bis 19 kann 
nun jeder Menüunterpunkt im 
Menü positioniert werden. Der 
Sinn des dritten Wertes wird 
von vielen Programmierern 
noch unterschätzt. Mit ihm läßt 
sich der entsprechende Menü- 
punkt aktivieren oder deakti- 
vieren. Setzen Sie hier eine 
Eins ein, erscheint in Ihrem 
Menü der entsprechende 
Schriftzug in normaler Schrift. 


Ihre Auswahl 
bitte... 


Das Menü ist aktiviert und 
kann durch einen Mausklick 
angewählt werden. Es gibt al- 
lerdings Situationen während 
des Programmablaufs, bei de- 
nen der Programmierer den 
Bediener an der Auswahl eines 
Unterpunktes oder Menüs hin- 
dern möchte. Dies kann er 
durch eine Null als dritten Wert 
erreichen. Das Menü erscheint 
dann in der Ihnen sicher be- 
kannten »Geisterschrift«. Ein 
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derart gekennzeichneter Me- 
nüpunkt wird zwar noch ange- 
zeigt, die Unterbrechungs- 
steuerung reagiert allerdings 
nicht mehr auf seine Auswahl. 
Wird das Hauptmenü selbst so 
gekennzeichnet, dann ist das 
gesamte Menü nicht mehr ver- 
fügbar. Eine weitere Hilfe für 
den Bediener ist die Wahl des 
Wertes zwei an dieser Stelle. 
Der Amiga setzt dann vor den 
Menütext einen Haken. Dabei 
sollten Sie allerdings beach- 
ten, daß dieser Haken Platz be- 
ansprucht. Falls Sie einen Ha- 
ken vor den Menüpunkt setzen 
wollen, sollten Sie daher zwei 
Leerzeichen vor den eigentli- 
chen Text setzen. Sinn ergibt 
diese Hakentechnik bei Menü- 
punkten, die eine Schalter- 


DATA "Menu 1”, ” Punkt 1.1”, 
" Punkt 1.2”, ” Punkt 1.3", 
” Ende”,* 

DATA "Menu 2”, ” Punkt 2.1”, 
” Punkt 2.2”, 
" Punkt 2.3”,* 

DATA # 


main: 
14 =1 
READ mt$ 
WHILE mt$ <> "#" 
MENU 1%,0,1,mt$ 
j%=1 
READ mup$ 
WHILE mup$ <> ”x*” 
MENU 1%,3%,1,mup$ 
Flag(i%,j%) = 1 
3% = j% +1 
READ mup$ 
WEND 
19 =i% +1 
READ mt$ 
WEND 


ON MENU GOSUB Wahl 
ON BREAK GOSUB Ende 
MENU ON 

BREAK ON 
WHILE 1 : SLEEP : WEND ' Ba 
sic schläft 


Ende: 
MENU RESET 
END 


Wahl: 
m% = MENU(O) : p% = MENU(1) 
ON m% GOSUB Menul,Menu2 
RETURN 
Menul: 
ON p% GOSUB Menul1,Menul2, 
Menu13,Ende 
RETURN 
Menu2: 
ON p% GOSUB Menu21,Menu22, 
Menu23 
RETURN 





Menuil: 
Menul2: 
Menul3: 
Menu21: 
Menu22: 
Menu23: 
IF Flag(m%,p%) = 1 THEN 
Flag(m%,p%) = 2 


ELSE 
Flag(n%,p2) = 1 
END IF 
MENU m%,p%, Flag(m5,p%) 
RETURN 








Listing 22. So programmiert 
man eigene Menüs 


funktion haben. In einer Text- 
verarbeitung lassen sich so 
beispielsweise aktivierte 
Schriftattribute (fett, kursiv, un- 
terstrichen, usw.) kennzeich- 
nen. 

Das Programm (Listing 22) 
beginnt mit zwei DATA-Zeilen. 
Diese enthalten die einzelnen 
Menütexte. Am Anfang der Zei- 
le befindet sich der Menütitel, 
es folgen die Unterpunkte. Je- 
des Menü wird mit einem »*« 
abgeschlossen. Das Ende der 
Daten zeigt» #« an. Die folgen- 
de »WHILE«-Schleife aktiviert 
die Menüs. Durch eine Ände- 
rung der DATA-Zeilen (Hinzufü- 


.gen/Löschen von Texten) las- 


sen sich ohne Veränderung 
der Programmanweisungen 
die Menüs einfach umstellen. 
Nach einer Aktivierung der 
Unterbrechungsverarbeitung 
schicken wir den Amiga wie 
gehabt in den »Schlaf«. Mit den 
Anweisungen 


ON BREAK GOSUB Ende 
BREAK ON 


befehlen wir dem Interpreter, 
auf die Marke »Ende:« zu ver- 
zweigen, wenn der Bediener 
das Programm mit den Tasten- 
kombinationen <Amiga .> 
oder <CTRLC> beendet. Da- 
mit ist gewährleistet, daß auch 
in diesen Fällen mit 


MENU RESET 


die Menüs wieder aus der Me- 
nüleiste entfernt werden. Der 
Befehl »ON BREAK...« muß je- 
doch mit Vorsicht gehandhabt 
werden. Sie können damit 
leicht eine Endlosschleife kon- 
struieren, aus der Sie nur 
durch die »beliebte« Tasten- 
kombination <Ctrl Amiga 
Amiga> wieder herauskom- 
men. 

Nach Auswahl eines Menü- 
punktes verzweigt der Interpre- 
ter in die mit »Wahl:« gekenn- 
zeichnete Routine. Dort ermit- 
telt das Programm mit der 
Funktion »MENU(0)« die Num- 
mer des angewählten Menüs 
und durch »MENU(1)« den ent- 
sprechenden Unterpunkt. Die 
Verzweigung auf die zu jedem 
Menüpunkt gehörende Unter- 
brechungsroutine ist mit zwei 
»ON GOSUB«-Anweisungen 
realisiert. In unserem Pro- 
gramm münden aber alle Ver- 
zweigungen wieder in einem 
Programmteil zusammen. Es 
soll uns ja nur die Menüaus- 
wahl demonstrieren. Mit Hilfe 
des Feldes »Flag%« wird dort 
lediglich ein Schalter umgelegt 
und das Menü entsprechend 
mit Haken versehen oder der 
Haken gelöscht. Die bespro- 
chene Thematik bietet sehr viel 
Raum für eigene Experimente. 


Sie werden beim Ausprobieren 
dieser Technik begeistert fest- 
stellen, wie einfach sich Pro- 
gramme damit strukturieren 
lassen. 


Basic ruft 
Assembler 


Kommen wir nun zu einem 
komplizierteren Thema: dem 
Einbinden von Maschinenpro- 
grammen in Basic. Wir halten 
uns dabei im wesentlichen an 
das in Ihrem Basic-Handbuch 
in Kapitel 6.2 angegebene Bei- 
spiel. Das dort abgedruckte 
Programm enthält allerdings 
einen Druckfehler und zwei 
Ungenauigkeiten, die in Li- 
sting 23 behoben sind. Aufga- 
be dieses Programms ist es, in 
einer beliebigen Zeichenkette 
alle Kleinbuchstaben in Groß- 
buchstaben umzuwandeln. Da 
das im Basic-Handbuch ange- 
gebene Assemblerprogramm 
ausreichend kommentiert ist, 
können wir uns hier eine weite- 
re Dokumentation sparen. Wir 
gehen davon aus, daß Ihnen 
ein Assembler zur Verfügung 
steht, um das Programm in 
ausführbaren Maschinencode 
zu übersetzen. Das in Listing 
23 abgedruckte Programm 
wurde mit dem zum Lattice C- 
Compiler 4.0 mitgelieferten 
Makro-Assembler »asm« über- 
setzt und danach mit dem Pro- 
gramm »blink« gelinkt. Einen 
Hexdump des erzeugten, aus- 
führbaren Files sehen Sie in 
Bild 17. Was sofort auffällt, ist 
eine gewisse Diskrepanz in 
der Dateilänge zur Länge des 
eigentlichen Maschinenpro- 
gramms. Während des Assem- 
blierens wurde die Länge des 
Maschinenprogramms mit 56 
Byte angegeben. Das vom Lin- 
ker erzeugte File ist aber 92 By- 
te lang. Die zusätzlichen Byte 
enthalten Informationen für 
Adreßumrechnungen. Da dies 
aber nur notwendig ist, wenn 


CSECT CODE 

movem.1 a0/d0-d1,-(sp) 
move.1 16(sp),dO 
move.1 20(sp),a0 
elr.l di 

bra test 


move.b 0(a0,d0.w),dı 
emp.b #$61,d1 

bit test 

#37a,d1 


emp.b 
bgt test 


and.b #($ff-$20), 


0(a0,d0.w) 


dbf dO,start 
moven.1 (sp)+,a0/d0-di 
rts 

END 





Listing 23. Assemblercode 
zur Stringumwandlung 


AMIGA-SONDERHEFT 1 





: 000003F3 
: 00000000 
: 48E7C080 


00000000 
0000000E 
202F0010 
00000c01 
00080230 
4E750000 


00000001 
000003£9 
206F0014 
00616000 
00DF0000 
000003F2 


: 001C1230 
: 007A6E00 
: 4CDF0103 


Bild 17. Hex-Dump des fertigen 


im Assemblerprogramm abso- 
lute Adressen verwendet wer- 
den — und dies ist in unserem 
Beispiel nicht der Fall — kön- 
nen wir diese Informationen 
überlesen. Die für uns interes- 
sante Stelle wird durch die 
Hex-Zahl $000003E9 gekenn- 
zeichnet. 

Diese Zahl teilt dem Amiga 
mit, daß das nächste Langwort 
(vier Byte) die Länge des Ma- 
schinencodes in Langworten 
enthält und der Maschinenco- 
de selbst im übernächsten 
Langwort beginnt. Damit ist 
unsere Strategie zum Einlesen 
des Maschinencodes klar vor- 
gezeichnet: Das gesamte vom 
Linker erzeugte File wird in ei- 
ne Stringvariable gelesen und 
die Hex-Zahl $000003E9 ge- 
sucht. Dann wird die Länge 
des Maschinencodes be- 
stimmt und dieser in eine neue 
Stringvariable eingelesen. 
Hier muß allerdings ein kleiner 
Trick angewandt werden: Es 
scheint, als ob Strings, die eine 
gerade Anzahl von Byte enthal- 
ten, immer bei einer ungera- 
den Adresse beginnen. Ma- 
schinenprogramme müssen 
dagegen immer bei einer gera- 
den Adresse starten. Daher ist 
es unbedingt notwendig, daß 
der String, der das Maschinen- 
programm enthält, eine unge- 
rade Länge erhält — wir addie- 
ren zur errechneten Stringlän- 
ge eine 1. Das in Listing 24 an- 
gegebene Unterprogramm 
»ReadCode« führt genau diese 
Aktionen aus. Eine Einschrän- 
kung besteht noch für die hier 
angegebene Methode, Ma- 
schinenprogramme einzule- 
sen: Da Strings nicht mehr als 
32 KByte Zeichen enthalten 
können, mußauch das Maschi- 
nenprogramm kürzer als 32 
KByte sein. 

Wir haben das Maschinen- 
programm nun gelesen. Wie 
wird es aber nun zur Ausfüh- 
rung gebracht? Hier hilft uns 
wieder der »CALL«-Befehl. 
Nach »CALL« muß nicht unbe- 
dingt der Name eines Unter- 
programms stehen, sondern 
es kann ebenso eine Variable 
angegeben werden, die die 
Anfangsadresse eines Maschi- 
nenprogramms enthält. Diese 
Anfangsadresse unseres 
Strings, der das Maschinen- 
programmm enthält, erhalten 
wir mit der Funktion »SADD«. 


AMIGA-SONDERHEFT 1 
























00000000 
0000000E 
42816000 
00100C01 
5IC8FFE4 





Programms 


Die vom Unterprogramm benö- 
tigten Parameter sind wie ge- 
wohnt innerhalb der Klammern 
anzuführen. Sie werden auf 
dem Stack abgelegt, von wo 
sie vom Maschinenprogramm 
geholt werden können. Der 
Stack ist eine Art Zwischen- 
speicher, inwelchem Daten ge- 
stapelt abgelegt und nach dem 
sogenannten LIFO-Prinzip ab- 
gearbeitet werden. »LIFO« 
steht für »Last in — first out« 
und bedeutet, daß beim Able- 
gen von neuen Daten auf den 
Stapel, die am Fuße des Sta- 
pels liegenden Daten abgear- 
beitet werden. Bei der Überga- 
be der Parameter an das Unter- 
programm gibt es eine Ein- 
schränkung zu beachten: Es 
können nur kurze und lange 
Ganzzahlen übergeben wer- 
den. 

Von den anderen Variablen- 
typen (Arrays, Strings ...) müs- 
sen Sie die Adresse überge- 
ben. Diese läßt sich einfach mit 
»VARPTR« oder »SADD« ermit- 
teln. 

Wenn Sie beim Aufruf von 
Maschinenprogrammen von 


Basic aus Systemabstürze ver- 
meiden wollen, müssen Sie 
unbedingt eine Eigenart von 






ReadCode "Code”,MeProg$ 
PRINT "Geben Sie einen String 
ein: ” 

INPUT st$ 

UPPER st$ 

PRINT st$ 

END 

SUB UPPER(argument$) STATIC 
SHARED MeProg$ 
adr& = SADD(argument$) 
laeng& = LEN(argument$) 
entry& = SADD(MeProg$) 
CALL entry&(laeng&,adrk) 

END SUB 

SUB ReadCode(filename$, 

AsmCode$) STATIC 

OPEN filename$ FOR INPUT 
AS #1 
file$ = INPUT$(LOF(1), #1) 
CLOSE #1 
HunkCode& = 
d = 
code& = 


&H3E9 
1 


CVL(MID$(file$, 

1,4 

WHILE (code&<> HunkCodeg) 

1 =41 +4 : REM Nächst 
es Langwort 

eodek = CVL(MID$(file$,i, 





WEND 
CodeLength& = 4XCVL(MID$ 
(file$,i+4,4))+1 
AsmCode$ = MID$(file$,i+8, 
CodeLength&) 
END SUB 


Listing 24. Beispiel für das 
Einbinden assemblierter 
Maschinenprogramme 


Basic berücksichtigen: Sobald 
Sie im laufenden Programm ei- 
ne neue Variable benutzen, 
werden sich die Anfangsadres- 
sen aller Strings ändern. Sie 
sollten daher die Startadresse 
Ihres Maschinenprogramms 
erst unmittelbar vor dem Unter- 
programmaufruf ermitteln. Li- 
sting 24 gibt Ihnen auch hierzu 
ein Beispiel. 


Es geht auch 
ohne Assembler 


Vielleicht haben Sie keinen 
Assembler und ärgern sich 
jetzt, weil wir Ihnen etwas 
schmackhaft gemacht haben, 
das Sie nicht realisieren kön- 
nen. Keine Angst — zur Not 
und mit etwas Handarbeit geht 
es auch ohne Assembler. Die 
Lösung finden Sie in Listing 25. 
Kurz zur Funktionsweise die- 
ses Programms: Jedem in Li- 
sting 23 angegebenen Assem- 
blerbefehl entspricht (minde- 
stens) eine kurze Ganzzahl. 
Die unserem Maschinenpro- 
gramm entsprechenden Zah- 
len sehen Sie im Assemblerli- 
sting in Ihrem Basic-Handbuch 
am linken Rand. Diese Zahlen 
kann man in »DATA«-Zeilen 
schreiben und diese dann mit 
Hilfe des »READ«-Befehles le- 
sen. In diesem Fall muß man 
allerdings für die Dimensionie- 
rung im voraus wissen, wie 
lang das Maschinenprogramm 
ist. Kennt das Basic-Programm 
erst einmal die Anzahl der Ma- 
schinenbefehle, so kann ein 
entsprechendes Ganzzahlfeld 
dimensioniert werden. In die- 
ses Feld wird nun das Maschi- 
nenprogramm eingelesen. Die 
Anfangsadresse erhält man 
durch die Anwendung der 
»VARPTR«-Funktion auf das 
erste Feldelement. 


Bibliotheken 
sparen Zeit 


Die Organisation des Be- 
triebssystems in Libraries (Bi- 
bliotheken) sichert einen einfa- 
chen Zugriff auf die Routinen 
der Systemsoftware. Die 
Software-Entwickler des Ami- 
gahaben aber nicht nur für das 
Betriebssystem, sondern auch 
für  Programmsammlungen, 
die man nicht direkt dem Be- 
triebssystem zuordnen kann, 
diese Organisationsform ge- 
wählt. Ein Beispiel dafür ist ei- 
ne Library zur Berechnung der 
auch als »transzendente« 
Funktionen bezeichneten Win- 
kelfunktionen (Sinus, Kosinus, 
Tangens, und andere). Leider 
können Sie die Library- 
Funktionen nicht direkt an- 
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DEFINT a-2 : 





REM Alle Variablen 

Integer 

READ CodeLength 

DIM MeProg(CodeLength) 

FOR i = 0 TO Codelength - 1 
READ MeProg(i) 

NEXT i 

PRINT ”Geben Sie einen String 

ein: * 

INPUT st$ 

UPPER st$ 

PRINT st$ 

END 


SUB UPPER(argument$) STATIC 
SHARED MeProg() 
adr& = SADD(argument$) 
laeng& = LEN(argument$) 
entry& = VARPTR(MeProg(0)) 
CALL entry&(laeng&,adr&) 
END SUB 


DATA 27 
DATA &n48e7, &hc080 

DATA &h202f,&h0010 

DATA &h206f ,&h0014 

DATA &h4281 

DATA &h6000, &h001c 

DATA &n1230, &h0000 

DATA &h0c01,&h0061 

DATA &h6d00, &h0010 

DATA &h0c01,&h007a 

DATA &h6e00, &h0008 

DATA &h0230, &h00df, &h0000 
DATA &h51c8,&hffe4 

DATA &ndcaf, &h0103 

DATA &h4e75 








Listing 25. Einbinden von 
Maschinencode in Basic- 
Programme 


sprechen, da sich die Parame- 
terübergabe des Amiga-Basic 
von der der Libraries unter- 
scheidet. Deshalb rnüssen vor- 
her noch einige Vorbereitun- 
gen getroffen werden. Um die 
Library »mathtrans.library« be- 
nutzen zu können, müssen Sie 
dem Interpreter erst mitteilen, 
welche Funktionen in dieser Li- 
brary vorhanden sind und in 
welchem Prozessorregister die 
Parameter übergeben werden 
sollen. Auf Ihrer Extras- 
Diskette finden Sie eine 
Schublade mit dem Namen 
»FD1.2« (sofern Ihr Amiga un- 
ter Kickstart 1.2 läuft). Um sich 
die in dieser Schublade enthal- 
tenen Files betrachten zu kön- 
nen, müssen Sie allerdings 
den CLI-Editor »ed« verwen- 
den. Das für uns interessante 
File heißt »mathtrans_lib.fd« 
(siehe Bild 18). In diesem File 
wird genau beschrieben, wel- 
che Funktionen in der Biblio- 
thek vorhanden sind und in 
welchen Registern die Para- 
meter übergeben werden müs- 
sen. Amiga-Basic kann mit der 
Form der Daten in dieser Datei 
allerdings nichts anfangen. 
Deshalb befindet sich in der 
Schublade »BasicDemos« das 
Programm »ConvertFD«, wel- 
ches die Daten der FD-Datei in 


“ein für Basic verständliches 


Format umwandelt. Die vom 
Programm generierte Datei 
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Kurse 


##base _MathTransBase 
##bias 30 

##public 

SPAtan (float) (DO) 
SPpSin(float) (DO) 
SPCos (float) (DO) 
SPTan(float) (DO) 


SPSincos (leftFloat,rightFloat) (D1,DO) 


SPSinh (float) (DO) 
SPCosh (float) (DO) 
$PTanh (float) (DO) 
SPExp (float) (DO) 
SPLog (float) (DO) 


SPPow(leftFloat,rightFloat) (D1,DO) 


SPSqrt (float) (DO) 
SPTieee (float) (DO) 
SPFieee (integer) (DO) 


Kan 


SPAsin(float) (DO) 
SPAcos (float) (DO) 
SPLog10 (float) (DO) 
#ittend 








Bild 18. Die FD-Dateien enthalten die Funktionsnamen und 
Parameterinformationen einer Bibliothek 


heißt »mathtrans.bmap«. Wie 
sieht nun das Format eines sol- 
chen ».bmap«-Files aus? Dazu 
sollten wir uns erst einmal 
überlegen, welche Informatio- 
nen der Basic-Interpreter ei- 
gentlich benötigt, um die jewei- 
lige Funktion aufrufen zu kön- 
nen. Dies wäre zunächst ein- 
mal der Name der Funktion 
selbst. Außerdem muß die 
Sprungadresse, also die Stel- 
le, an der sich die Routine in- 
nerhalb der Library befindet, 
bekannt sein. 

Schließlich muß der Interpre- 
ter noch wissen, welche Para- 
meter die Funktion benötigt 
und in welches der Prozessor- 
register diese übergeben wer- 
den. Genau diese Informatio- 
nen stehen in der ».bmap«- 
Datei. 

Für jede Funktion — und ei- 
ne Funktion ist ja nichts ande- 
res als ein Unterprogramm — 
steht dort der von einem Null- 
Byte abgeschlossene Funk- 
tionsname als ASCII-Code, ge- 
folgt von der Position dieser 
Funktion in der Library. Dabei 
wird die Position relativ zum 
Anfang der Library als 16-Bit- 
Offset ausgedrückt. (Ein Offset 
ist ein Wert, der zu einer Basis- 
adresse — in diesem Fall dieje- 
nige der Library — addiert wer- 
den muß.) Danach folgt für je- 
des Register, in dem ein Wert 
übergeben wird, ein Byte. Die- 
ses Byte enthält eine Zahl, die 
angibt, welches Register be- 
troffen ist. Dabei stehen die 
Zahlen 1 bis 8 für die Register 
DO bis D7, die Zahlen 9 bis 13 
für AO bis A4. Nach der letzten 
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Registerangabe folgt ein Null- 
Byte, um Ihrem Amiga mitzu- 
teilen, daß die Beschreibung 
dieses Funktionsaufrufes 
beendet ist. 

Für Funktionen, die sich an 
die Konventionen der Parame- 
terübergabe der Sprache C 
halten, ist die Registerparame- 
terliste leer, da die Parameter 
dann auf dem Stack überge- 
ben werden. 


Das FFP-Format 


Bei einem Aufruf einer 
Library-Funktion müssen Sie 
genau unterscheiden, ob diese 
Funktion ein Resultat zurück- 
gibt oder nicht. Falls keiner Ih- 
rer Funktionsaufrufe einen 
Wert an Ihr Basic-Programm 
zurückgibt, genügt es, die Li- 
brary mit dem Befehl LIBRARY 
<Library-Name> dem Basic- 
Interpreter bekannt zu ma- 
chen. In unserem Beispiel (Li- 
sting 26) ist dies nicht der Fall 
und wir müssen Basic mittei- 
len, welchen Variablentyp die 
Funktionen zurückliefern. Eine 
FFP-Variable ist nun gerade so 
lang, wie eine lange Ganzzahl. 
Deshalb haben wir alle Funk- 
tionen mit Hilfe von 


DECLARE FUNCTION < Funk 
tionsname&> LIBRARY 


als solche definiert. Die in 
Klammern angegebenen 
Funktionsargumente müssen 
Sie nicht angeben, sie bieten 
aber eine wertvolle Gedächt- 
nisstütze. Nach der Erzeugung 
der ».bmap-Dateien« treffen 
wir hier auf unser zweites Pro- 


blem: Wie bringen wir unsere 
normalen Gleitpunktzahlen in 
das FFP-Format? Die Zuwei- 
sung »ffp& = Gleitzahl« löst 
unser Problem sicher nicht, da 
bei einer derartigen Zuwei- 
sung der Nachkommaanteil 
einfach abgeschnitten wird. 
Das liegt aber nicht in unserem 
Sinne. Auch die einfache Be- 
nutzung einer normalen Gleit- 
punktzahl ist nicht der richtige 
Weg, da sich das FFP-Format 
leider von dem, bei den norma- 
len Gleitpunktzahlen verwen- 
deten, IEEE-Format unter- 
scheidet. Wir kommen aber 
zum Ziel, wenn wir einen klei- 
nen Umweg über Strings in 
Kauf nehmen. Mit Hilfe der 
Funktion »MKS$(< Gleitpunkt- 
zahl >)« wird ein vier Byte lan- 
ger String produziert, aus 
dem mit der Funktion »CVL 
(<String>)« wieder eine lan- 
ge Ganzzahl gewonnen wer- 
den kann. Nun können Sie die- 
se Ganzzahl an die Funktion 
»SPFieee« übergeben, die dar- 
aus eine FFP-Zahl macht. Da 
dies während solcher Pro- 
blemstellungen öfter vorkom- 
men kann, haben wir für Sie 
die Funktion »FNftoffp&« defi- 
niert, die eine Gleitzahl in das 
FFP-Format überführt. Die da- 
nach definierte Funktion 
»FNffptof« leistet genau das 
Umgekehrte: Sie wandelt eine 
FFP-Zahl in eine Gleitpunkt- 
zahl um. 


DECLARE FUNOTION SPAsin& (fFp&) 
DECLARE FUNCTION SPAcosk (ffp&) 
DECLARE FUNCTION SPAtank& (ffp&) 
DECLARE FUNCTION SPSin& (ffp&) 
DECLARE FUNCTION SPCos& (ffp&) 
DECLARE FUNCTION SPtan& (ffp&) 
DECLARE FUNOTION SPSinh& (ffp&) 
DECLARE FUNCTION SPCosh& (ffpk) 
DECLARE FUNCTION SPTanh& (ffp&) 
DECLARE FUNCTION SPExp& (ffpk) 
DECLARE FUNCTION SPLog& (ffp&) 
DECLARE FUNCTION SPLog10&(ffp&) 
DECLARE FUNCTION SPSgrt& (ffp&) LIBRARY 
DECLARE FUNCTION SPTieeek(ffp&) LIBRARY 
DECLARE FUNCTION SPFieee&(long&) LIBRAR 


LIBRARY 
LIBRARY 
LIBRARY 
LIBRARY 
LIBRARY 
LIBRARY 
LIBRARY 
LIBRARY 
LIBRARY 
LIBRARY 
LIBRARY 
LIBRARY 


LIBRARY “nathtrans. library” 
DEF FNftoffp&(float) = SPFieeeg(CVL(NKS 
DEF FNffptof(ffpk) = CVS(HKL$(SPTieee 


ieee 
ffpk 
ffpAsink 
ffphoosk 
ffpAtank 
ffpSin& 
ffpCosk 
fepTank 
ffpSinh& 
ffpCosh& 
ffpTanh& 
PEpEXpk 
ffpLogk 
£pLog10& 
fepSgrtk 


Nftoffp&(ieee) 
: PRINT "ar 
: PRINT "ar 
: PRINT "arı 
» PRINT ” 
: PRINT * 
x PRINT ” 
: PRINT ” 
: PRINT ” 
: PRINT ” 
: PRINT 
: PRINT 
: PRINT 
: PRINT 





= SPSgrt&(ffp&) a 


LIBRARY CLOSE 
END 


10g10(”;ieee; ”) 


In unserem Beispiel wird 
nun der IEEE-Ganzzahl »ieee« 
der Wert 0.5 zugewiesen, die- 
ser Wert dann in das FFP- 
Format konvertiert und danach 
eine Reihe von transzenden- 
ten Funktionen aufgerufen. Mit 
dem Befehl 


LIBRARY CLOSE 


lassen sich die geöffneten Li- 
braries wieder schließen. Mit 
dieser sicher nicht einfachen 
Thematik beschließen wir un- 
seren Basic-Kurs. Wenn Sie 
diesen aufmerksam durchge- 
arbeitet haben, besitzen Sie 
jetzt nicht nur eine Menge neu- 
es Wissen, sondern auch eine 
Vielzahl von Anregungen für 
eigene Experimente. 

Setzen Sie Ihre Ideen in die 
Tat um. Bauen Sie das vorhan- 
dene Wissen durch »Learning 
by Doing« aus. Behalten Sie je- 
doch Ihre Kunstwerke nicht für 
sich, sondern senden Sie uns 
diese für eine Veröffentlichung 
zu, damit auch andere von Ih- 
ren Ideen profitieren können. 
Wir freuen uns über jedes ein- 
gesandte Listing. Abgedruckte 
Listings werden natürlich ent- 
sprechend honoriert. Vielleicht 
steht dann eines Tages Ihr Na- 
me unter dem Programm des 
Monats im AMIGA-Magazin. 

(Jürgen Singer/Martin 
Jobst/rs) 


x 


$(float))) 
&(ffpR))) 


csin(";ieee; ") 
ccos(”";ieee;”) 
'ctan(";ieee; ”) 
sin(”;ieee;”) 
cos(";ieee;”) 
tan(";ieee; ”) 
sinh(”;ieee;”) 
cosh(";ieee; ”) 
tanh( ”;ieee; ”) 
exp(";ieee; ”) 
log(”;ieee; ”) 


; FN£fptof(ffpAsin&) 
; FNffptof(ffpAcos&) 
; FNf£ptof(ffpAtane) 
; FN££ptof(fFpSind) 
; FNf£ptof(ffpCosk) 
; FNf£ptof(ffpTank) 
; FN£EptoF(FFpSinhe) 
; FNffptof(ffpCosh&) 
FNffptof(ffpTanh&) 
FNfFptof(ffpExp&) 
; FN££ptOF(ffpLog&) 
; FNffptof(ffpLog10&) 
; FNffptof(ffpSgrt&) 





Sart(";leee;”) 








Listing 26. Einbinden der transzendenten FFP-Funktionen 
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WIEVIELE NEIN AKZEPTIEREN SIE? 


JA NEIN 
Deutsche Anleitung? & Oo 
Deutscher Zeichensatz? RO 


Freies Plazieren von farbiger 
Grafik und Text? & oO 


Für Nadel-, Laser- und 
Tintenstrahldrucker? Ro 

no 
zo 


Für Postscriptdrucker auch? 


Workbench 1.3 Treiber? 


Ladbare Zeichensätze? X OÖ 
Kopierschutz? O X 
IFF-Grafiken einbinden? X Cs 


Beliebig lange Texte 
verarbeiten? 


oO 
Bo 


Großzügige Update-Regelung? 
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viel mehr anfangen 
läßt, als dies mit 
Baier 
möglich ist: 
das CLI. 


er Amiga bietet dem 

Benutzer mit der Work- 

bench eine komforta- 
ble Benutzeroberfläche. Pro- 
gramme können durch »an- 
klicken« mit der Maus gestartet 
werden. Auch lassen sich ein- 
fache Operationen wie bei- 
spielsweise Löschen oder Um- 
benennen von Files leicht 
durchführen. Über die Work- 
bench-Ebene können jedoch 
keine tiefergreifenden Manipu- 
lationen auf der Diskette vorge- 
nommen werden. So läßt sich 
über die Workbench beispiels- 
weise nicht feststellen, wie vie- 
le Dateien tatsächlich in wel- 
chen Schubladen (Subdirecto- 
ries) auf der Diskette vorhan- 
den sind. Oder wie wollen Sie 
ein Programm starten, das 
zwar auf der Diskette vorhan- 
den ist, aber über kein Icon 
(Bildsymbol) verfügt? Doch es 
geht auch anders: Mit dem CLI 
(Command-Line-Interface, zu 
deutsch etwa: Kommando-Zei- 
len-Übergeber). 

Doch was ist das CLI, wo ist 
es zu finden? Im Amiga-Hand- 
buch stehen nicht viele Infor- 
mationen zu diesem Programm, 
das sich (manchmal unsicht- 
bar) auf jeder Workbench- 
Diskette befindet. Bevor wir 
aber das CLI erklären, machen 
wir das Command-Line Interfa- 
ce für den Anwender sichtbar! 

Dazu fertigen Sie bitte zuerst 
eine Arbeitskopie der Work- 
bench-Diskette an und legen 
dann diese Kopie in das interne 
Laufwerk. Starten Sie den Ami- 
ga erneut und rufen dann das 
Programm »Preferences« auf. 
Im linken unteren Viertel des 
Preferences-Menüs sehen Sie 
ein kleines Feld, in dem »CLI 
ON/OFF« steht. Bei einer nicht 
modifizierten Workbench steht 
das Feld (der »Schalter«) auf 
»CLIOFF«. Klicken Sienun das 
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Wort »ON« an, speichern die 
Anderung mit SAVE wieder auf 
Diskette und aktivieren den 
Schreibschutz. Der Amiga ist 
anschließend neu zu starten. 
Klicken Sie das Symbol der 
Workbench-Diskette an und, 
nachdem das erste Fenster 
sichtbar ist, die Schublade mit 
dem Namen »System«. Durch 
die Anderung der Preferences 
findet sich nun ein neues Sym- 
bol in diesem Ordner, das den 
Namen »OLI« trägt. Bevor wir 
uns jetzt näher mit dem CLI be- 
fassen, soll zuvor geklärt wer- 
den, was dieses Programm ei- 
gentlich macht und wie es ein- 
zusetzen ist. 


Neue Wege mit 
dem CLI 


Von der Workbench aus 
kann der Benutzer nur mit Da- 
teien umgehen, die über ein 
Icon verfügen. Andere Dateien 
können von der Workbench 
aus nicht beeinflußt oder auf- 
gerufen werden. Hier greift das 
CLI ein: Es ermöglicht die di- 
rekte Beeinflussung aller auf 
einer Diskette vorhandenen 
Dateien. (Für alle Leser, die 
schon einmal mit Personal 
Computern gearbeitet haben: 
Das CLI ist in etwa vergleich- 
bar mit COMMAND.COM unter 
MS-DOS.) 

Die Befehle werden nicht 
(wie bei der Workbench) durch 
Anklicken eines Icons ausge- 
führt, sondern durch Komman- 
dos, die der Anwender über die 
Tastatur eingibt. Versuchen wir 
doch gleich, anhand von prak- 
tischen Beispielen den Um- 
gang und die Möglichkeiten, 
die uns das CLI in die Hand 
gibt, kennenzulernen. Rufen 
Sie dazu das Programm durch 
zweimaliges Anklicken des 





CLI-Icons in der Schublade 
»System« auf. Nach kurzer La- 
dezeit erscheint auf dem Bild- 
schirm ein neues Fenster. Dies 
ist das Arbeitsfenster des CLI. 
Hier erfolgen alle Ein- und 
Ausgaben, die das Command- 
Line-Interface betreffen. Es 


CL 


empfiehlt sich, das Fenster zu 
vergrößern, so daß es fast den 
ganzen Bildschirm ausfüllt. 
Anhand eines einfachen Be- 
fehls soll Ihnen nun der Unter- 
schied zur Workbench erklärt 
werden. Lassen Sie dazu die 
Kopie der Workbench-Diskette 
im internen Laufwerk eingelegt 
und geben Sie das Kommando 
»DIR« ein, das mit der RE- 
TURN-Taste abzuschließen ist. 
Nach kurzer Zeit erscheinen 
viele einzelne Namen in zwei 
Spalten auf dem Bildschirm. 
Dieser erste Befehl, den wir 
kennenlernen, hat die Aufga- 
be, das Directory (Inhaltsver- 
zeichnis) der eingelegten Dis- 
kette anzuzeigen. Sie werden 
feststellen, daß nach Eingabe 
des DIR-Befehls plötzlich viel 
mehr Dateinamen auf dem 
Bildschirm erscheinen, als 
dies im Symbolfenster auf der 
Workbench der Fall wäre. Dort 


‚sehen Sie nur Dateien, die 


über ein Icon verfügen. Im CLI- 
Fenster wären das die Pro- 
gramme, die die Endung ».in- 
fo« aufweisen (auf der Work- 
bench-Diskette beispielsweise 
die Files »Preferences.info« 





oder »System.info«). Zu jedem 
dieser Icon-Files gehört auch 
das eigentliche Programm, 
welches durch das Icon aufge- 
rufen wird (bei unserem Bei- 
spiel »Preferences« oder »Sy- 
stem«). 

Falls Sie über weitere Disket- 
tenlaufwerke verfügen, kön- 
nen Sie sich über einen Zu- 
satzparameter auch die Direc- 
tories dieser Floppy-Stationen 
anzeigen lassen. Dazu ist hin- 
ter dem DIR-Befehl der Name 
des entsprechenden Lauf- 
werks anzugeben. (Die vier 
möglichen Diskettenlaufwerke 
tragen die Bezeichnungen 
»df0« bis »df3«, die beiden an- 
schließbaren Festplatten »dh0« 
und »dh1«.) Dabei ist nur zu be- 
achten, daß der Laufwerksna- 
me durch ein Leerzeichen vom 
Befehl getrennt ist und daß am 
Ende ein Doppelpunkt steht. 
Das Directory des ersten exter- 
nen Laufwerks würden Sie also 
mit folgendem Befehl erhalten: 


DIR df1: 


Wenn kein externes Lauf- 
werk angeschlossen ist, erfolgt 


- Die 
aut c 


eine entsprechende Fehler- 
meldung. 

Da es manchmal vorkom- 
men kann, daß mehr Dateina- 
men im Directory stehen, als 
auf dem Bildschirm angezeigt 
werden können, läßt sich die 
Ausgabe mit der Leertaste an- 
halten. Durch Druck auf <RE- 
TURN> oder die Backspace- 
Taste wird die Ausgabe fortge- 
setzt. 


Zusätze zum 
DIR-Befehl 


Das Directory einer Diskette 
besteht im allgemeinen aber 
nicht nur aus Dateinamen, 
sondern auch noch aus Subdi- 
rectories  (Unterverzeichnis- 
sen). Ein Subdirectory kann 
man sich als Directory im Di- 
rectory vorstellen. Im Haupt- 
verzeichnis, in dem Sie sich 
gerade befinden, sehen Sie 
beispielsweise die Namen »c«, 
»S«, »devs« oder »Trashcan«. 
Hinter diesen Namen verber- 
gen sich Subdirectories, was 
durch die angeschlossene 
Kennung »(dir)« ersichtlich ist. 
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Um den Inhalt eines Subdi- 
rectories anzusehen, ist ein 
weiterer Zusatzparameter 
beim Dir-Befehl nötig, nämlich 
der Name des Unterverzeich- 
nisses. Möchten Sie sich etwa 
den Inhalt des Subdirectories 
»c« ansehen, ist folgendes ein- 
zugeben: 

DIR dfO:c 


Die Angabe des Laufwerk- 
namens ist, dasowieso gerade 
diese Floppy-Station ange- 
wählt ist, nicht unbedingt nötig. 
Es ist aber empfehlenswert, 
immer das Laufwerk mitanzu- 
geben, da man bei mehreren 
angeschlossenen Laufwerken 
leicht den Überblick verlieren 
kann. 

Der DIR-Befehl bietet aber 
noch mehr Möglichkeiten, als 
nur das komplette Directory 
anzuzeigen. Dazu existiert der 
Zusatz »opt«, der in Zusam- 
menhang mit ihm folgenden 
Buchstaben den DIR-Befehl 
verändert. Durch Angabe des 
Buchstabens »a« hinter dem 
Zusatz »opt« zeigt der Amiga 
sämtliche Dateien auf der Dis- 


die Eingabe von »e« in dieses 
gewechselt werden. <RE- 
TURN> überspringt den Da- 
teinamen. Wurde jedoch in das 
Subdirectory gewechselt und 
man möchte wieder in das 
Hauptdirectory zurück, ist »b« 
einzugeben. Das CLI wechselt 
auf die nächsthöhere Ebene 
zurück und macht dort weiter, 
wo der Einsprung in das Unter- 
verzeichnis stattfand. »b« hin- 
ter einem Filenamen im Haupt- 
directory beendet die Aus- 
gabe. 

Falls hinter dem Fragezei- 
chen die Zeichenkette »del« 
(»delete« = löschen) einge- 
tippt wird, löscht dieser Befehl 
die betreffende Datei. Auch 
Dateiverzeichnisse lassen sich 
auf diese Weise entfernen. Da- 
bei ist nur zu beachten, daß zu- 
erst aus dem betreffenden 
Subdirectory sämtliche Datei- 
en entfernt sein müssen. 


Der Buchstabe »t« hinter 
»opt« schließlich erlaubt die 
Ausgabe des Inhalts der betref- 
fenden Datei. Dies hat aller- 
dings nur Sinn, wenn es sich 


zweite 
es Amiga 


kette an, einschließlich der Na- 
men in allen Unterverzeichnis- 
sen. Geben Sie dazu als Bei- 
spiel folgendes ein: 


DIR dfO: opt a 


Es werden sämtliche auf der 
Diskette enthaltene Dateina- 
men angezeigt. Beachten Sie 
bitte auch bei diesem Befehl 
die Schreibweise: Die einzel- 
nen Leerzeichen dürfen nicht 
vergessen werden! 

Gibt man anstelle des Buch- 
stabens »a« ein »d« ein, erfolgt 
die Ausgabe aller Dateiver- 
zeichnisse, also aller Namen, 
hinter denen die Kennung 
»(dir)« steht. 

Ein besonderer Befehl ist 
der folgende: 


DIR dfO: opt i 


Tippt man diese Zeichenfol- 
ge ein, gibt der Amiga jeweils 
nur einen Dateinamen aus, auf 
den ein Fragezeichen folgt. Bei 
Druck auf die RETURN-Taste 
übergeht das CLI die entspre- 
chende Datei und gibt den Na- 
men der folgenden Datei aus. 
Stellt der angezeigte Name ein 
Subdirectory dar, kann durch 
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dabei um eine Textdatei han- 
delt. Ein Beispiel: 

Sie möchten den Inhalt einer 
bestimmten Datei im Klartext 
auf dem Bildschirm ausgeben. 


Nehmen wir dazu die Datei 
»Startup-Sequence«, die sich 
im Subdirectory »s« der Work- 
bench-Diskette befindet. Diese 
Datei ist das erste File, das 
nach dem Einlegen der Work- 
benchdiskette geladen und ge- 
startet wird (die Datei ist ver- 
gleichbar mit einer Autostart- 
Datei (AUTOEXEC.BAT) unter 
MS-DOS). In dieser Datei ste- 
hen alle Befehle und Parame- 
ter, die der Amiga abarbeitet, 
bis nach einiger Wartezeit end- 
lich die Workbench erscheint. 
Diese Startdatei besteht aus 
ASCII-Zeichen, ist also eine 
Textdatei. 

Vergewissern Sie sich, daß 
Ihre Workbench-Kopie einge- 
legt ist und geben Sie folgen- 
des ein: 

DIR dfO: opt i 

Drücken Sie nun so lange 
<RETURN> ‚bis »s (dir) ?«er- 
scheint. Mit der Eingabe von 
»e« gelangen Sie nun in dieses 


Unterverzeichnis. Auf dem 
Bildschirm sollte jetzt »startup- 
sequence ?« sichtbar sein. 
Drücken Sie »t« und schließen 
die Eingabe mit <RETURN> 
ab. Blitzschnell erscheinen vie- 
le Zeilen, die wie ein Pro- 
gramm aussehen. Wenn Sie 
sich die einzelnen Zeilen anse- 
hen, erkennen Sie einige Be- 
fehle (beispielsweise »ECHO«, 
»SETMAP« oder »LOADWB«), 
die Sie ebenfalls vom CLI aus 
benutzen können. Auf diese 
Befehle soll aber erst später 
eingegangen werden. 


Viele 
Möglichkeiten 


Die Eingabe von »q« be- 
endet jederzeit die Ausfüh- 
rung des Befehls »DIR opt«. 
Durch die Tastenkombination 
<CTRL C> läßt sich ebenfalls 
ein Abbruch erzwingen. 

Sie haben jetzt einen wichti- 
gen Befehl kennengelernt, mit 
dem sich schon eine Menge 
anfangen läßt. Der DIR-Befehl 
zeigt uns aber nicht alles an. 
Es gibt noch weitere Informa- 
tionen zu Dateien, die ein an- 
derer Befehl viel detaillier- 
ter aufführt: Das Kommando 
»LIST«. 

Der DIR-Befehl zeigte uns 
zwar alle Dateien auf der Dis- 
kette an, konnte uns jedoch 
keine Auskunft über deren 
Länge (Anzahl der Bytes) oder 
das Datum des letzten Upda- 
tes (der letzten Speicherung) 
geben. (Der Amiga speichert 
zu jeder Datei auch die aktuel- 
le Uhrzeit und das Datum. So 
läßt sich erkennen, wann die 
Datei das letztemal geändert 
wurde.) Um an diese »versteck- 
ten« Informationen zu gelan- 
gen, setzt man den Befehl 
»LIST« ein. 


Versteckte Infor- 
mationen 


Geben Sie versuchsweise 
»LIST« gefolgt von <RE- 
TURN> ein. Zu jeder Datei 
des aktuellen Directories gibt 
das CLI jetzt zusätzliche Infor- 
mationen aus. Zuerst erfährt 
man, wie viele Bytes in einer 
Datei gespeichert sind. Findet 
sich hier keine Angabe von 
Zahlen, sondern die Zeichen- 
folge »DIR«, ist dies der Name 
eines Dateiverzeichnisses. Die 
folgenden Buchstaben »rwed« 
geben an, welche Operationen 
mit dieser Datei durchführbar 
sind. Dabei gilt: 

»r« — die Datei kann gelesen 
werden 

»w« — das File läßt sich über- 
schreiben 


Kurse 


»e« — die Datei kann als Kom- 
mando aufgerufen werden 
»d« — die Daten lassen sich lö- 
schen 

Im Regelfall sind alle vier 
Schalter auf »an«, das bedeu- 
tet, alle vier Kennbuchstaben 
sind sichtbar. 

Die letzten beiden Zeichen- 
blöcke geben Auskunft dar- 
über, wann die Datei zum letz- 
tenmal gespeichert wurde (Da- 
tum und Uhrzeit). Allerdings 
sollten die letzten Angaben 
nicht zu genau genommen 
werden, dafür eine genaue An- 
gabe eine im Amiga eingebau- 
te Echtzeituhr erforderlich ist, 
die batteriegepuffert arbeitet. 
Da dies aber nicht zur serien- 
mäßigen Ausstattung des Ami- 
ga gehört, müssen diese Da- 
ten nicht unbedingt mit den 
Zeiten übereinstimmen, wäh- 
rend denen die Datei gespei- 
chert wurde. 

Der LIST-Befehl erlaubt wie 
der DIR-Befehl die Angabe zu- 





KURSÜBERSICHT 


Der CLI-Kurs erläutert Ih- 
nen in mehreren Folgen den 
Umgang mit der Amiga-Be- 
nutzerschnittstelle CLI(Com- 
mand-Line-Interface) der 
Workbench 1.2 bis Version 
33.60. Am Ende haben Sie al- 
le wichtigen Befehle kennen- 
gelernt und können die Kom- 
mandos einsetzen. Die Kurs- 
übersicht zeigt Ihnen, ab wel- 
chen Seiten welche CLI-Kom- 
mandos erklärt werden: 


Seite 115 behandelt Befehle 
zum Anzeigen des Directories 
und Stellen der Uhr (dir, list, cd, 
date, endcli) 


Seite 117 erklärt Ihnen, wie Sie 
Dateien kopieren, löschen, 
umbenennen und Disketten 
formatieren können (filenote, 
delete, relabel, rename, type, 
copy, diskcopy, info, format, in- 
stall) 


Seite 120 zeigt unter anderem 
auf, wie Texte und Startdateien 
erstellt und bearbeitet werden 
(makedir, ed, prompt, wait, 
loadwb, setclock, execute) 
Seite 124 befaßt sich mit Be- 
fehlen, die sich zum Einbau in 
eine Batch-Datei anbieten (as- 
sign, echo, failat, if endif, then, 
else, stack, protect, bind- 
drivers) 


Seite 126 setzt die Erklärung 
von Kommandos für eine 
Batch-Datei fort (run, edit, join, 
lab, quit, skip, addmem und 
break) 


Seite 128 geht auf neue 
Spezialbefehle für Zusatzge- 
räte wie etwa Festplatten ein 
(search, newecli, sort, why, 
dimount, dpformat, mount, 
addbuffers, diskchange) 
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sätzlicher Parameter. Geben 
Sie versuchsweise folgendes 
ein: 

LIST df0: p s#? 


Das CLI zeigt Ihnen nur Da- 
teien an, die als ersten Buch- 
staben ein »s« besitzen. Mit 
dem Parameter »p« läßt sich al- 
so eine Selektion der Dateien 
erzielen. Es werden nur Datei- 
en angezeigt, die in die Maske 
nach dem Parameter »p« pas- 
sen. Die Zeichen »#?« erset- 
zen den Rest des Namens, ein 
»?« steht für einen einzelnen 
Buchstaben. Einige Beispiele 
für zulässige Muster: 


LIST df0: p sy#? 
LIST dfO: p sy??em 
LIST df0: p #?.info 


Das erste Beispiel würde alle 
Dateien anzeigen, deren An- 
fangsbuchstaben »sy« sind, al- 
so etwa »system« und »sy- 
stem.info«. Beim zweiten Be- 
fehl gibt das CLI nur Dateien 
auf dem Bildschirm aus, deren 
erste und letzten Buchstaben 
»Sy« und »em« wären. Die bei- 
den mittleren Zeichen unterlie- 
gen keinen Beschränkungen, 
könnten also Buchstaben, 
Zahlen oder Zeichen sein. 

Der dritte Befehl zeigt alle 
Dateien an, deren letzte fünf 
Zeichen ».info« lauten (bei- 
spielsweise »system.info«, 
»trashcan.info« oder »preferen- 
ces.info«). Diese Maskierung 
läßt sich auch auf den DIR- 
Befehl anwenden. Zwei Bei- 
spiele: 

DIR df0: #?.info 
DIR df0: ex#? 


Ein weiterer Parameter beim 
LIST-Befehl ist der Buchstabe 
»S«, Es werden nur Dateina- 
men ausgegeben, deren Na- 
men den hinter »s« angegebe- 
nen Text enthalten. 

LIST df0: s refer 


würde bei eingelegter Work- 
bench-Diskette die Dateina- 
men »preferencs« und »prefe- 
rences.info« auf dem Bild- 
schirm ausgegeben. 

Sollen nur Dateien ange- 
zeigt werden, die man nach ei- 
nem bestimmten Datum ge- 
speichert hat, ist folgende 
Schreibweise anzuwenden: 


LIST dfO: since Tag- 
Monat-Jahr 


Dabei müssen die jeweiligen 
Daten in der Form eingegeben 
werden, wie sie auch bei der 
LIST-Ausgabe auf dem Bild- 
schirm erscheinen. Ein Bei- 
spiel für die korrekte Schreib- 
weise: 


LIST dfO: since 
11-jan-87 
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zeigt alle Dateien an, die nach 
dem 11. Januar 1987 gespei- 
chert wurden. Das Gegenteil 
des Parameters »since« ist die 
Angabe von »upto«. In diesem 
Fall zeigt das CLI nur Dateien 
an, die bis zu einem bestimm- 
ten Datum angelegt wurden. 


LIST dfO: upto 11-jan-87 


gibt alle Dateien auf dem Bild- 
schirm aus, die vor dem 11. Ja- 
nuar 1987 gespeichert wurden. 

Der LIST-Befehl kennt noch 
drei weitere Optionen, die man 
jederzeit angeben kann: 

Der Zusatz »keys« zeigt zu- 
sätzlich noch die Nummer des 
Datei-Startblocks (File-Hea- 
der) der jeweiligen Datei auf 
der Diskette an. Dies ist aber 
eine Option, die nur dann sinn- 






Hauptdirectory 


} Dateien 


rameter ein komplexer Befehl. 
Es ist also auch folgende ver- 
wirrende Kombination mög- 
lich: 
LIST d£f0: pe#? s ref 
keys since 11-mar-1986 
upto 17-jan-87 nodates 
quiet 

Sie sehen, der LIST-Befehl 
erfordert etwas Training, bis 
man ihn beherrscht. 


Die »Ebenen« 
der Diskette 


Wie Sie am Anfang dieses 
Artikels gelesen haben, ist der 
Inhalt einer Diskette meist auf 
verschiedene Subdirectories 
verteilt. Siekönnen inzwischen 





begeben, um dort zu arbeiten. 
Das CLI stellt für diese Aufga- 
beden Befehl»CD« (change di- 
rectory = wechsle das Ver- 
zeichnis) zur Verfügung. Gibt 
man dem Befehl »CD« ohne 
Parameter ein, so zeigt das CLI 
den Namen des aktuellen Da- 
teiverzeichnisses an. Probie- 
ren wir dies gleich aus. Geben 
Sie bitte ein: 

cD 


In Ihrem CLI-Fenster müßte 
nun der Name der Diskette, der 
auch unter dem Diskettensym- 
bol auf der Workbench zu se- 
hen ist, erscheinen (Work- 
bench, Workbench 1.x oder 
ähnlich). Wechseln Sie nun 
versuchsweise das aktuelle Di- 
rectory. Nehmen wir an, Sie 


Subdirectories 
1. Ebene 


Subdirectories 
2. Ebene 


Bild 1. An diesem Beispiel läßt sich die Struktur der Subdirectories besser verstehen 


voll einzusetzen ist, wenn man 
über einen Diskettenmonitor 
und genügend Kenntnis über 
den Dateiaufbau auf der Dis- 
kette verfügt. 

Der zweite Zusatz »nodates« 
unterdrückt die Ausgabe des 
Datums und der Uhrzeit hinter 
jeder Datei. Es werden also nur 
die Länge der Datei und die 
Stellung der Schalter »rwed« 


ausgegeben. 
Der Parameter »quick« 
schließlich unterbindet die 


Ausgabe aller Zusätze. Das 
CLI gibt nur die Dateinamen 
aus, entspricht mit dem Zusatz 
»quick« also weitgehend dem 
DIR-Befehl. 

Der LIST-Befehl ist durch die 
Vielzahl seiner möglichen Pa- 


das Directory von Haupt- und 
Unterverzeichnissen lesen. 
Aber können Sie sich auch die 
Struktur eines Aufbaus mit 
Haupt- und Dateiverzeichnis- 
sen vorstellen? Deshalb zuerst 
eine kleine Erläuterung (be- 
trachten Sie dazu bitte auch 
Bild 1): 

Dieses Bild stellt einen klei- 
nen Auschnitt der Workbench- 
Diskette schematisch dar. Im 
Bild oben sehen Sie das 
Hauptverzeichnis, von dem 
aus wir uns bis jetzt die Unter- 
verzeichnisse mit dem DIR- 
und LIST-Befehl angesehen 
haben. Wir hielten uns aber im- 
mer im Hauptverzeichnis auf. 
Zuweilen ist es jedoch nötig, 
daß wir uns in ein Subdirectory 


möchten in das Subdirectory 
»devs (dir)« Überwechseln. Der 
Befehl dazu lautet: 

CD devs 


Überprüfen Sie mit 
CD 


ob Sie sich auch im richtigen 
Subdirectory befinden: In Ih- 
rem CLI-Fenster müßte nun der 
Name der Diskette und, durch 
einen Doppelpunkt abge- 
trennt, der Name des Dateiver- 
zeichnisses erscheinen, in die- 
sem Fall »xxx:devs«. Wenn Sie 
Bild 1 betrachten, befinden wir 
uns jetzt im Kreis in der mittle- 
ren Reihe, in welchem »devs« 
steht. Versuchen wir den Be- 
fehl »DIR«. Wir stellen fest, daß 
nun andere Dateien erschei- 
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nen als im Hauptdirectory. Hier 
finden sich drei Unterverzeich- 
nisse mit den Namen »key- 
maps«, »printers« und »clip- 
boards« (die untere Reihe in 
Bild 1). Mit dem Kommando 


CD keymaps 


würden Sie jetzt das Subdirec- 
tory »keymaps« zum aktuellen 
Verzeichnis erklären und be- 
fänden sich in der unteren Rei- 
he von Bild 1. Soweit wollen wir 
aber nicht gehen. Wie gelangt 
man aber jetzt wieder nach 
»oben« ins Hauptdirectory? 
Dazu dient der Befehl 


CD / 


der Sie immer in das nächsthö- 
here (!) Directory zurückbringt. 
Wenn Sie sich beispielsweise 
in einem Subdirectory aufhiel- 
ten, das vielleicht in der vierten 
Ebene angelegt ist, kämen Sie 
mit dem Befehl »CD /« nur zu- 
rück in die dritte Ebene. Um in 
das Hauptdirectory zu gelan- 
gen, wäre folgender Befehl nö- 
tig: 
CD 

Doch das geht auch einfa- 
cher: Mit 


CD dfo: 


erreichen Sie immer das 
Hauptdirectory des internen 
Laufwerks, egal, in welcher 
Tiefe Sie sich gerade aufhal- 
ten. (Sollten Sie auf einem an- 
deren Laufwerk als »df0« arbei- 
ten, ist natürlich immer das ak- 
tuelle Lauferk anzugeben. »CD 
dfO:«bringt Sie nicht ins Haupt- 
directory von »dfl«, wenn gera- 
de auf »dfl« gearbeitet wird.) 

Selbstverständlich kann 
auch zwischen einzelnen Di- 
rectory-Zweigen gewechselt 
werden. Dabei muß allerdings 
immer der Umweg über das 
Hauptdirectory genommen 
werden. Wenn Sie sich gerade 
im Dateiverzeichnis »devs« 
aufhalten, gelangen Sie nicht 
mit »CD trashcan« in dieses 
Nebendirectory. Die korrekte 
Schreibweise wäre in diesem 
Fall 


CD /trashcan 
oder 
CD dfO:trashean 


Befindet man sich sogar ei- 
ne Ebene tiefer (etwa im Subdi- 
rectory »printers«, Bild 1), wäre 
folgender Befehl richtig: 


CD //trashean 
oder 
CD dfO:trashean 


Nehmen wir an, im Dateiver- 
zeichnis »trashcan« wäre ein 
weiteres Subdirectory mit dem 
Namen »XXX« und wir wollen 
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vom Unterverzeichnis »prin- 
ters« nach »XXX« überwech- 
seln. Dies ist etwas schwerer 
nachvollziehbar: 


CD //trashean/XXX 
oder, etwas einfacher 
CD dfO:trashean/XXX 


Der CD-Befehl dient aber 
nicht nur zum Wechseln der 
Directory-Ebenen, sondern 
auch dem Anwählen des ge- 
wünschten Laufwerks. Neh- 
men wir an, das interne Lauf- 
werk »df0« ist derzeit das ak- 
tuelle Laufwerk. Sie möchten 
aber mit einer Diskette arbei- 
ten, die sich in der externen 
Floppy-Station befindet, also in 
»dfl«. Das Überwechseln ge- 
schieht mit folgendem Befehl: 


CD dfl: 


Schon arbeiten Sie mit der 
Diskette in »dfl«. Natürlich ist 
es auch möglich, direkt in be- 
stimmte Verzeichnisse zu 
springen: 

CD dfL1:XXX 


wobei XXX der Verzeichnisna- 
me oder eine Kombination aus 
Verzeichniswegen sein darf. 
Ein Beispiel: Das aktuelle 
Laufwerk ist »dfl«. In »df0« be- 
findet sich die Workbench- 
Diskette, von der in das ge- 
dachte Verzeichnis »XXX« im 
Verzeichnis »devs/printers« ge- 
wechselt werden soll. Der Auf- 
ruf sieht dann folgendermaßen 
aus: 


CD dfO:devs/printers/XXX 


Schon befindet man sich im 
Subdirectory »XXX« im Ver- 
zeichnis »devs/printers«. 


Die Zeit läuft 
mit... 


Wie bereits weiter oben er- 
wähnt, besitzt der Amiga eine 
Uhr, bei der auch das Datum 
mit gespeichert wird. Da der 
Amiga normalerweise nicht 
über eine (nötige!) batteriege- 
pufferte Echtzeituhr verfügt, 
holt sich das Betriebssystem 
beim Laden der Workbench 
das Datum der letzten Modifi- 
kation von der Diskette und ver- 
wendet diese Daten als aktuel- 
le Zeit. Diese Uhr kann aber 
auch von Ihnen gestellt wer- 
den. Dazu findet sich im CLI 
der Befehl »DATE«. Ohne Para- 
meter einzugeben erfährt man 
die »aktuelle« Zeit und das Da- 
tum. Sollte es nötig sein, diese 
Daten zu aktualisieren, muß 
der DATE-Befehl folgenderma- 
Ben eingesetzt werden: 


DATE 15-apr-88 
um das Datum zu stellen. Die 


Uhrzeit läßt sich genauso 
leicht einstellen: 


DATE 01:42:13 


Diese Schreibweise ist auch 
kombinierbar. Mögliche For- 
men: 


DATE 15-apr-88 12:32:00 
DATE 14:12 13-mar-99 


Die Reihenfolge spielt keine 
Rolle. Das CLI unterscheidet 
Zeit und Datum anhand des 
Doppelpunktes und Bindestri- 
ches. 

Beim nächsten Schreibzu- 
griff auf Diskette wird die nun 
aktualisierte Zeit gespeichert 
und ist (besitzt man keine ge- 
pufferte Uhr) die Basis beim 
nächsten Neustart. 

Es gibt aber noch einen klei- 
nen Trick beim Setzen des Da- 
tums: Sie können das aktuelle 
Datum relativ leicht um einen 
Wochentag erhöhen oder er- 
niedrigen. Wird beispielsweise 
regelmäßig jeden Tag mit einer 
bestimmten Diskette (idealer- 
weise der Workbench-Kopie) 
gearbeitet, erhöht folgendes 
Kommando automatisch das 
aktuelle Datum um einen Tag: 


DATE tomorrow 


Schon wurde aus einem »11- 
06-88« das Datum »12-06-88«. 
Ebenso leicht kann ein Tag ab- 
gezogen werden: 


DATE yesterday 


Bindet man diesen Befehl in 
die »Startup-Sequence« ein 
(wie das gemacht wird, erfah- 
ren Sie in einem späteren Ab- 
schnitt dieses Kurses), aktuali- 
siert der Amiga bei jedem Start 
das Datum. 

Damit wollen wir den ersten 
Abschnitt des CLI-Kurses ab- 
schließen. Um die Arbeit mit 
dem CLI zu beenden, geben 
Sie abschließend den Befehl 
»ENDCLI« ein. Danach befin- 
den Sie sich wieder auf der 
Workbench. Sie haben bereits 
einige Befehle kennengelernt, 
die Ihnen einen Eindruck von 
der Leistungsfähigkeit des CLI 
vermitteln. Sollten Sie noch 
Schwierigkeiten bei der 
Schreibweise haben, hilft die 
Eingabe eines durch ein Leer- 
zeichen abgetrennten Frage- 
zeichens hinter jedem Befehl 
weiter. Das CLI zeigt danach 
die möglichen Parameter und 
deren Schreibweise an. 

Nachdem Befehle behan- 
delt wurden, die dem Betrach- 
ten des Directories (Inhaltsver- 
zeichnis) der Diskette dienen, 
setzen wir die Reihe mit Befeh- 
len fort, die gezielt Dateien 
beeinflussen können. Da wir 
natürlich keine wichtigen Da- 
teien beschädigen wollen, er- 
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stellen wir eine kleine Testda- 
tei. Geben Sie dazu bitte fol- 
gende Befehle ein (die Erklä- 
rung folgt später): 

CoPY * TO df0:Test 


Der Cursor springt nun in ei- 
ne neue Zeile, liefert aber kein 
Prompt (1>) mehr. Drücken 
Sie jetzt zwei- bis dreimal 
<RETURN> und anschlie- 
ßBend <CTRL \> (dies ist der 
Schrägstrich, der auf der Ta- 
statur in der obersten Reihe 
rechts vor dem Linkspfeil 
steht). 

Die Floppystation läuft kurz 
an und erzeugt eine leere Datei 
mit dem Namen »Test«. Im fol- 
genden werden wir uns bei Dis- 
kettenoperationen auf diese 
Datei beschränken, um keine 
falschen Dateien zu beschädi- 
gen! 

Das DOS (Diskettenbe- 
triebssystem) des Amiga er- 
laubt es, an jede Datei auf der 
Diskette einen Kommentar von 
80 Zeichen anzufügen. Dieser 
Kommentar kann dazu dienen, 
bestimmte Informationen zu ei- 
ner Datei festzuhalten. Bei- 
spielsweise, um welche Ver- 
sion des Programms es sich 
dabei handelt oder welche Da- 
teien noch zu dem Programm 
gehören. Der Kommentar läßt 
sich mit dem LIST-Befehl be- 
trachten. Dabei wird in einer 
zusätzlichen Zeile der Kom- 
mentar, falls vorhanden, auf 
dem Bildschirm ausgegeben. 
Der Text kann auch von der 
Workbench-Ebene aus be- 
trachtet werden, und zwar mit 
dem Kommando »INFO« aus 
dem ersten Pull-Down-Menü. 

Der Kommentar verfügt über 
einige Eigenschaften, die 
möglicherweise nicht sofort 
verständlich sind. So wird er 
beispielsweise beim Kopieren 
einer Datei nicht mit übertra- 
gen. Die kopierte Datei, die ein 
identisches Abbild der ersten 
Datei sein sollte, enthält also 
keinen Kommentar! 

Ein weiterer Punkt ist folgen- 
der: Wird eine Datei mit einem 
neuen Inhalt überschrieben, 
bleibt der Kommentar der alten 
Datei erhalten (auch wenn die- 
ser nun nicht mehr zutrifft). 

Doch nun zum eigentlichen 
Befehl, der das Anlegen eines 
Kommentars ermöglicht: der 
Befehl »FILENOTE«. Mit die- 
sem Kommando kann ein Text 
zu einer Datei eingegeben wer- 
den. Der Text kann aber mit 
diesem Befehl nicht angese- 
hen werden. Dies ist nur mit 
dem LIST-Befehl machbar. 

Versuchen wir gleich einmal, 
eine Datei mit einem Kommen- 
tar auszustatten. Vergewissern 
Sie sich zuerst, daß die einge- 
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legte Diskette nicht schreibge- 
schützt ist. 

Als Beispiel wollen wir der 
Datei »Test« einen Kommentar 
anfügen. Der Befehl dazu lau- 
tet folgendermaßen: 


FILENOTE Test ”Text” 


Dabei sollte der Kommentar 
immer in Anführungszeichen 
gesetzt werden, damit auch 
Leerzeichen oder Sonderzei- 
chen korrekt übernommen 
werden. Kontrollieren wir 
gleich, ob der Befehl korrekt 
ausgeführt wurde. Geben Sie 
nun ein: 


LIST Test 


Auf dem Bildschirm sollten 
jetzt die vom LIST-Befehl her 
bekannten Ausgaben erschei- 
nen. Zusätzlich findet sich in 
einer neuen Zeile, durch einen 
Doppelpunkt eingeleitet, der 
Kommentar, den wir eben an- 
gefügt haben. 

Der Text kann auch wieder 
gelöscht werden. Dazu ist nur 
anstelle des Kommentars ein 
leerer String zu übergeben. 
Nach Eingabe von 


FILENOTE Test ”” 


ist die Datei wieder vom Kom- 
mentar befreit. Prüfen Sie dies 
mit 

LIST Test 

nach. Die Kommentarzeile, die 
vorher durch einen Doppel- 
punkt eingeleitet wurde, istnun 
verschwunden. 


Schnelle Aus- 
kunft 


Ein weiterer, wichtiger Be- 
fehl des CLI ist das Kommando 
»INFO«. Der Befehl gibt Aus- 
kunft über die angeschlosse- 
nen Disketten- und Festplat- 
tenlaufwerke. Nach Eingabe 
des Befehls 


INFO 


wird ein Statusreport über alle 
angeschlossenen Laufwerke 
und die RAM-Floppy ausgege- 
ben (Bild 2). 

Dieser Befehl dient haupt- 
sächlich dazu, einen schnellen 
Überblick über die momentan 
verfügbaren Disketten- und 
Festplattenspeicher sowie de- 
ren Kapazitäten zu geben. Er 
eignet sich auch zum Einbin- 
den in die »Startup-Sequen- 
ce«. In diese Datei eingebaut, 
erhält der Anwender gleich 
beim Start des Amiga die Infor- 
mation über die angeschlosse- 
nen Laufwerke. 

Die nächsten Befehle, mit 
denen wir uns befassen, neh- 
men direkten Einfluß auf Datei- 
en oder die gesamte Diskette. 
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Diese Befehle bewirken in den 
meisten Fällen eine direkte 
Veränderung einzelner Bytes, 
Dateien oder der kompletten 
Diskette. Sie sind deshalb mit 
Vorsicht zu genießen, da durch 
falsche Handhabung leicht ei- 
ne Datei oder der Diskettenin- 
halt zerstört werden kann. 

Der erste Befehl dieser Art, 
der besprochen wird, dient 
dem Neu- beziehungsweise 
Umbenennen einer Datei oder 
eines Dateiverzeichnisses 
(Subdirectory). Es ist dies der 
Befehl »RENAME«. 

Die Schreibweise des Be- 
fehls sieht folgendermaßen 
aus: 


RENAME alter Name TO 
neuer Name 


Benennen wir doch gleich 
eimal eine Datei um. Nehmen 
wir als Beispiel das Programm 
»Test«, das den neuen Namen 
»Abfall« erhalten soll. Der Be- 
fehl dazu sieht wie folgt aus: 


RENAME Test TO Abfall 


Eine Kontrolle mit dem DIR- 
Befehl ergibt, daß die ehemali- 
ge Datei »Test« nun den Namen 
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ry anzeigen lassen, werden Sie 
feststellen, daß die Datei »Test« 
nicht mehr zu sehen ist. Sie ist 
aber nur aus dem Hauptdirec- 
tory verschwunden. »Test« be- 
findet sich jetzt mit dem neuen 
Namen »Test1« im Subdirectory 
»Trashcan«, würde also unter 
gleichzeitiger Änderung des 
Namens in ein anderes Direc- 
tory verlagert. . 

Auch diesen Vorgang wollen 
wir wieder rückgängig ma- 
chen. Die Kommandofolge 
CD dfO: 

RENAME Trashcan/Test1 TO 
Test 


bringt die Datei wieder ins 
Hauptdirectory zurück und gibt 
ihr den alten Namen, wie eine 
Kontrolle mit »DIR« beweist. 
Ein weiteres Kommando 
zum Ändern eines Namens ist 
der Befehl »RELABEL«. Aller- 
dings können damit keine Da- 
teien oder Subdirectories um- 
benannt werden. Dieser Befehl 
wirkt nur auf den Namen einer 
Diskette. Möchten Sie also den 
Namen Ihrer Diskette (der 
auch unter dem Diskettensym- 
bol in der Workbench er- 
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Bild 2. Ein mit »INFO« erstellter Report 


»Abfall« trägt. Da wir aber den 
ursprünglichen Namen behal- 
ten wollen, benennen wir das 
Unterverzeichnis wieder um: 


RENAME Abfall TO Test 


(Die Angabe von »TO« wäre 
nicht unbedingt nötig, erleich- 
tert aber die Lesbarkeit des Be- 
fehls.) Sollen in einem der bei- 
den Namen Sonderzeichen 
oder Leerzeichen verwendet 
werden, sind die Namen in An- 
führungszeichen zu setzen. 
Der RENAME-Befehl kann 
aber noch mehr, als nur eine 
Datei umbenennen! Geben Sie 
probehalber diesen Befehl ein: 


RENAME Test TO Trashcan/ 
Test1 


Der Befehl mag Ihnen viel- 
leicht etwas merkwürdig er- 
scheinen, doch in dieser Weise 
wirkt der RENAME-Befehl wie 
eine Move-Anweisung. Wenn 
Sie sich mit »DIR« das Directo- 


scheint) ändern, ist folgende 
Form zu verwenden (bis zu 30 
Zeichen sind erlaubt): 


RELABEL Laufwerk: 
Name” 


Die Laufwerksangabe ist 
nicht zwingend erforderlich, 
empfiehlt sich aber der Über- 
sichtlichkeit halber. Auf die 
Praxis angewendet würde die 
Befehlsfolge für Ihre im inter- 
nen Laufwerk eingelegte 
Workbench-Kopie so ausse- 
hen: 


RELABEL df0: 
Workbench” 


Zu beachten ist hierbei, daß 
die Leerzeichen nicht verges- 
sen werden dürfen. Des weite- 
ren muß ein Ausdruck, der 
Leerzeichen oder Sonderzei- 
chen enthält, in Anführungs- 
zeichen gestellt werden. Wenn 
Sie das obige Beispiel einge- 
geben haben, trägt die einge- 


"neuer 


"Meine 


legte Diskette nun den Namen 
»Meine Workbench«. Dies kön- 
nen Sie leicht überprüfen, 
wenn Sie den Befehl »INFO« 
eingeben. 


Löschen und 
Kopieren 


Von Zeit zu Zeit kommt es 
vor, daß man einige Dateien 
oder Unterverzeichnisse auf 
seiner Diskette löschen möch- 
te, um beispielsweise Platz für 
neue Programme zu schaffen. 
Dazu dient der Befehl »DELE- 
TE«, der aber sehr mit Vorsicht 
zu genießen ist, da die betref- 
fenden Dateien endgültig ver- 
loren sind (es existieren zwar 
schon einige Möglichkeiten, 
die Dateien wieder zu retten, 
doch ist dafür ein genaues 
Wissen über den Diskettenauf- 
bau sowie der Besitz eines Dis- 
kettenmonitors nötig). Die fol- 
genden Beispiele sollten also 
nicht ausprobiert werden, 
wenn Sie nicht sicher sind, daß 
die betreffenden Dateien noch 
auf anderen Disketten existie- 
ren. Da wiraber mit einer Kopie 
(!) der Workbench-Diskette ar- 
beiten, sollte uns das nicht wei- 
ter stören, da ja noch ein Origi- 
nal vorhanden ist. 

Schreiten wir auch hier 
gleich wieder zur Praxis und 
versuchen, eine Datei zu lö- 
schen. Hier bietet sich das File 
»Test« an, welches keine »le- 
bensnotwendigen« Daten ent- 
hält. Gelöscht wird die Datei 
mit folgendem Befehl: 


DELETE Test 


oder, falls Sie sich in einem Un- 
terverzeichnis oder einer an- 
deren Diskette befinden, mit 


DELETE dfO: Test 


Vergessen Sie nicht die 
Leerzeichen zwischen den ein- 
zelnen Parametern. 

Es können auch mehrere 
Dateien (maximal 10) mit ei- 
nem einzigen Befehl gelöscht 
werden. Dazu sind nur die ein- 
zelnen Namen durch ein Leer- 
zeichen getrennt in die gleiche 
Befehlszeile zu schreiben. Das 
nächste Beispiel würde fünf 
verschiedene Dateien Iö- 
schen: 

DELETE dfO: Testi Test2 
Test3 Test4 Test5 

Selbstverständlich können 
auch Pfadnamen oder Masken 
verwendet werden: 

DELETE df0: P#? 
DELETE dfO: Devs/ 
Keymaps/USA2 
DELETE dfO: System/ 
Er#?t 
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Im ersten Beispiel würden al- 
le Dateien gelöscht, die im 
Hauptverzeichnis von Lauf- 
werk 0 stehen und mit »P« be- 
ginnen. Der zweite Fall löscht 
das Programm »USA2«, das 
sich im Subdirectory »Devs/ 
Keymaps« befindet. Der dritte 
Befehl schließlich löscht alle 
Dateien, die sich im Unterver- 
zeichnis »System« befinden, 
mit »Er« beginnen und als letz- 
ten Buchstaben ein »t« besit- 
zen. 

Der DELETE-Befehl gibt bei 
mehr als einer gelöschten Da- 
tei eine Meldung aus. Wer die- 
se Meldung unterbinden 
möchte, kann am Schluß der 
Befehlszeile »QUIET« oder ab- 
gekürzt »Q« eingeben. Dieser 
Zusatz unterdrückt die Ausga- 
be der Meldung. Ein Beispiel: 


DELETE Testi1 Test2 Test3 
QUIET 


oder abgekürzt 
DELETE Testi Test2 Test3 
Q 


Auch beim DELETE-Befehl 
kann mit Jokern und Maskie- 
rung gearbeitet werden (#?, 
72). 

»DELETE« läßt außer »Quiet« 
noch den Parameter »All« zu, 
der, am Schluß der Befehlszei- 
le angehängt, folgende Wir- 
kung hat: Wenn Sie beispiels- 
weise die Kommandozeile 


DELETE dfO: De#? ALL 


eingeben würden, so wären 
anschließend alle Dateien und 
auch Subdirectories ver- 
schwunden, deren erste bei- 
den Buchstaben mit »De« be- 
gonnen hätten. Man kann die 
Maskierung auch noch weiter 
treiben. Der Befehl 


DELETE #?/#?E#? 


würde sämtliche Dateien auf 
der gesamten (!) Diskette lö- 
schen, die irgendwo in ihrem 
Namen ein »e« enthalten (auch 
alle Subdirectories). Mit die- 
sem Befehl sollte also sehr vor- 
sichtig umgegangen werden, 
da man leicht Dateien unrett- 
bar löschen kann, die noch ge- 
braucht werden. Außerdem er- 
folgt vor der Befehlsausfüh- 
rung keine Sicherheitsabfrage, 
ob die Dateien wirklich entfernt 
werden sollen. 

Eines ist beim Delete-Befehl 
noch anzumerken: Es kann 
kein Subdirectory gelöscht 
werden, wenn in ihm noch Da- 
teien enthalten sind. Bevor das 
Unterverzeichnis gelöscht 
werden kann, müssen also zu- 
erst alle (!) Dateien aus diesem 
entfernt werden. 

Des weiteren können sich 
Dateien auch Löschversuchen 
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widersetzen. Jede Datei ent- 
hält vier Flags (Schalter), die 
bestimmte Manipulationen mit 
der Datei zulassen oder verbie- 
ten. Den Zustand dieser vier 
Flags (»r-w-e-d«) können Sie 
sich auch mit dem LIST-Befehl 
ansehen. Nur wenn das »d«- 
Flag ‚gesetzt ist, läßt sich die 
Datei entfernen. Ändern las- 
sen sich diese Flags mit dem 
»PROTECT«-Befehl. 


Vorbereiten 
einer Diskette 


Um Daten auf eine Diskette 
speichern zu können, ist nötig, 
daß die betreffende Diskette 
formatiert ist. Formatieren be- 
deutet in diesem Fall, daß die 
Magnetscheiben in konzentri- 
sche Kreise und die Kreise in 
einzelne Sektoren eingeteilt 
werden. Essoll hier nicht näher 
auf die Aufteilung einer Disket- 
te eingegangen werden. Wich- 
tig ist hier nur zu wissen, daß 
Disketten auf jeden Fall forma- 
tiert sein müssen, bevor sie ge- 
nutzt, das heißt Daten auf ih- 
nen gespeichert werden kön- 
nen. Beim Amiga dient dazu 
der Befehl »FORMAT«. Dieser 
Befehl ermöglicht es allerdings 
nur, Disketten zu formatieren. 
Festplatten oder 5Y,-Zoll-Lauf- 
werke können mit diesem Be- 
fehl nicht vorbereitet werden. 
Der Befehl benötigt folgende 
Schreibweise: 


FORMAT DRIVE Laufwerk: 
NAME Name NOICONS 
Unterstützende Literatur: 


Das Amiga-Handbuch, Markus Breuer, 
Markt & Technik-Verlag, 49 Mark 


Es ist auf korrekte Schreib- 
weise zu achten. Leerzeichen 
dürfen nicht vergessen wer- 
den! Außerdem sind die For- 
malparameter »DRIVE« und 
»NAME« immer mit anzuge- 
ben. Der Parameter »NO- 
ICONS« kann, muß aber nicht 
eingetippt werden. Läßt man 
ihn weg, installiert dasDOS auf 
der Diskette das Subdirectory 
»Trashcan« und das zugehöri- 
ge Icon (Symbol). Gibt man da- 
gegen »NOICONS« an, wer- 
den die »Trashcan«-Dateien 
nicht erzeugt. Um beispiels- 
weise eine Diskette im exter- 
nen Laufwerk (df1) zu formatie- 
ren, müßte folgende Befehls- 
zeile eingegeben werden (ver- 
suchen Sie nicht, diesen Be- 
fehl nachzuvollziehen, wenn 
Sie sich nicht sicher sind, ob 
Sie die Daten in dem betreffen- 
den Laufwerk noch benötigen. 
Der Amiga verlangt zwar zu- 
erst eine Sicherheitsbestäti- 
gung, doch wie leicht kann 
man sich vertippen... Nach der 


Formatierung sind diese Daten 
unrettbar verloren): 


FORMAT DRIVE df1: NAME 
"Leere Diskette” 


Auch hier muß der letzte 
Ausdruck wieder in Anfüh- 
rungszeichen gesetzt werden, 
wenn Leerzeichen oder Son- 
derzeichen enthalten sind (zu- 
lässig sind insgesamt 30 Zei- 
chen). Wenn die Diskette nicht 
schreibgeschützt war, besitzt 
sie nun den Diskettennamen 
»Leere Diskette« und kann be- 
schrieben werden. 

Eine so vorbereitete Diskette 
kann in diesem Stadium aller- 
dings nur zur reinen Daten- 
speicherung verwendet wer- 
den. Wie Sie sicher wissen, 
verlangt der Amiga nach dem 
Einschalten beziehungsweise 
Laden des Kickstarts eine 
Workbench-Diskette. Der Ami- 
ga würde die eben formatierte 
Diskette aber nicht als Startdis- 
kette anerkennen, sondern so- 
lange nach einer Workbench- 
Diskette verlangen, bis eine 
mit einem Startsektor versehe- 
ne Diskette eingelegt wird. 
Dies erledigt der nächste Be- 
fehl: »INSTALL« (nicht bei Fest- 
platten oder 5%-Zoll-Laufwer- 
ken). 

Um beispielsweise eine Dis- 
kette in Laufwerk 1 (df1) startfä- 
hig zu machen, reicht die Ein- 
gabe der nächsten Zeile: 


INSTALL df1: 


Das Laufwerk läuft kurz an 
und installiert den Startsektor. 
Nach diesem Vorgang akzep- 
tiert der Amiga diese Diskette 
als bootfähige (Workbench-) 
Diskette. 


Kopieren von 
Dateien 


Jeder Anwender muß von 
Zeit zu Zeit Dateien von einem 
Gerät auf ein anderes kopie- 
ren. Sei es, um seinen Druk- 
kertreiber oder ein anderes 
Programm auf eine andere 
Diskette zu übertragen oder, im 
Fall des Amiga, eine Datei aus- 
zudrucken. 

Zum Kopieren einer einzel- 
nen Datei dient der Befehl 
»COPY«. Dieses Kommando 
dupliziert den Inhalt einer an- 
gegebenen Datei auf ein ande- 
res Gerät. Diese können Dis- 
kettenlaufwerke, Festplatten, 
die RAM-Disk, Drucker oder im 
einfachsten Fall der Bildschirm 
sein. 

Besprechen wir also der Rei- 
he nach die verschiedenen 
Möglichkeiten, wie man mit 
dem COPY-Befehl Dateien ver- 
vielfältigen kann: 


K URSE 


Die erste Art bezieht sich na- 
türlich auf diejenigen Geräte, 
wo dieser Befehl bevorzugt 
eingesetzt wird: den Disketten- 
oder Festplatten-Laufwerken 
und die RAM-Disk. 

Die Schreibweise dafür lau- 
tet allgemein: 


COPY Quell-Datei TO 
Ziel-Datei/-Gerät 


Erklären wir dies gleich an 
einem Beispiel: Sie möchten 
die Datei »Clock« von Ihrer 
Workbench-Diskette im inter- 
nen Laufwerk (df0) auf eine 
zweite Diskette im ersten ange- 
schlossenen Laufwerk (df1) ko- 
pieren. Die Datei befindet sich 
im Hauptdirectory und soll 
auch auf der zweiten Diskette 
im Hauptdirectory stehen. Der 
Befehl dazu würde lauten: 
COPY Clock TO dfl: 


oder, noch exakter 
COPY dfO:Clock TO dfl: 


(Das »TO« ist nicht zwingend 
erforderlich, erhöht aber die 
Lesbarkeit.) Wenn wir davon 
ausgehen, daß wir uns von An- 
fang an im Hauptdirectory der 
im internen Laufwerk (dfO) ein- 
gelegten Diskette befunden 
haben, sind beide Befehle rich- 
tig. Ist aber eine andere Disket- 
tenstation das aktuelle Lauf- 
werk oder befindet man sich in 
einem Subdirectory, wäre nur 
der zweite Befehl richtig. 

Im nächsten Fall soll die glei- 
che Datei vom selben Lauf- 
werk auf df1 kopiert werden. 
Die Kopie erhält aber einen an- 
deren Namen. Die Schreib- 
weise: 


coPY df0:Clock TO df1: 
”Neuer Name” 


Sie können also gleich bei 
der Befehlseingabe den neuen 
Namen der Zieldatei festlegen 
und müssen sie nicht erst spä- 
ter umbenennen. Dies funktio- 
niert auch mit Pfadangeben, 
um in Unterverzeichnisse zu 
gelangen. Beispiel: Die Datei 
»List«, die sich im »C«-Directory 
von dfO befindet, soll auf df1 in 
das Unterverzeichnis »XXX« 
übertragen werden. Gleichzei- 
tig erhält die Datei den neuen 
Namen »Test«. Die Kommando- 
zeile 


COPY dfO:C/List TO df1: 
Xxx/Test 


erledigt diese Aufgabe. Natür- 
lich kann der Copy-Befehl 
auch maskiert werden (mas- 
kieren = Platzhalter einset- 
zen). 


CoPY df0:C/A#? TO dfi:xx 


Dieser mit Jokern arbeiten- 
de Befehl überträgt beispiels- 
weise alle Dateien, die sich im 
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C-Directory von Laufwerk #0 
befinden und mit »A« begin- 
nen, in den Ordner »XX« von 
Laufwerk #1. 

Auch beim COPY-Befehl 
können Sie, wie beim DELE- 
TE-Befehl, zwei Parameter am 
Schluß der Befehlszeile einge- 
ben. Der erste ist»QUIET« oder 
»Q«, der die schon vom DELE- 
TE-Kommando her bekannte 
Funktion hat, nämlich die Un- 
terdrückung von Textausga- 
ben auf dem Bildschirm. Bei- 
spiel: 
copy df0:C TO dfl: QUIET 


Das C-Directory (df0) wird in 
das Haupdirectory von dfi ko- 
piert. Dabei werden Bestäti- 
gungsmeldungen des Copy- 
Befehls unterbunden. 

Der zweite Parameter ist das 
Wort »ALL«. Damit sagen Sie 
dem COPY-Befehl, daß, falls 
Sie ein Directory kopieren wol- 
len, auch alle Unterverzeich- 
nisse dieses Ordners mitko- 
piert werden sollen (normaler- 
weise werden nur die Dateien, 
nicht (!) die Subdirectories ko- 
piert). Um dies zu verdeutli- 
chen, folgendes Beispiel: 


COPY dfO:Devs TO df1: 


Es würden alle Dateien über- 
tragen, die sich im Verzeichnis 
»Devs« befinden, nicht aber die 
Unterverzeichnisse. 

Folgende Befehlszeile wür- 
de auch noch die Unterver- 
zeichnisse mitkopieren und 
gleichzeitig auf der Zieldisket- 
te die entsprechenden Ordner 
erzeugen: 


COPY dfO:Devs TO df1:ALL 


Dies würde auch mit Fest- 
plattenlaufwerken (dhO/dh1 be- 
ziehungsweise beim Amiga 
2000 jhO etc.) und dem RAM 
funktionieren. Beispiele: 


COPY dfO:c TO dhO: ALL 
COPY dfi:c TO RAM: 


Wie weiter oben erwähnt, 
läßt sich die Ausgabe einer Da- 
tei auch auf den Drucker um- 
lenken. Der Drucker würde al- 
so eine schriftliche Kopie einer 
Datei ergeben. Unter Amiga- 
DOS wird ein angeschlossener 
Drucker durch »prt:« (für Prin- 
ter) angesprochen. Legen wir 
als Beispiel die Ausgabe einer 
Datei um, beziehungsweise 
kopieren die Datei auf ein Blatt 
Papier. Dafür benutzen wir die 
Startdatei des Amiga (Startup- 
Sequence), die sich im S-Ver- 
zeichnis befindet und von der 
wir wissen, daß sie lesbaren 
ASCII-Text enthält. Die Be- 
fehlszeile sieht so aus: 


COPY df0:S/startup- 
sequence TO prt: 
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Schon wird ein Ausdruck 
dieser Datei erzeugt. 

Auf diese Weise können bei- 
spielsweise auch Daten über 
die serielle »SER:« oder paral- 
lele »PAR:« Schnittstelle ge- 
sendet werden. 

Ein weiteres Gerät ist der 
Bildschirm »CON:«. 

Wenn Sie, wie auch im Ami- 
ga-DOS-Handbuch beschrie- 
ben, nachstehende Zeile abtip- 
pen, werden alle Eingaben von 
Tastatur (die Tastatur wird 
durch den Stern »*« gekenn- 
zeichnet) auf ein neu eröffne- 
tes Bildschirmfenster umgelei- 
tet. Sie tippen also etwas ein, 
das anschließend direkt in ei- 
nem anderen Fenster, das den 
Titel »Ausgabefenster« trägt, 
ausgegeben wird (Abbruch mit 
<CTRL C> oder <CTRL 
=>, eingegeben im CLI- 
Fenster). 


COPY * TO CON:10/10/200/ 
100/Ausgabefenster 


Vielleicht verstehen Sie jetzt 
auch die Anweisung am An- 
fang dieses Abschnitts, mit der 
wir die Test-Datei erzeugt ha- 
ben. Diese Anweisung macht 
nichts anderes, als Tastaturein- 
gaben in eine Datei mit dem 
Namen »Test« umzuleiten und 
nach Druck auf <CTRL \> 
auf Diskette zu speichern. 


Diskettenkopie 
anfertigen 


Ein Befehl, der (wenn keine 
Kopierprogramme vorhanden 
sind) das Kopieren kompletter 
Disketten erlaubt, ist das Kom- 
mando »DISKCOPY«. Damit 
lassen sich originalgetreue Ko- 
pien von 3%-Zoll-Disketten an- 
fertigen. Kaputte Sektoren 
oder Tracks werden damit aber 
nicht übertragen. DISKCOPY 
führt die selbe Funktion aus, 
als wenn Sie auf der Work- 
bench-Ebene zwei Disketten- 
symbole übereinander legen. 
Dabei ist es nicht nötig, die 
Zieldiskette vorher zu forma- 
tieren. Dies wird von »DISK- 
COPY« erledigt. (Es empfiehlt 
sich, die Quelldiskette mit 
Schreibschutz zu versehen.) 
Das Format des Befehls sieht 
so aus: 


DISKCOPY Quell-Laufwerk 
TO Ziel-Laufwerk 

Ein Beispiel: Es soll von der 
Diskette, die sich im internen 
Laufwerk (df0) befindet, eine 
Sicherungskopie auf eine Dis- 
kette erstellt werden, die sich 
im dft befindet: 
DISKCOPY dfO: TO df1: 


Nach Eingabe dieses Be- 


fehls wird nachgefragt, ob die 
Diskette wirklich kopiert wer- 
den soll. Nach Bestätigung be- 
findet sich nach Abschluß des 
Vorgangs ein identisches Ab- 
bild der Diskette im Ziel-Lauf- 
werk. Die Zieldiskette trägt zur 
Unterscheidung den Namen 
»COPY OF xxx«, wobei »xxX« 
der Name der Ursprungsdis- 
kette ist. Soll die Zieldiskette ei- 
nen anderen Namen erhalten, 
kann auch noch der Formalpa- 
rameter »NAME« am Schluß 
der Befehlszeile angehängt 
werden. Dies sieht dann so 
aus: 

DISKCOPY df0: TO dfl: 
NAME ”Neuer Name” 


Die Diskette erhält auf diese 
Weise gleich beim Kopieren ei- 
nen neuen Namen. 

Es kann auch mit nur einem 
Laufwerk dupliziert werden. 
Wenn Sie 


DISKCOPY dfO: TO dfO: 


eingeben, werden Sie (wenn 
es an der Zeit ist) vom Pro- 
gramm aufgefordert, die je- 
weils benötigte Diskette (Quel- 
le oder Ziel) einzulegen. 

Der nächste Befehl, den wir 
nun besprechen, dient zur Ab- 
wechslung nicht der Datei- 
oder Diskettenmanipulation, 
sondern »nur« zum Betrachten 
von Dateien, geeigneterweise 
ASCII-Dateien, also beispiels- 
weise Textfiles. Es ist dies 
das Kommando »TYPE«, das 
die Inhalte angegebener Datei- 
en auf dem Bildschirm ausgibt. 
»TYPE« kann auch wieder in 
mehreren Variationen verwen- 
det werden. Die einfachste 
Form ist die Ausgabe einer Da- 
tei auf den Bildschirm. Neh- 
men wir wieder die Datei 
»Startup-Sequence« im Ord- 
ner »S«, von der wir ja schon 
wissen, daß sie lesbaren Text 
im ASCII-Format enthält: 

TYPE S/startup-sequence 

Der Inhalt des Files wird auf 
dem Bildschirm angezeigt. 
Sollte der Text aus dem CLI- 
Fenster scrollen, hält ein Druck 
auf die Leertaste die Ausgabe 
an. <RETURN> oder 
<BACKSPACE> (der Links- 
pfeil rechts oben auf der Tasta- 
tur) setzt die Anzeige fort. 
<CTRL C> bricht die ganze 
Ausgabe ab. 

Sie können aber auch die 
Ausgabe einer Datei aufein.an- 
deres Gerät lenken. Der näch- 
ste Befehl gibt beispielsweise 
die Datei auf einen ange- 
schlossenen Drucker aus: 
TYPE S/startup-sequence 
TO prt: 

Auch beim TYPE-Komman- 
do lassen sich Zusatzparame- 


ter mitangeben. Der Parameter 
»OPT N«, am Schluß der Be- 
fehlszeile eingegeben, be- 
wirkt, daß vor jede ausgegebe- 
ne Zeile eine Zeilennummer 
gesetzt wird (nur für die Ausga- 
be gültig). Das obige Beispiel, 
diesmal mit Zeilennummern: 
TYPE S/startup-Sequence 
TO prt: OPT N 


Der Parameter »OPT H« hat 
zur Folge, daß die betreffende 
Datei nicht im Klartext, son- 
dern als Hex-Dump (Ausgabe 
von Hexadezimal-Zahlen) an- 
gezeigt wird. Dies dürfte aber 
nur für Programmierer von In- 
teresse sein. 


Anzeigen von 
ASCII-Dateien 


Bevor wir uns mit dem um- 
fangreichen Befehl »ED« be- 
schäftigen, werden zuerst eini- 
ge leichter zu verstehende 
Kommandos des CLI behan- 
delt. Der nächste Befehl ist 
»MAKEDIR«. 

Im Regelfall arbeitet man bei 
einer Diskette oder Festplatte 
in der obersten Directory-Ebe- 
ne, dem sogenannten »Root- 
Directory«, in welches Sie im- 
mer mit dem Befehl 


CD: 


gelangen (korrekterweise soll- 
te »CD Laufwerk:« geschrie- 
ben werden, um sicherzuge- 
hen, daß auch das richtige 
Laufwerk angesprochen wird). 
Sie können in dieses Verzeich- 
nis alle Programme speichern, 
die Sie möchten. Wenn Sie 
sich aber nun vorstellen, daß 
Sie (etwa bei Festplatten) bis 
zu mehrere hundert Program- 
me in dieses Verzeichnis spei- 
chern können, kommt Ihnen si- 
cher der Gedanke, daß bei- 
spielsweise die Directory-An- 
zeige dieser Diskette/Festplat- 
te sehr unübersichtlich wird. 
Die einzelnen Einträge passen 
gar nicht alle auf den Bild- 
schirm. Außerdem können wei- 
tere Probleme auftreten, wenn 
man etwa alle Dateien, die zu 
einem Programm gehören, ko- 
pieren möchte und diese erst 
mühsam zusammensuchen 
muß, da nicht klar ersichtlich 
ist, welche dies sind. Zu die- 
sem Zweck schufen findige 
Entwickler Subdirectories. 
Dies sind Unterverzeichnisse, 
die einem anderen Directory 
untergeordnet sind. Damit ist 
es möglich, für bestimmte An- 
wendungen eigene »Ordner« 
auf der Diskette/Festplatte zu 
schaffen, in denen dann zu ei- 
nem Gebiet gehörige Pro- 
gramme gespeichert werden 
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(Bild 3). Bestes Beispiel dafür 
ist die Workbench-Diskette. 
Sie enthält eine Vielzahl ver- 
schiedener Subdirectories, in 
denen teilweise noch weitere 
Unterverzeichnisse eingebet- 
tet sind. Von diesen Ordnern 
sind aber auf der Workbench- 
Ebene nur die zu sehen, zu de- 
nen ein entsprechendes ».in- 
fo«-File existiert, welches bei- 
spielsweise die Grafikdaten für 
das Bildsymbol zur Verfügung 
stellt. 

Der »c«-Ordner enthält nur 
Programme, die etwas mit dem 
CLI zu tun haben. Im Ordner 
»devs« dagegen befinden sich 
nur Programme, die etwas mit 
der Tastaturanpassung, Druk- 
kern oder anderen Gerätetrei- 
bern zu tun haben. 

Auch Sie werden früher oder 
später in Situationen kommen, 
in denen Sie der Übersichtlich- 
keit halber Dateiverzeichnisse 
erstellen müssen. Das CLI 
stellt dafür den Befehl »MAKE- 
DIR« zur Verfügung. Die 
Schreibweise für dieses Kom- 
mando lautet allgemein: 


MAKEDIR (Verzeichnis) 
Name 


»Verzeichnis« muß nicht an- 
gegeben werden, wenn Sie in 
dem Directory, in dem Sie sich 
gerade befinden, ein Unterver- 
zeichnis anlegen möchten. 
Soll aber ein Verzeichnis gene- 
riert werden, das beispielswei- 
se zwei Ebenen tiefer liegt (Bild 
3, untere Reihe), ist der kom- 
plette Pfad anzugeben. Zwei 
Beispiele: 

MAKEDIR dfO: Anwendung 
MAKEDIR dfO:Anwendung/ 
Grafik 


Im ersten Fall wird im aktuel- 
len Verzeichnis das Unterver- 
zeichnis »Anwendung« erstellt. 
Im zweiten Fall dagegen ent- 
steht der Ordner »Grafik« im 
Verzeichnis »Anwendung«, 
das bereits dem aktuellen Di- 
rectory untergeordnet ist. Das 
Directory »Grafik«ist also inder 
zweiten Verzeichnisebene an- 
gesiedelt (siehe dazu auch das 
Bild 3). Die Angabe des Lauf- 
werks ist nicht unbedingt erfor- 
derlich, erhöht aber die Les- 
barkeit. Ebenfalls ist darauf zu 
achten, daß der Name des zu 
erzeugenden Verzeichnisses 
in Anführungszeichen gesetzt 
wird, wenn Leerzeichen oder 
Sonderzeichen enthalten sind. 


Aktivieren der 
Echtzeituhr 


Der Amiga 2000 enthält fest 
eingebaut eine batteriegepuf- 
ferte Echtzeituhr, die auch 
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nach dem Ausschalten des 
Computers weiterläuft und so- 
mit beim nächsten Einschalten 
die aktuelle Uhrzeit zur Verfü- 
gung stellt. Auch ein Amiga 
500, der mit der intern einzu- 
bauenden Speichererweite- 
rungskarte (Erweiterung auf 1 
MByte) ausgerüstet ist, verfügt 
über eine solche Echtzeituhr. 
Leider kann diese Uhr nicht 
mit »DATE« gestellt und ausge- 
lesen werden. Dazu existiert 
auf neueren Workbench-Ver- 
sionen (ab Versionsnummer 
33.4xx) der Befehl »SET- 
LOCK«. Dieser Befehl ermög- 
licht das Übertragen der 
Amiga-Systemuhr von und zur 


Dies funktioniert aber nur 
dann, wenn Sie tatsächlich 
über die batteriegepufferte Uhr 
verfügen. Ansonsten meldet 
das Amiga-DOS (Betriebssy- 
stem) einen Fehler! 

Damit dieser letztgenannte 
Befehl nicht jedesmal von 
Hand eingegeben werden 
muß, bietet er sich geradezu 
dafür an, in die Startdatei der 
Workbench-Diskette einge- 
bunden zu werden, die jedes- 
mal beim Neustart des Amiga 
abgearbeitet wird. Wie das ge- 
macht wird, erfahren Sie etwas 
später im Kurs, wenn der »ED«- 
Befehl besprochen wird. Ein 
ebenfalls leicht zu verstehen- 


Hauptverzeichnis 


(Root-Directory) 





Make Dir 


Unterverzeichnis 
(z.B. Anwendung) 


Make Dir Make Dir 





Unter 
verzeichnis 
(z.B. Dateien) 


Unter— 


verzeichnis 
(z.B. Grafik) 





Make Dir 


Unterverzeichnis 
(z.B. Texte) 


Make Dir 





Make Dir 


Unter— 
verzeichnis 
(z.B. Privat) 


Unter— 
verzeichnis 
(z.B. Geschaft) 


Bild 3. Ein Beispiel für eine Diskette/Festplatte, auf der 
nach Themen geordnet Subdirectories erzeugt wurden 


batteriegepufferten Echtzeit- 
uhr. 

Das Stellen dieser Uhr geht 
relativ einfach vonstatten: zu- 
erst ist mit dem »DATE«-Befehl 
die Systemuhr des Amiga zu 
stellen. 

Anschließend muß dieses 
Datum in die Echtzeituhr über- 
tragen werden. Der Befehl da- 
zu sieht folgendermaßen aus: 


SETCLOCK opt save 


Das Datum (und damit auch 
die Uhrzeit) sind nun in die 
Echtzeituhr übertragen und 
bleiben auch nach dem Aus- 
schalten des Amiga erhalten. 

Nach einem erneuten Ein- 
schalten des Computers befin- 
det sich das Datum noch in der 
Echtzeituhr, nicht aber in der 
Systemuhr des Amiga. Die Zeit 
muß also bei jedem Neustart 
wieder aus der Echtzeituhr 
ausgelesen und in die System- 
uhr übertragen werden. Auch 
hierzu dient wieder der SET- 
CLOCK-Befehl, diesmal nur 
mit anderen Parametern: 


SETCLOCK opt load 


der Befehl, der sich auch zum 


Einbinden in die Startdatei 
eignet, ist das Kommando 
»PROMPT«. 


Doch was ist ein »Prompt«? 
Wie Sie sicher bereits festge- 
stellt haben, steht im CLI- 
Fenster immer die Kennung 
des jeweiligen Command- 
Line-Interfaces (Sie können 
mehrere CLI-Fenster gleich- 
zeitig öffnen) vor dem Cursor 
(1>). Sie können diese Mel- 
dung aber auch ändern, wenn 
eine »eigene« Bereitschaftsan- 
zeige gewünscht wird. Neh- 
men wir an, der normale 
Prompt soll so geändert wer- 
den, daß er eine persönlichere 
Note erhält: 


PROMPT ”Hallo, User>” 


Nach Eingabe dieses Kom- 
mandos würde nun im aktuel- 
len CLI-Fenster anstelle des 
»1>«-Prompts die Bereit- 
schaftsanzeige »Hallo, 
User>« erscheinen. 


Wenn Sie aber zusätzlich zu 


‚ dieser neuen Meldung auch 


noch die Nummer des aktuel- 
len CLI-Tasks sehen möchten, 
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müssen Sie nur den Parameter 
»%N« einfügen. Für unser Bei- 
spiel sähe dies so aus: 


PROMPT ”Hallo, User ZN> 


Das Ergebnis auf dem Bild- 
schirm hätte die Form »Hallo, 
User 1>«. Den normalen, ge- 
wohnten Prompt bringt Ihnen 
folgender Befehl zurück: 


PROMPT %N> 


Ein weiterer Befehl, der ei- 
gentlich nur sehr selten zum 
Einsatz kommt, ist das Kom- 
mando »WAIT«. Es ist im Regel- 
fall nur für Besitzer eines Ami- 
ga 2000 mit PC-/AT-Karte oder 
eines Sidecar interessant, die 
eine Festplatte besitzen und 
bei denen der Controller in ei- 
nem PC-Steckplatz steckt. 
Hier muß der Amiga so lange 
mit Festplattenzugriffen war- 
ten (etwa 40 Sekunden), bis 
der PC nach dem Booten die 
Platte nicht mehr benötigt 
(sonst kommen sich beide Sy- 
steme bei Zugriffen auf die 
Platte ins Gehege). 


Warten mit 
Variationen 


Der WAIT-Befehl kann je- 
doch durch seine vielfältigen 
Möglichkeiten auch für andere 
Zwecke eingesetzt werden. 
Beispielsweise, wenn eine mit 
»ECHO« ausgegebene Mel- 
dung länger am Bildschirm 
sichtbar bleiben soll und erst 
danach das Startprogramm 
weiter abgearbeitet wird. Im 
einfachsten Fall wartet der 
Amiga eine Sekunde, bis er mit 
der Abarbeitung der Startdatei 
fortfährt. Dies erreicht man 
durch Eingabe von »WAIT« oh- 
ne weitere Parameter. Soll län- 
ger gewartet werden, muß, 
durch ein Leerzeichen ge- 
trennt, die Zeitdauer in Sekun- 
den (SEC) oder Minuten (MIN) 
angegeben werden. Zwei Bei- 
spiele: 

WAIT 32sec 
WAIT 3min 


Im ersten Fall stoppt das Sy- 
stem für 32 Sekunden, beim 
zweiten Beispiel wartet der 
Amiga drei Minuten. Es istaber 
auch möglich, den Computer 
bis zum Erreichen einer be- 
stimmten Uhrzeit anzuhalten. 
Das nachstehende Beispiel 
würde den Amiga warten las- 
sen, bis die angegebene Uhr- 
zeit erreicht wird: 

WAIT UNTIL 12:00 

Ein dagegen sehr wichtiger 
Befehl, der eigentlich in je- 
de Startdatei gehört, ist 
»LOADWB«. Erst dieser Befehl 
ermöglicht es dem Anwender, 
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daß er mit den Icons (Bildsym- 
bolen) auf der Workbench- 
Ebene arbeiten kann. 
LOADWB erlaubt noch die 
Angabe eines speziellen Zu- 
satzparameters: 


LOADWB -debug 


Hiermit wird eine Spezial- 
funktion (für »Eingeweihte«: 
ROMWack) des Amiga akti- 
viert, die nur für Programmie- 
rer interessant ist, diesich sehr 
gut mit dem Amiga-Betriebssy- 
stem auskennen und auch Ma- 
schinensprache beherrschen 
müssen. Deshalb soll auf die- 
se Zusatzfunktion nicht näher 
eingegangen werden, da bei 
falscher Anwendung die Ge- 
fahr eines »endgültigen Sy- 
stemabsturzes« besteht. 

Nach dieser »Aufwärm- 
übung« besprechen wir nun ei- 
nen der umfangreichsten Be- 
fehle, die uns das CLI zur Ver- 
fügung stellt: den Texteditor 
»ED«. Er ermöglicht das Erzeu- 
gen und Bearbeiten von Tex- 
ten, die im ASCII-Format (!) vor- 
liegen müssen. Ein Beispiel für 
eine solche Textdatei ist die in 
diesem Kurs bereits öfter er- 
wähnte Startdatei »Startup- 
Sequence«, welche sich im 
»S«-Directory befindet. Bei je- 
dem Neustart des Amiga wird 
diese Datei geladen und alle in 
ihr enthaltenen Befehle der 
Reihe nach abgearbeitet. Sie 
können sich den Inhalt dieser 
Datei beispielsweise mit dem 
Befehl 


TYPE :s/startup-sequence 


ansehen. Bearbeiten läßt sie 
sich jedoch nur mit dem Editor. 

Der Aufruf von ED erfolgt 
sehr einfach. Es ist nur der Na- 
me der zu bearbeitenden Datei 
sowie, wenn erforderlich, die 
Größe des zu reservierenden 
Textspeichers anzugeben. 
Wird keine Größe angegeben, 
reserviert ED von sich aus 
40000 Byte Textspeicher, was 
für durchschnittlich lange Tex- 
te völlig genügt. 

Versuchen wir doch gleich 
einmal, eine Datei zu bearbei- 
ten beziehungsweise zu erzeu- 
gen. Geben Sie folgendes ein: 


ED :Test-Ed SIZE 50000 


Die Angabe von »size 
50000« wäre nicht unbedingt 
erforderlich gewesen, sondern 
soll nur die Parameterüberga- 
be zur Größenbestimmung des 
zu reservierenden Textspei- 
chers demonstrieren. Ebenso 
ist auch der Doppelpunkt vor 
dem Dateinamen nicht nötig. 
Er stellt nur sicher, daß die Da- 
tei im Root-Directory (Hauptdi- 
rectory) des aktuellen Lauf- 
werks erzeugt wird. 
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Da die Datei »Test-Ed« noch 
nicht existiert, gibt ED eine 
Meldung aus, die besagt, daß 
eine neue Datei erzeugt wird. 
Doch widmen wir uns nun den 
Funktionen des Editors: 

Im normalen Betrieb des 
Editors, in dem Sie sich nach 
dem Start befinden, können 
Sie ganz normal Texte einge- 
ben. Da ED ein »Fullscreen- 
Editor« ist, läßt sich der Cursor 
ohne Probleme im ganzen 
Fenster bewegen. Ausnahme 
ist die letzte Zeile des Fensters, 
die für Editor-Meldungen re- 
serviert ist. 

Außer der Eingabe des 
ASCII-Textes beherrscht ED ei- 
ne Vielzahl von Befehlen, die 
dem Laden, Speichern und 
Bearbeiten des Textes dienen. 
Alle diese Befehle (von Com- 
modore als »erweiterter Mo- 
dus« bezeichnet) werden 
durch einen Druck auf die 
ESC- und CTRL-Taste eingelei- 
tet. Da die einzelnen Steuerbe- 
fehle im mitgelieferten Hand- 
buch ausführlich genug be- 
schrieben sind, soll Ihnen die 
Tabelle 1 zusammenfassend 
einen Überblick über die wich- 
tigsten Funktionen geben. 

Doch wozu kann man nun 
den Editor verwenden, werden 
Sie sich vielleicht fragen? Mit 
einer Textverarbeitung kann 
doch viel komfortabler gearbei- 
tet werden! Doch dazu dient 
ED ja auch gar nicht. Vielmehr 
ist er dazu da, kleine ASCII- 
Files wie beispielsweise die 
Startdatei oder ähnliche, aus- 
führbare Dateien, sogenannte 
Batch-Dateien, zu erstellen. 

Das Betriebssystem des 
Amiga erlaubt es, verschiede- 
ne Befehle des CLI zu einem 
kleinen Programm zusammen- 
zufassen, das den Sinn hat, 
einzelne Kommandofolgen, 
die häufig gebraucht werden, 
durch einen einzigen Befehl zu 
ersetzen. Versuchen wir doch 
gleich einmal, eine solche aus- 
führbare Datei zu erzeugen! 
Da wir uns bereits im Editor be- 
finden, können wir gleich losle- 
gen. Als Beispiel werden wir 
mit den Befehlen, die wir bis 
jetzt kennengelernt haben, ei- 
ne Batch-Datei erstellen. 

Folgende Befehle, die natür- 
lich auch im Direktmodus ein- 
gegeben werden können, eig- 
nen sich gut für diese Datei: 


DIR 

INFO 

LOADWB 

SETCLOCK opt load 


Der letzte Befehl ist natürlich 
nur dann sinnvoll, wenn Sie 
über die batteriegepufferte 
Echtzeituhr verfügen. 


Geben Sie nun die drei be- 
ziehungsweise vier Befehle im 
ED-Fenster ein und schließen 
jeden Befehl durch <RE- 
TURN> ab. Wenn Sie an- 
schließend <ESC> <X> 
<RETURN> eingeben, wird 
der Editor beendet, nachdem 
die kleine Batch-Datei unter 
dem Namen »Test-Ed« in das 
Hauptdirectory des aktuellen 
Laufwerks gespeichert wurde. 
Sie können sich den Inhalt die- 
ser ASCII-Datei noch einmal 
mit dem Befehl 


TYPE :Test-Ed 


anzeigen lassen. Jedoch kön- 
nen Sie ohne weiteres nichts 
mit dieser Datei anfangen. 
Zum Aufruf eines Batchfiles 
stellt das CLI einen weiteren 
Befehl zur Verfügung: das 
Kommando »EXECUTE«. 


Alle Befehle des Edit 


Nach dem Aufruf des EXE- 
CUTE-Befehls, hinter dem der 
Name der auszuführenden Da- 
tei angegeben werden muß, 
startet der Amiga mit der Aus- 
führung der Batch-Datei. Die 
Abarbeitung kann, wenn erfor- 
derlich, mit <CTRLD> abge- 
brochen werden. 

Um die soeben erzeugte Da- 
tei zu starten, geben Sie also 
folgendes ein: 


EXECUTE :Test-Ed 


Der Amiga wird anschlie- 
Bend das Directory des aktuel- 
len Laufwerks anzeigen, da- 
nach den Zustand und die Be- 
legung der angeschlossenen 
Geräte (Laufwerke) ausgeben 
und schließlich nochmals die 
Workbench laden. Wenn Sie 
den vierten Befehl auch noch 
eingetippt haben, zeigt der 


<CTRL A> — an der aktuellen Cursorposition wird eine Zeile 


eingefügt 


<CTRL B> — die Zeile, in der sich der Cursor gerade befindet, 


wird gelöscht 


<CTRLD> — der Text im ED-Fenster wird um einige Zeilen nach 


unten gescrollt 


<CTRL E> — setzt den Cursor entweder an die obere oder untere 


Begrenzung des ED-Fensters 


<CTRL F>— damit läßt sich der Buchstabe, auf dem sich der Cursor 
befindet, von Kleinschrift auf Großschrift und umgekehrt wechseln 
<CTRL G> — das letzte ESC-Kommando wird noch einmal aus- 


geführt 


<CTRL H> — das Zeichen, das links vom Cursor steht, wird gelöscht 


(Funktion wie die Backspace-Taste) 


<CTRL I> — der Cursor springt auf die nächste Tabulatormarke 
(normalerweise drei Zeichen, Funktion wie TAB-Taste) 

<CTRL O> — Löscht ein Wort oder Leerstellen bis zum Beginn des 
nächsten Wortes oder Leerzeichens 

<CTRL R> — bewegt den Cursor auf den Schluß des vorhergehen- 


den Wortes 


<CTRL T> — bewegt den Cursor auf den ersten Buchstaben des 


nächsten Wortes 


<CTRL U>— der Text im ED-Fenster wird um einige Zeilen nach oben 


gescrollt 


<CTRL V> — das ED-Fenster wird neu gezeichnet (»refresh«) 
<CTRL Y> — der dem Cursor folgende Text wird bis zum Zeilenende 


gelöscht 


<CTRL ]> — positioniert den Cursor auf den Anfang oder das Ende 


der aktuellen Zeile 


<ESC> <A> ”Text” — der in den Anführungszeichen stehende Text 
wird in der nächsten Zeile eingefügt 
<ESC> <B> — der Cursor springt an das Ende des gesamten 


Textes 


<ESC> <B> <E> — die aktuelle Cursorposition wird als das 


Blockende markiert 


<ESC> <B> <$> — die aktuelle Cursorposition wird als Block- 


anfang markiert 


<ESC> <D> — die Zeile, in der sich der Cursor gerade befindet, 


wird gelöscht 


<ESC> <D> <B> — der mit »BS« und »BE« markierte Block wird 


gelöscht 


<ESC> <E> "Texti "Text2” — der Text »Texti« wird durch «Text2» 


ersetzt 


<ESC> <E> <Q> "Texti”Text2” — wie »E«, nur wird vorher eine 


Bestätigung verlangt 


<ESC> <E> <X> — die rechte Randmarkierung wird ignoriert, es 


Tabelle 1. Der Texteditor »ED« beherrscht alle Funktionen, die z 





AMIGA-SONDERHEFT 1 


Amiga nochmals die aktuelle 
Zeit aus der batteriegepuffer- 
ten Uhr an. Der Befehl EXECU- 
TE kann zwar noch viel mehr 
als nur eine Batch-Datei aufru- 
fen, doch diese weiteren Mög- 
lichkeiten werden erst bespro- 
chen, wenn Sie noch weitere 
Befehle kennengelernt haben, 
die sich zur Einbindung in eine 
Batch-Datei eignen. 

Sie können sich natürlich 
auch die Startdatei der Work- 
bench-Diskette mit dem Kom- 
mando 


Ed :s/startup-sequence 


ansehen und mit ihr herumex- 
perimentieren. Achten Sie 
aber vorher darauf, daß die 
Diskette schreibgeschützt ist, 
da Sie sonst unter Umständen 
schwer zu behebende Fehler 
verursachen könnten, wenn 


ED« auf einen Blick 


die möglicherweise veränderte 
Datei auf die Diskette zurück- 
geschrieben wird. Deshalb 
sollte in diesem Fall der Editor 
mit <ESC> <Q> verlassen 
werden, um ein Zurückschrei- 
ben der Batch-Datei zu verhin- 
dern. 


Starten mit 
Komfort 


Das Betriebssystem des 
Amiga kontrolliert bei jedem 
Neustart, ob das »s«-Verzeich- 
nis auf Diskette vorhanden ist 
und ob sich in diesem Directo- 
ry die Startdatei, die »Startup- 
Sequence«, befindet. Ist diese 
vorhanden, wird sie geladen 
und die einzelnen Befehle, die 
in diesem Programm enthalten 
sind, der Reihe nach abgear- 


kann also über das eingestellte rechte Randende hinausgeschrieben 


werden 


<ESC> <F> ”Text” — von der Cursorposition ab vorwärts wird der 
Text nach einer bestimmten Zeichenfolge durchsucht 
<ESC> <I> "Text” — vor der Zeile, in der sich der Cursor gerade 


befindet, wird ein Text eingefügt 


<ESC> <I> <B> — der mit »BS« und »BE« markierte Block wird ab 
der, der Cursorposition folgenden Zeile nochmals eingefügt 

<ESC> <I> <F> "Name” — dieser Befehl gestattet es dem An- 
wender, in der nach dem Cursor folgenden Zeile die Datei »Name« 


einzufügen 


<ESC> <L> <C> — bei der Suche nach einem Text (»F«) soll 
zwischen Groß- und Kleinschreibung unterschieden werden 
<ESC> <N> — der Cursor wird an den Anfang der nächsten Zeile 


gesetzt 


<ESC> <P> — der Cursor wird an den Anfang der vorhergehenden 


Zeile gesetzt 


<ESC> <Q> — der Editor wird verlassen, ohne daß der bearbeitete 
Text gespeichert wird. Vorher erfolgt aber eine Sicherheitsabfrage. 
<ESC> <R> <P> — der nach RP eingegebene Befehl wird so 


lange wiederholt, bis ein Fehler auftritt oder das Textende erreicht ist. 
Beispiel: RP D 

<ESC> <S> <A> "Name” — der Text wird gespeichert, ohne den 
Editor zu beenden. Wird »Name« weggelassen, erfolgt die Speicherung 
unter dem Namen, der beim Aufruf von ED angegeben wurde. 
<ESC> <$> <B> — der mit »BS« und »BE« markierte Block wird 
im ED-Fenster angezeigt 

<ESC> <$> <H> — mit diesem Kommando kann man sich die 
aktuellen Einstellungen des Editors anzeigen lassen 

<ESC> <$> <L> x — Der linke Randsteller wird auf Spalte »x« 
gesetzt 

<ESC> <$> <R> x — Der rechte Randsteller wird auf Spalte »x« 
gesetzt 

<ESC> <$> <T> x — dieser Befehl dient zum Einstellen der 
Tabulatorstopps (der Normalwert beträgt x=3) 

<ESC> <T> — der Cursor wird an den Textanfang gesetzt 
<ESC> <U> — damit werden Änderungen an der aktuellen Zeile 
rückgängig gemacht. Dies funktioniert aber nur, wenn noch nicht 
<RETURN> gedrückt wurde. 

<ESC> <U> <C> — bei der Suche nach Text (»F«) wird nicht 
zwischen Groß- und Kleinschreibung unterschieden 

<ESC> <W> <B> ”Name” — der mit »BS« und »BE« markierte 
Block wird in die Datei »Name« gespeichert 

<ESC> <X> ”Name” — mit diesem Befehl wird der Text gespei- 
chert und ED beendet. Wird dabei »Name« nicht angegeben, so be- 
nutzt ED den Namen, der beim Editor-Aufruf mit angegeben wurde. 





Bearbeiten von ASCII-Texten erforderlich sind 
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beitet. Wie dies in etwa funktio- 
niert, zeigt Ihnen Bild 4. 

Wir beschäftigen uns jetzt 
mit CLI-Befehlen, die sich her- 
vorragend zum Einbau in eine 
Batch-Datei eignen, auch 
wenn die meisten dieser Be- 
fehle genausogut im Direktmo- 
dus eingegeben werden kön- 
nen. 

Beginnen wir zuerst mit ei- 
nem der einfachsten Befehle, 
mit ECHO, das der Ausgabe ei- 
nes Textes dient. ECHO ist ei- 
gentlich nur sinnvoll, wenn es 
in eine Batch-Datei eingebun- 
den wird (Wer will schon im Di- 
rektmodus einen Text ausge- 
ben?). Ein Beispiel für einen 
Einsatz von ECHO: Sie möch- 
ten gerne aktuell darüber infor- 
miert sein, was der Amiga ge- 
rade in der Startdatei bearbei- 
tet und wünschen eine Ausga- 
be eines betreffenden Textes 
im CLI-Fenster. Dazu wird ein- 


fach der ECHO-Befehl vor je-, 


den Befehl in der Batch-Datei 
gesetzt. Erstellen wir uns 
gleich eine Stapeldatei. Geben 
Sie dazu bitte folgendes ein: 


ED RAM:Test 


Damit erstellen Sie im RAM 
eine kleine Stapeldatei, die 
später mit 
EXECUTE RAM:Test 


ausgeführt wird. Dawirnurden 
ECHO-Befehl kennenlernen 
wollen, genügt eine kleine Be- 
fehlsfolge. Zu beachten ist bei 
ECHO nur, daß der auszuge- 
bende Text in Anführungszei- 
chen stehen und vom Rest 
durch ein Leerzeichen ge- 
trennt sein muß. Tippen Sie bit- 
te folgende Zeilen im ED ein 
und beenden den Editor an- 
schließend mit <ESC X> 
<RETURN>: 


ECHO "Lese Directory” 
ECHO *” 

DIR dfO: 

ECHO “Erstelle Info” 
ECHO ”” 

INFO 

ECHO "Lade Workbench” 
ECHO ”” 

LOADWB 


Die ersten beiden Zeilen ge- 
ben auf dem Bildschirm den 
Text »Lese Directory« und eine 
Leerzeile aus. Nach Ausgabe 
dieser Meldung liest der Amiga 
das Inhaltsverzeichnis der in 
das interne Laufwerk (df0) ein- 
gelegten Diskette und zeigt es 
am Bildschirm an. Als näch- 
stes gibt der Computer wieder 
einen Text aus: »Erstelle Info«, 
gefolgt von einer Leerzeile. Der 
darauf folgende Befehl INFO 
informiert Sie über die ange- 
schlossenen Laufwerke und 


Kurse 


Geräte. Nach der dritten Text- 
ausgabe »Lade Workbench« 
wird noch einmal die Work- 
bench geladen und die Disket- 
tensymbole »erneuert«. Der 
ECHO-Befehl kann jederzeit in 
eine Batch-Datei eingebunden 
werden, um beispielsweise ak- 
tuelle Tätigkeiten oder benut- 
zereigene Meldungen (etwa 
»Hallo User ...«) anzuzeigen. 
Ebenfalls zum Einbinden in 
eine Batch-Datei ist FAILAT ge- 
dacht. FAILAT dient dem Anhe- 
ben des »Fehlerniveaus« beim 
Abarbeiten einer Stapeldatei: 
Erläutern wir dies genauer: 
Jedesmal, wenn bei der Aus- 
führung eines Stapeldatei-Be- 
fehls ein Fehler auftritt, liefert 
Amiga-DOS je nach Schwere 
der Fehlfunktion einen Wert 
zurück. Je nach Höhe des ein- 
gestellten Fehlerniveaus wird 
entweder auf den Fehler rea- 
giert, oder er wird ignoriert. 
Standardeinstellung bei der 
Ausführung einer Batch-Datei 
ist der Wert 10. Dies bedeutet, 
daß die weitere Bearbeitung 
der Stapeldatei unterbrochen 
wird, wenn ein Fehler mit ei- 
nem größeren Wert als 10 ge- 
meldet wird. Es gibt beispiels- 
weise leichte Fehler mit dem 
Wert 5, bei denen vom Amiga- 
DOS Warnungen ausgegeben 
werden. Will man aber nicht, 
daß die Weiterführung, aus 
welchen Fehlergründen auch 
immer, abgebrochen wird, 
kann man das Fehlerniveau er- 
höhen. So sichert etwa 


FAILAT 30 


oder ein höher angesetztes 
Fehlerniveau, daß die Abarbei- 
tung der Batch-Datei nicht ge- 
stoppt wird. Nach Beendigung 
der Befehlsausführung der 
Stapeldatei wird der Wert von 
Amiga-DOS automatisch wie- 
der auf 10 gesetzt. Das Ab- 
bruchniveau ist also nur solan- 
ge gültig, wie die Stapeldatei 
abgearbeitet wird. 


Einbindung des 
PC-Systems 


Ein weiterer Befehl, der aber 
nur für Besitzer von PC-Erwei- 
terungen (etwa ‘der Janus- 
PC/AT-Karte) Bedeutung be- 
sitzt, ist BINDDRIVERS. Die- 
ser Befehl läßt sich sowohl im 
Direktmodus wie auch in Sta- 
peldateien verwenden. 

BINDDRIVERS, das ohne 
zusätzliche Parameter einge- 
geben wird, ermöglicht erst die 
Einbindung des PC-Systems 
in das Amigasystem. Es ist 
quasi das Kommando, den 
PCJAT zum Leben zu erwecken 
und seine Tätigkeit als Task in 
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das Amigasystem einzuflech- 
ten. Dieser Befehl sollte, wenn 
er benötigt wird, immer am An- 
fang der auszuführenden 
Batch-Datei stehen (nach FAIL- 
AT, wenn vorhanden). 

Ebenso leicht zu erklären ist 
die Anweisung STACK. Jedem 
CLI-Befehl wird vor seiner Aus- 
führung ein bestimmter Spei- 
cherbereich (Stapelspeicher) 
reserviert, den er, falls zur Be- 
fehlsausführung nötig, ver- 
wenden kann. Im Normalfall 
sind dies 4000 Byte. Es gibt 
aber einige CLI-Befehle, die 
mehr Platz für die Ablage von 
Daten benötigen (etwa DIR 
oder SORT). Um diesen Befeh- 
len mehr Stapelspeicher zu ge- 
währen, dient STACK. Willman 
die Größe des aktuellen Sta- 
pelspeichers erfahren, ist 
STACK ohne Parameter einzu- 
geben. Soll dagegen der Sta- 
pel verändert werden, muß 
man, durch ein Leerzeichen 
getrennt, die Größe des neuen 
Bereichs angeben (diese Grö- 
Be sollte aber mindestens 4000 
Byte betragen). Ein Beispiel: 


STACK 8000 


Nach Eingabe dieses Kom- 
mandos stehen den CLI-Be- 
fehlen nun 8000 Byte Stapel- 
speicher zur Verfügung. 


Gegen Disket- 
tenwechsel 


Gerade für Besitzer von nur 
einem Laufwerk oder einer zu- 
sätzlichen Festplatte ist folgen- 
der Befehl geeignet: ASSIGN. 
Doch um den Befehl zu verste- 
hen, ist erst eine Erklärung 
über einen Teil des Amiga- 
Betriebssystems nötig. 

Für das Amiga-DOS existie- 
ren verschiedene Standard- 
verzeichnisse (Directories), in 
denen nach bestimmten Datei- 
en gesucht wird. So sucht das 
Betriebssystem beispielsweise 
jeden CLI-Befehl im »c«-Di- 
rectory und Zeichensätze im 
»fonts«-Ordner. Beim Start mit 
einer Workbench-Diskette sind 
diese Verzeichnisse, wenn 
nicht anders angegeben, auf 
die Startdiskette fixiert. Dies 
bedeutet: auch wenn Sie die 
Startdiskette entnehmen und 
eine andere Diskette einlegen, 
auf der die gleichen Dateien 
enthalten sind, wird der Amiga, 
wenn man beispielsweise ei- 
nen CLI-Befehl eingibt, immer 
das Einlegen der Startdiskette 
verlangen. Das bedeutet, daß 
er es nicht registriert, wenn 
auch auf der eingelegten Dis- 
kette der benötigte Befehl im 
»C«-Directory vorhanden ist. 
Geben Sie bitte zum weiteren 
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Neustart/Reset 












Ist bootfähige 


Diskette in dfO eingelegt? 









Verlange nach Workbench 









ja 


nein 


ja 


Sieh nach, ob Startdatei 
>>Startup-Sequence<< im 
Ordner >>S<< vorhanden 


Lade Stapeldatei 
Fahre ersten Befehl aus 
Fehler aufgetreten 
Fahre nächstes 
Kommando aus 
Stapeldatei abgearbeitet? 
Ende, weiter mit 
aktuellen Programm 






öffne CLI-Task und 
gib PROMPT aus, 
dann Ende 





























Ausgabe Fehler— 
meldung etc. 


ja 


Bild 4. Die Startdatei »Startup-Sequence« wird vom Amiga- 
DOS beim Start in dieser Art und Weise behandelt 


Verständnis folgendes ein: 
ASSIGN 


Es wird eine Liste ausgege- 
ben, anhand der man erken- 
nen kann, welche Ordner (Ver- 
zeichnisse) auf welches Gerät 
fixiert sind. Im Normalfall sind 
alle Verzeichnisse auf die 
Startdiskette festgelegt! 

Besitzer von nur einem Lauf- 
werk kennen sicher das Pro- 
blem: Sie möchten etwa von ei- 
ner anderen Diskette das Di- 
rectory lesen, aber der Amiga 
verlangt immer wieder die 
Startdiskette und nichts klappt. 
Abhilfe schafft nun folgendes: 

Sie kopieren die Befehle, die 
häufig benötigt werden (bei- 
spielsweise DIR, LIST, INFO) 
ins RAM und lassen die Befeh- 
le von dort aus ausführen. Bei 
allen Befehlen, die sich dann 
im RAM befinden, wird der 
Amiga nun nicht mehr das Ein- 
legen der Startdiskette verlan- 
gen. Alles, was zum Gelingen 
dieser Prozedur nötig ist, ist 
außer dem Vorhandensein der 
Befehle im RAM die Mitteilung 
an den Amiga, wo diese Befeh- 


le nun zu finden sind. Dies 
macht ASSIGN. Probieren wir 
dies nun im kleinen Rahmen 
durch. Geben Sie bitte die fol- 
genden Befehle ein, die natür- 
lich auch in einer Batch-Datei 
stehen können: 


MAKEDIR RAM:c 

COPY e/dir RAM:c 
COPY e/list RAM:c 
CoPY e/info RAM:c 
COPY c/assign RAM:c 


Nun befinden sich die Be- 
fehle DIR, LIST, INFO und AS- 
SIGN im RAM, und zwar im zu- 
vor mit MAKEDIR erzeugten 
»C«-Verzeichnis. Doch der Ami- 
ga greift noch immer auf die 
Startdiskette zu, da wir ihm 
noch nicht mitgeteilt haben, 
daß die Befehle jetzt im RAM 
stehen. Wenn Sie als Abschluß 


ASSIGN c: RAM:c 


eingeben, werden die CLI-Be- 
fehle von jetzt ab aus dem 
RAM geholt (natürlich nur die- 
jenigen, die ins RAM kopiert 
wurden). Es empfiehlt sich, im- 
mer ASSIGN in das neue Ver- 


zeichnis mitzukopieren, damit 
ASSICN c: dfO:c 


wieder auf ein anderes Gerät fi- 
xiert werden kann. Und das ist 
leider nicht mehr so einfach 
möglich, wenn sich ASSIGN 
nicht im aktuellen Ordner be- 
findet. 

Ebenso können natürlich 
auch alle anderen Verzeichnis- 
se wie etwa »devs« oder »libs« 
neu fixiert werden. Wie viele 
Dateien Sie auf andere Geräte 
festlegen, ist nur durch den 
Speicherbereich der betreffen- 
den Einheiten eingeschränkt. 

Für Festplattenbesitzer ist 
der ASSIGN-Befehl natürlich 
noch interessanter. Sie können 
sämtliche Standard-Verzeich- 
nisse (etwa devs, |, libs, fonts 
und c) auf ihre Festplatte in- 
stallieren und in die Startdatei 
der Workbench-Diskette einige 
Zeilen einbauen, die sämtliche 
Ordner auf die Festplatte fixie- 
ren. Danach wird (sofern sich 
der betreffende Befehl wirklich 
im »c«-Ordner der Platte befin- 
det) nicht mehr das Einlegen 
der Startdiskette verlangt, was 
häufigen Diskettenwechsel er- 
spart. Folgendes, in die Start- 
datei eingebundene Beispiel 
würde einige Standardver- 
zeichnisse (soviel Sie wollen) 
auf die Festplatte »dhO« festle- 
gen (für Amiga 2000-Besitzer 
mit PC-Festplatte wäre dies 
das Laufwerk »jhO«): 


ASSIGN e: dhO:c 

ASSIGN devs: dhO:devs 
ASSIGN 1: dh0:1 

ASSIGN libs: dhO:libs 
ASSIGCN fonts: dhO: fonts 
ASSICN sys: dhO:sys 


Wichtig bei ASSIGN ist die 
richtige Syntax, also die 
Schreibweise. Es muß immer 
der Quellordner zuerst ange- 
geben werden. Danach folgt 
das Zielgerät und ohne Leer- 
zeichen dazwischen der Ziel- 
ordner. 


Schleifen- 
programmierung 


Was nun folgt, ist ein um- 
fangreiches und äußerst nützli- 
ches Werkzeug des CLI, mit 
dem man Batch-Dateien erstel- 
len kann, die abhängig von 
Entscheidungen verschiedene 
Dinge erledigen können. Das 
Werkzeug ist die Schleifenpro- 
grammierung, die man mit den 
Befehlen IF, THEN, ELSE und 
ENDIF verwirklichen kann. 
Diese vier Befehle lassen sich 
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nur in Batch-Dateien verwen- 
den, im Direktmodus führen 
sie zu keinem Ergebnis. 

IF prüft auf ein Ereignis. Ist 
dieses wahr, so wird eine vor- 
her bestimmte Befehlsfolge 
ausgeführt, die im Regelfall 
hinter THEN steht. THEN muß 
nicht unbedingt angegeben 
werden. Fehlt THEN, werden 
die folgenden Anweisungen so 
lange ausgeführt, bis das Be- 
triebssystem auf die Befehle 
ELSE oder ENDIF trifft. 

Stimmt das Ergebnis nicht, 
erfolgt die Ausführung einer 







Fehler >= 10 
aufgetreten 


THEN Dann Kommando 1 





ENDIF 


abarbeiten 
Kommando 1 
fertig bearbeitet? 






Beende If-Schleife 


Zur Erklärung des Beispiels: 
Es wird geprüft, ob ein Fehler 
mit dem Wert >=10 aufgetre- 
ten ist. Wenn ja, führt der Ami- 
ga »(Kommando 1)« aus. Ist da- 
gegen die Bedingung nicht er- 
füllt worden, fährt der Amiga 
mit der normalen Abarbeitung 
der Befehlsfolge fort. Wenn es 
Sie wundert, daß zwei ver- 
schiedene Möglichkeiten zur 
Auswahl stehen, so können wir 
Sie beruhigen. Im obigen Fall 
kann die ELSE-Zeile auch weg- 
gelassen werden, wenn nicht 
zwingend eine Reaktion bei 


(nicht zwingend erforderlich) 


Kommando 2 
fertig bearbeitet? 









Bild 5. Wenn in der Batch-Datei ein Fehler > =10 aufgetre- 
ten ist, wird Kommando 1 abgearbeitet (IF-THEN) 


anderen Befehlsfolge, die hin- 
ter ELSE beginnt und durch 
ENDIF abgeschlossen wird. 
Um nun die einzelnen Ereig- 
nisse genauer zu spezifizie- 
ren, werden hinter IF verschie- 
dene Bedingungen angege- 
ben. Drei Schlüsselworte ste- 
hen für die Abfrage des aufge- 
tretenen Fehlerwertes (siehe 
FAILAT). Diese drei Bedingun- 
gen sind WARN für einen Feh- 
lerwert >=5, ERROR bei ei- 
nem Fehlerniveau >=10 und 
FAIL, wenn ein Wert > =20 zu- 
rückgemeldet wurde (dies 
funktioniert aber nur, wenn der 
Fehlerlevel mit FAILAT auf die 
gewünschten Gegebenheiten 
angepaßt wurde). Ein Beispiel 
(siehe dazu auch Bild 5): 


IF Error THEN (Kommando 
1) 

ELSE (Kommando 2) 
ENDIF 


oder 
IF Error THEN (Kommando 


1) 
ENDIF 
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nicht erfüllter Bedingung ge- 
wünscht wird. Falls in diesem 
Fall normal weitergemacht 
werden soll, entfällt die ELSE- 
Zeile. 

Es gibt aber noch weitere 
Bedingungen: Eine davon ist 
EXISTS. Bei Angabe dieses 
Schlüsselworts prüft der Ami- 
ga, ob auf einer Diskette eine 
bestimmte Datei vorhanden 
ist. Ein weiteres Beispiel (siehe 
auch Bild 6): 


IF EXISTS Preferences 

THEN (Kommando 1) 

ELSE (Kommando 2) 
ENDIF 

Ist die Datei Preferences auf 

der aktuellen Diskette vorhan- 
den, wird »(Kommando 1)« aus- 
geführt. Wenn nicht, arbeitet 
der Amiga »(Kommando 2)« ab. 
Auch hier gilt: Wenn nicht zwin- 
gend eine Reaktion auf ein 
Nichtvorhandensein von »Pre- 
ferences« nötig ist, kann die 
ELSE-Zeile entfallen. Die dritte 
Bedingung ist EQ. Bei Angabe 
dieser Bedingung prüft Amiga- 
DOS, ob zwei Dateien gleich 
sind (Bild 7): 


IF (Datei 1) EQ (Datei 
2) THEN (Kommando 1) 
ELSE (Kommando 2) 
ENDIF 


Stimmen die Dateien »(Datei 
1)« und »(Datei 2)« überein, 
wird »Kommando 1« abgear- 
beitet. Ansonsten gilt das glei- 
che wie bereits gesagt. 

Da aber möglicherweise auf 
eine Nichtübereinstimmung 
geprüft werden könnte, läßt 
sich auch ein Teil der Abfrage 
negieren, das heißt, umkeh- 
ren. Die Bedingung dafür lau- 
tet NOT. 


IF (Datei 1) NOT EQ 
(Datei 2) THEN 
(Kommando 1) 

ELSE (Kommando 2) 

ENDIF 


(Kommando 2) würde in die- 
sem Fall nur ausgeführt wer- 
den, wenn die Dateien gleich 
sind (Bild 7). 

Die IF-THEN-ELSE-ENDIF- 
Konstruktionen können auch 
ineinander verschachtelt wer- 
den, was eine komplexe Batch- 
Programmierung ermöglicht. 
Nach dieser etwas schwerer 
verdaulichen Befehlskombina- 
tion zum Abschluß dieses 
Kursteils noch ein Kommando, 
welches leicht zu verstehen 
und sehr nützlich ist: PRO- 
TECT. Damit können Dateien 
gegen Schreiben und Lö- 
schen, Lesen und Aufrufen ge- 
schützt werden. Wenn Sie sich 
mit dem LIST-Befehl ein Direc- 
tory ausgeben lassen, können 
Sie nach dem Datum vier ver- 
schiedene Buchstaben in je- 
der Zeile sehen, die den Status 
der Datei anzeigen. Diese vier 
Buchstaben (r-w-e-d) haben 
folgende Bedeutung: 

»r« — die Datei kann gelesen 
werden, 

»w« — das File läßt sich über- 
schreiben, 

»e« — die Datei kann als Kom- 
mando aufgerufen werden, 
»d« — die Daten lassen sich lö- 
schen. 


Datenschutz 
eingebaut 


Mit dem PROTECT-Befehl 
können nun gezielt die einzel- 
nen Flags (Schalter) beeinflußt 
werden. Dabei ist die Schreib- 
weise wie folgt: 

PROTECT NAME Datei 
FLAGS xxxx 


Es werden nur die Flags ge- 
setzt, die auch angegeben 
sind. Um also ein Flag der Da- 
tei zu löschen, müssen die ver- 
bleibenden drei Flags gesetzt 


Kurse 


werden, das vierte wird auto- 
matisch gelöscht: 


PROTECT NAME df1:Test 
FLAGS re 


würde die Datei »Test« gegen 
Löschen und Überschreiben 
schützen, da nur die Flags »r« 
und »e« gesetzt werden. 

Bei der PROTECT-Methode 
ist allerdings eines zu beach- 
ten. Wenn Sie mit »Snapshot« 
die Lage einzelner Icons in ei- 
nem Window dauerhaft fest- 
halten wollen, dürfen die ».in- 
fo«-Files nicht schreibge- 
schützt sein! Dies liegt daran, 
daß in den Icon-Dateien die La- 
ge des später auf dem Work- 
bench-Screens erscheinen- 
den Bildsymbols eingetragen 
wird. 

Um eine flexible Ausfüh- 
rungsdatei programmieren zu 
können, stellt das CLI ver- 
schiedene Befehle zur Verfü- 
gung wie etwa IF..THEN..ELSE 
..ENDIF-Konstruktionen, die 
besprochen wurden. Es exi- 
stiert noch eine zweite Befehls- 
kombination, die in etwa mit 
dem von Basic her bekannten 
Befehl GOTO gleichzusetzen 
ist. Es sind dies die Befehle 
SKIP und LAB. 


Ist die Datei 
IF Preferences auf der 


aktuellen Disk enthalten? 


ja 


Dann Kommando 1 


HEN abarbeiten 





Bild 6. Um festzustellen, ob 
eine Datei auf der aktuellen 
Diskette enthalten ist, dient 
die IF-Bedingung EXISTS 
(den Rest des Bildes entneh- 
men Sie bitte Bild 5) 


IF Datei 1 = Datei 2? 
(NOT)| (Datei 1 Datei 2)? 


ja 


Dann Kommando 1 


AbEN abarbeiten 





Bild 7. Durch eine gezielte IF- 
Abfrage läßt sich auch fest- 
stellen, ob zwei Dateien den 
gleichen Inhalt besitzen (den 
Rest des Bildes entnehmen 
Sie bitte Bild 5) 
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LAB dient dazu, eine 
Sprungmarke zu fixieren, zu 
der mit SKIP gesprungen wer- 
den kann. Ein Beispiel: 


BINDDRIVERS 
LOADWB 


SKIP Markei 
LAB Markei 


Alle Befehle, die auf die LAB- 
Zeile folgen, werden nach dem 
Sprung zu der definierten Mar- 
ke weiterbearbeitet. Es müs- 
sen nur noch die Bedingungen 
definiert werden, bei denen ein 
Sprung erfolgen soll (siehe 
Schema in Bild 8). Eine Mög- 
lichkeit dafür ist eine IF- 
Abfrage: 


IF EXISTS Preferences 
THEN setze Abarbeitung 
fort 

ELSE SKIP Markel 

ENDIF 


ENDCLI > NIL: 

LAB Markei 

ECHO "Datei nicht vorhan- 
den” 

ENDCLI > NIL: 


Bei unserem Beispiel wird 
zuerst geprüft, ob die Datei 
»Preferences« auf dem aktuel- 
len Laufwerk vorhanden ist. Ist 
dies der Fall, arbeitet der Ami- 
ga die Batch-Datei weiter ab. 
Ist die Datei aber nicht vorhan- 
den, springt das Betriebssy- 
stem mit SKIP zu der mit LAB 
definierten Marke und führt die 
Befehle aus, die der LAB-Zeile 
folgen. Anschließend wird das 
CLI-Fenster geschlossen. Die- 
se Kombination kann also ein- 
gesetzt werden, um mehr 
Struktur in eine Stapeldatei zu 
bringen. Allerdings ist es wohl 
in den seltensten Fällen nötig, 
diese Kombination zu verwen- 
den, da sich ein solches Pro- 
blem auch anders lösen läßt. 

Ein weiterer, allerdings sel- 
ten gebrauchter Befehl ist 
QUIT. Dieser Befehl dient zum 
Beenden von Stapeldateien 
und Kommandofolgen und 
kann beispielsweise anstelle 
von ENDCLI stehen. Im Unter- 
schied zu ENDCLI wird bei 
QUIT das CLI-Fenster nicht ge- 
schlossen. Verändern wir doch 
das obige Beispiel, indem wir 
QUIT einbauen: 
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IF EXISITS Preferences 
THEN setze Abarbeitung 
fort 

ELSE SKIP Marke 

ENDIF 


QuUIT 

LAB Markel 

ECHO "Datei nicht vorhan- 
den” 

QuIT 


Die Datei tut nichts anderes 
als oben beschrieben. Einzi- 
ger Unterschied ist, daß nach 
der Abarbeitung das CLI-Fen- 
ster nicht geschlossen wird, 
was bei ENDCLI der Fall wäre. 

Quit kann aber noch mehr: 
Wenn hinter dem Befehl ein 
Parameter angegeben wird, 
setzt Amiga-DOS diesen Wert 
nach Beendigung des Befehls 
automatisch als neues Fehler- 
niveau fest: 


QUIT 40 


Nach Beendigung des 
QUIT-Befehls würde das Feh- 
lerniveau also den Wert 40 auf- 
weisen. Der Befehl, der wie 
auch SKIP und LAB nur in Sta- 
peldateien verwendet werden 
kann, ist sicher nicht dafür ge- 
eignet, dauernd eingesetzt zu 
werden. In speziellen Situatio- 
nen kann er aber eine nützli- 
che Anwendung finden. 


Batchen mit 
Komfort 


Mit Batch-Dateien läßt sich 
also eine Menge anfangen. 
Um aber ganz flexibel damit zu 
arbeiten, kann man beim Auf- 
ruf der Stapeldatei gleich ei- 
nen Parameter übergeben, mit 
dem in der Befehlsdatei gear- 
beitet wird. Das könnte bei- 
spielsweise der Name eines 
Programms sein. Für das fol- 
gende Beispielnehmen wir an, 
daß eine Befehlsfolge pro- 
grammiert werden soll, die ei- 
ne beliebige Datei mit einer be- 
stimmten Folge von Befehlen 
»bearbeitet«. Wir möchten, daß 
im Beispiel die (beliebige) Da- 
tei zuerst einmal in die RAM- 
Disk kopiert wird, von dort auf 
Bildschirm und Drucker aus- 
gegeben und auf eine in »dfl« 
eingelegte Diskette kopiert 
wird. Dieser Vorgang ergibt 
zwar keinen rechten Sinn, 
doch dient er hervorragend zur 
Demonstration über den Auf- 
bau einer flexiblen Stapeldatei. 

Wir möchten erreichen, daß 
nur einmalig beim Aufruf der 
Batch-Datei der Name des Pro- 


gramms übergeben wird, mit 
dem wir den Vorgang durch- 
führen. Da in der Befehlsdatei 
der Name des Programms si- 
cher öfter verlangt wird, ist es 
das einfachste, einen Platzhal- 
ter dafür einzusetzen. Genau 
dies erreicht man mit der Defi- 
nition ».KEY Name«. 

Bei Angabe dieser Definition 
am Beginn der Datei wird dem 
Amiga mitgeteilt, daß hinter 
dem Namen der Batch-Datei 
noch ein weiterer Parameter 
folgt. Hinter dem Namen kann, 
durch einen Schrägstrich ge- 
trennt, stehen, ob der Parame- 
ter nötig ist (/A). Ein Beispiel: 
.key name/a 
LOADWB 

Nehmen wir an, der Name 
der Batch-Datei wäre »Test« 
und der des zu bearbeitenden 
Programms »xyz«. Über die Ta- 


statur müssen Sie zum Aufruf 
dieser Stapeldatei 


EXECUTE Test xyz 


eingeben. Ab jetzt würde über- 
allin der Batch-Datei, wo <Na- 
me> steht, der Platzhalter 
»Xyz« eingesetzt. Für unser 
Beispiel sieht die zu erstellen- 
de Stapeldatei so aus: 


.KEY name/a 

COPY <NAME> TO ram: 
TYPE ram: <Name> 

COPY ram: <Name> TO prt: 
COPY ram: <Name> TO df1: 


Anstelle von <Name> fin- 
det sich bei der Abarbeitung 
der mit dem Aufruf übergebe- 
ne Name der zu bearbeitenden 
Datei. Es kann aber vorkom- 
men, daß eine Befehlsfolge 
programmiert werden soll, bei 
der nicht unbedingt ein Name 
übergeben werden soll. Wir 
wollen annehmen, daß in die- 
sem Fall ein vorher bestimmter 
Platzhalter eingesetzt wird. 
Die Definition ».DEF Name 
Name2« bestimmt, daß, wenn 
kein Name beim Aufruf über- 
geben wird, ein definierter 
Platzhalter Verwendung findet. 
In diesem Fall muß das »/A« 
hinter .KEY entfallen, damit 
nicht zwingend ein Übergabe- 
parameter angefordert wird: 


.KEY name 

„DEF name xxx 

COPY <NAME> TO ram: 
TYPE ram: <Name> 

COPY ram: <Name> TO prt: 
COPY ram: <Name> TO df1: 


Gibt der Anwender jetzt 
beim Aufruf mit EXECUTE kei- 
nen Namen mehr an, setzt der 
Amiga anstelle von <Name> 
die mit .DEF bestimmte Zei- 
chenkette »xxx« ein. 


Speziell für den Amiga 1000 
sind einige RAM-Erweiterun- 
gen zum internen oder exter- 
nen Anschluß erhältlich, die 
teilweise den Nachteil aufwei- 
sen, daß sie nicht autokonfigu- 
rierend sind. Das bedeutet, 
daß sie vom Betriebssystem 
beim Initialisieren nicht auto- 
matisch erkannt werden. Um 
diese Speichererweiterungen 
dem Amiga doch noch zu- 
gänglich zu machen, gibt es 
den sowohl im Direkt- wie auch ' 
im Programmodus einsetzba- 
ren Befehl ADDMEM. 


Das Zusatz-RAM 
wird aktiv 


Er teilt dem Amiga mit, daß 
neuer Speicher einzubinden 
ist und an welcher Speicher- 
adresse er beginnen soll. Dazu 
muß die Startadresse des neu- 
en Speicherbereichs, also wo 
man ihn gerne haben will, und 
die Länge des RAM-Bereichs 
+1 angegeben werden. Zum 
Beispiel könnte der Aufruf für 1 
MByte mehr Speicher, begin- 
nend ab $200000, so lauten: 


ADDMEM 200000 300000 


Nach Bestätigung des Be- 
fehls mit <RETURN> steht 
dem Anwender der neue RAM- 
Bereich sofort zur Verfügung. 

Von Zeit zu Zeitkann es nötig 
werden, daß mehrere Einzel- 
dateien (etwa Textfiles) zu ei- 
nem einzigen File verbunden 
werden müssen. Damit die Sa- 
che nicht zu umständlich wird, 
stellt das CLI den Befehl JOIN 
zur Verfügung. Er erlaubt, ma- 
ximal fünfzehn Einzeldateien 
zu einer neuen Gesamtdatei 

»zusammenzuschweißen«. 
Die einzige Bedingung beim 
Aufruf ist, daß die neue Datei 
einen anderen Namen als eine 
der Einzeldateien erhalten 
muß. Die zu verbindenen Da- 
teien müssen in der Reihenfol- 
ge, wie sie verbunden werden 
sollen, dem Befehl folgen: 


JOIN Text1 Text2 ASText3 


Die Dateien »Texti« und 
»Text2« werden zu der neuen 
Datei »Text3« vereint. 


Tasks auf Trab 


Einer der wohl am häufig- 
sten gebrauchten Befehle im 
CLI ist RUN. Dieses äußerst 
nützliche Programm erlaubt 
es, vom CLI aus ein Programm 
(einen Task/Prozeß) zu starten, 
das abläuft, ohne das CLI zu 
blockieren. Um dies verständli- 
cher zumachen, geben Sie bit- 
te folgendes ein: 


Preferences <RETURN> 
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Sobald der Preferences- 
Screen erschienen ist, legen 
Sie ihn mittels des Hinter- 
grundschalters oben rechts 
nach hinten, so daß das CLI 
wieder sichtbar ist. Versuchen 
Sie, im CLl irgend einen Befehl 
einzugeben. Sie werden fest- 
stellen, daß das CLI keine Ein- 
gaben mehr verarbeitet. Holen 
Sie Preferences wieder in den 
Vordergrund und beenden das 
Programm mit dem Schließ- 
schalter (Gadget) links oben. 

Nun probieren wir folgenden 
Befehl aus: 


RUN Preferences 
<RETURN> 
Wiederholen Sie die Proze- 


dur und geben einen Befehl im 
CLI ein. Sie sehen, das eben 


EXECUTE Name 


Befehlsfolge 


Fehler aufgetreten? 


SKIP zu Marke 
LAB xxx 


LAB xxx: Hier weiter 
mit auf LAB 
folgenden Kommandos 


RUN COPY dfO:Disk.info 
TO df0:Test.info+ 
DELETE dfO0:Test.info+ 
ECHO "Fertig! ” 


Während der Anwender 
nach dem Aufruf ungestört mit 
dem CLI weiterarbeiten kann, 
kopiert das Betriebssystem die 
Datei »Disk.info« in das File 
»Test.info« und löscht die Kopie 
anschließend. Erst durch die 
Meldung »Fertig!« bekommt 
der Benutzer mit, daß der Vor- 
gang abgeschlossen ist. 

Ein selten benutzter Befehl 
des CLI ist »EDIT«. EDIT ist ein 
wenig komfortabler Zeilenedi- 
tor, der nur gestattet, vorhan- 
dene, sequentiell aufgebaute 
Dateien zu bearbeiten. Es ist 
nicht möglich, von EDIT aus 


Weiter mit 
Abarbeitung der 
Stapelbefehle 





Bild 8. Die SKIP/LAB-Kombination funktioniert in etwa wie 
der von Basic her gewohnte Sprungbefehl GOTO 


gestartete Preferences-Pro- 
gramm arbeitet im Hinter- 
grund, während das CLI wei- 
terhin Eingaben annimmt und 
verarbeitet. Der Befehl RUN 
startet also vom CLI aus ein 
Programm und gibt die _Kon- 
trolle anschließend zurück, so 
daß das Command-Line-Inter- 
face nicht blockiert ist. RUN ist 
ein äußerst nützlicher Befehl, 
der sowohl im Direkt- wie auch 
im Programmodus eingege- 
ben werden kann und das Mul- 
titaskingsystem nicht an seiner 
Entfaltung hindert. 

Aber RUN kann noch mehr: 
Mit einem einzigen Aufruf las- 
sen sich auch mehrere Prozes- 
se starten. Dazu muß nur zwi- 
schen jedem neuen Befehl ein 
»+« gesetzt werden. 
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neue Dateien zu erzeugen. Da 
dieser Editor außerdem nur mit 
Binärdateien etwas anfangen 
kann und auch sonst relativ 
selten eingesetzt wird, gehen 
wir in diesem Kurs nicht näher 
darauf ein. Hauptsächlich ge- 
dacht ist dieses zeilenorientiert 
arbeitende Programm wohl für 
Programmierer, die beispiels- 
weise Maschinenprogramme 
oder ähnliches editieren wol- 
len. Der nächste interessante 
CLI-Befehl ist VERSION. Der 
Befehl ist ohne Parameter an- 
zugeben. Er zeigt die Versions- 
nummern der Kickstart- und 
der Workbench an. So können 
Sie jederzeit erfahren, ob Sie 
die aktuellen Versionen besit- 
zen (derzeit Kickstart 33.180/ 
Workbench 33.60). 


Kommen wir nun zu den Be- 
fehlen des CLI, die etwas mit 
Zusatzgeräten wie beispiels- 
weise Festplatten oder Zusatz- 
laufwerken zu tun haben. 

Der erste dieser Spezialbe- 
fehle ist DJIMOUNT. Dieser Be- 
fehl kann nur dann eingesetzt 
werden, wenn Sie einen Amiga 
2000 mit PC-/AT-Karte besit- 
zen, in den eine Festplatte ein- 
gebaut ist, die über einen Con- 
troller auf der MS-DOS-Seite 
gesteuert wird. Dieses Kom- 
mando sagt dem Amiga, daßer 
die für ihn eingerichtete Parti- 
tionierung auf der PC-Festplat- 
te benutzen soll. Dazu eine 
kurze Erklärung: Bei der Parti- 
tionierung wird eine Festplatte 
(Hard-Disk) in einzelne Berei- 
che aufgeteilt. 


Das Einrichten 
der Festplatte 


Jeder Bereich kann von ei- 
nem anderen Betriebssystem 
belegt werden. Angenommen, 
Sie besitzen eine 20-MByte- 
Festplatte mit zwei Platten und 
vier Köpfen, wobei jede Platte 
612 Spuren hat (0 bis 611). Es 
wird gewünscht, daß jeweils 
10 MByte für MS-DOS und 10 
MByte für Amiga-DOS zur Ver- 
fügung stehen. Also wird der 
Festplatte (genauer: dem 
Festplatten-Controller) mitge- 
teilt, daß die Spuren O bis 305 
für MS-DOS und die Spuren 
306 bis 611 für den Amiga re- 
serviert sind. Die Platte besitzt 
also zwei Partitions (Bild 9). 

Fremde Partitions werden 
nicht erkannt. Das bedeutet, 
daß für den Amiga die ganze 
Platte nur 306 Spuren groß ist, 
genauso, wie der PC/AT auch 
nur 306 Spuren der Platte für 
sich beansprucht. 

Der Befehl DJMOUNT darf 
aber erst aufgerufen werden, 
nachdem der PC/AT fertig ge- 
bootet hat und keine Plattenzu- 
griffe innerhalb von AUTO- 
EXEC.BAT mehr macht. Gege- 
benenfalls muß mit WAIT genü- 
gend lange gewartet werden 
(etwa WAIT 40), da sonst das 
System abstürzen kann. Dies 
ist logisch, da nicht zwei Syste- 
me gleichzeitig auf die Platte 
zugreifen können. 

Nachdem der Befehl aufge- 
rufen und ausgeführt wurde, 
steht dem A2000-Besitzer (mit 
Brückenkarte und PC-Festplat- 
te) der für Amiga-DOS reser- 
vierte (partitionierte) Bereich 
zur Verfügung. In einer Start- 
datei könnte das so aussehen: 


BINDDRIVERS 
WAIT 40 _ 
DIMOUNT 


K URSE 


ASSIGN devs: jhO:devs 
ASSIGN sys: jh0: 
ASSIGN c: jhO:c 


In dieser Befehlsfolge wird 
zuerst der MS-DOS-Teil akti- 
viert. Der Amiga wartet dann 
so lange, bis der PC fertig ge- 
bootet hat und teilt Amiga-DOS 
anschließend mit, daß eine 
Festplatte (jhO:) zur Verfügung 
steht. Daraufhin werden die 

Standard-Dateiverzeichnisse 
so installiert, daß der Amiga 
von nun an alle Befehle, Fonts, 
Devices oder Libraries auf der 
Festplatte sucht. 

Doch um die PC-Platte für 

den Amiga zugänglich zu ma- 
chen, muß zuerst die Partition 
eingerichtet und die Platte for- 
matiert werden. Dazu existie- 
ren die Befehle FDISK, ADISK 
(beide zu finden auf der MS- 
DOS-Systemdiskette) und 
DPFORMAT. Das Einrichten 
geschieht folgendermaßen: 
— Zuerst mit BINDDRIVERS 
den PCJAT booten. Dann mit 
FDISK und ADISK die einzel- 
nen Bereiche der Platte ein- 
richten (beispielsweise 10 
MByte für den PC und den 
Rest für den Amiga). 
— Anschließend vom CLI aus 
DJMOUNT eingeben. Die auf- 
tretende Fehlermeldung kann 
ignoriert werden. 

Um die Amiga-Partition zu 
formatieren, ist folgendes ein- 
zutippen: 


DPFORMAT DRIVE jhO: 
NAME Name 


Der Amiga formatiert und va- 
lidiert seinen Bereich, der im 
Anschluß vom Amiga aus als 
»jhx:« benutzt werden kann. 

Sollten Sie aber einen SCSI- 
Controller (etwa den von Com- 
modore) mit der dazugehöri- 
gen Festplatte besitzen, muß 
zum Formatieren ein anderer 
Befehl verwendet werden: 
PREP. Nachdem die Platte mit 
MOUNT (näheres dazu später) 
aktiviert wurde, muß eine Rou- 
tine aufgerufen werden, die 
dem Festplatten-Controller die 
Daten der Platte übermittelt. 


Auch für SCSI 
ist gesorgt 


Dies erledigt PREP. Für die 
erste Hard-Disk sieht der Auf- 
ruf so aus: 


PREP Laufwerk: 


Es erscheinen der Reihe 
nach verschiedene Abfragen, 
die die Platte betreffen. Zuerst 
will PREP den Festplattentyp 
wissen. Für eine gebräuchli- 
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che 20-MByte-ST506-Festplat- 
te mit zwei Platten und vier 
Köpfen wählt man am besten 
die Seagate ST225. Bei der fol- 
genden Abfrage möchte der 
Amigawissen, obdie Platte au- 
tomatisch nach einigen Sekun- 
den Inaktivität die Köpfe par- 
ken soll. Die Antwort hängt von 
Ihrem Geschmack ab. Das Par- 
ken der Plattenköpfe schont Ih- 
re Festplatte, wenn bei der Ar- 
beit mit dem Amiga plötzlich 
der Strom abgeschaltet wird. 

Sollten Sie die Hard-Disk 
partitionieren wollen (ge- 
schieht in einem Eintrag in der 
MountlList), ist anschließend 
anzugeben, bis wohin die erste 
Partition reichen soll. Die näch- 
ste Frage bezieht sich darauf, 
wieviel Pufferspeicher der 
Platte zugestanden wird (nähe- 
res darüber später bei ADD- 
BUFFERS). 

Bevor die Vorbereitungen 
abgeschlossen werden, will 
Amiga-DOS noch wissen, ob 
defekte Sektoren der Hard- 
Disk markiert werden sollen. 
Nach Beantwortung dieser 
Frage wird die Platte zur For- 
matierung vorbereitet. 

Formatiert wird die Hard- 
Disk anschließend wie ge- 
wohnt mit dem bekannten 
CLI-FORMAT-Befehl. 

Wie bereits erwähnt, muß 
die an SCSI-Controller hän- 
gende Platte in das System 
eingebunden werden. Dies er- 
ledigt MOUNT. Insofern in der 
MountList (nähere Informatio- 
nen darüber erhalten Sie im 
neuen Amiga-DOS-Handbuch 
und im Manual des SCSI-Con- 
trollers) die Platte eingetragen 
ist, genügt der Befehl 


MOUNT dhO: 
oder richtiger 
MOUNT res0: 


damit die Hard-Disk sofort dem 
Amiga als »dhO:« zur Verfü- 
gung steht. 

Ebenfalls kurz erwähnt wur- 
de ADDBUFFERS. Dieser hilf- 
reiche Befehl bringt dem An- 
wender große Vorteile: 

Normalerweise reserviert 
Amiga-DOS beim Einschalten 
oder einem Reset automatisch 
etwa 17 KByte Speicher für je- 
des angeschlossene Laufwerk 
(Sektor-Cache-Speicher). Ver- 
größert der Anwender nun die- 
sen Pufferspeicher, können in 
diesem Puffer mehr Daten der 
Floppystation stehen, es muß 
also nicht so oft auf die Diskette 
zugegriffen werden. Damit 
wird der Datentransport etwas 
schnelle. Um das zu errei- 
chen, muß ADDBUFFERS zu- 
sammen mit einem Parameter 
eingegeben werden, der die 
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Gesamtzahl 
der Spuren = 612 


306 Spuren, 
reserviert für 
MS-DOS 
(Partition 1) 
Für Amiga nicht 
sichtbar 


306 Spuren, 
reserviert für 
Amiga—DOS 
Far MS-DOS 
nicht sichtbar 





Bild 9. Diese Grafik verdeutlicht, wie eine Festplatte in 
Partitions, das heißt einzelne Teilbereiche, aufgeteilt ist 


Größe des zu reservierenden 
Puffers angibt: 


ADDBUFFERS df1: 40 


reserviert 40 zusätzliche Puf- 
ferspeicher (jeder Pufferspei- 
cher hat etwa eine Größe von 
500 Byte). Größer sollte der 
Pufferspeicher aber nicht ge- 
macht werden, da die Zugriffs- 
zeitvorteile ab einer bestimm- 
ten Puffergröße nicht mehr so 
groß sind und unnötig Spei- 
cher verbraucht wird. 


Ein 5),-Zoll-Lauf- 
werk erkannt 


Besitzen Sie ein 57-Zoll-Dis- 
kettenlaufwerk, das nicht auto- 
matisch einen Diskettenwech- 
sel erkennt? Dann hilft DISK- 
CHANGE weiter. Mit diesem 
Befehl teilen Sie Amiga-DOS 
mit, daß im 5%-Zoll-Laufwerk 
die Diskette gewechselt wurde. 
Angenommen, das Laufwerk 
ist »df2:«, dann lautet der kom- 
plette Befehl: 


DISKCHANGE df2: 


Wenn im Amiga-Modus 
nicht mit 51,-Zoll-Diskettenlauf- 
werken gearbeitet wird, kann 
dieser Befehl getrost gelöscht 
oder vergessen werden. 

Folgende Situation ist jedem 
Amiga-Besitzer bekannt: Sie 
geben einen Befehl ein, der mit 
einer lapidaren Fehlermel- 
dung abgebrochen wird. Meist 
sind aber diese Fehlermeldun- 
gen nicht gerade aussagekräf- 


tig. Wenn Sie etwas mehr dar- 
über erfahren möchten, geben 
Sie WHY ein. Der Amiga sagt 
Ihnen dann etwas detaillierter, 
warum die Ausführung des Be- 
fehls fehlgeschlagen ist. 
Möchten Sie gerne wissen, 
ob eine bestimmte Zeichenket- 
te in einer Datei enthalten ist, 
oder wissen Sie nichtmehr, wie 
oft in einer Datei ein Begriff vor- 
kommt? Dann hilft SEARCH 
weiter. Der Befehl durchsucht 
das angegebene Verzeichnis 
beziehungsweise die angege- 
bene Datei nach einer be- 
stimmten, vorgegebenen Zei- 
chenkette. Als Beispiel soll die 
Startdatei im aktuellen Lauf- 
werk nach dem Befehl RUN 
durchsucht werden: 


SEARCH startup-sequence 
RUN” 


SEARCH durchsucht nun 
die Startdatei und zeigt alle 
Zeilen mit Zeilennummern und 
deren Inhalt an, in denen der 
Befehl RUN vorkommt. Wenn 
Sie nicht genau wissen, in wel- 
cher Datei der Suchtext steht, 
geben Sie einfach als Zusatz- 
parameter ALL an. Suchen wir 
doch im gedachten Verzeich- 
nis »Texte« nach dem Namen 
Müller: 


SEARCH Texte 
ALL 


Selbstverständlich können 
in den Dateinamen auch Joker, 
Platzhalter und Wildcards ein- 
gesetzt werden. Drei weitere 
Beispiele: 


"Müller” 


SEARCH startup-sequence 


nam 


r 


SEARCH df1: ”ma” ALL 
SEARCH jh0:tex#? 
"Brief” 


Im ersten Fall wird in der 
Startup-Sequence nach allen 
Begriffen gesucht, die den 
Buchstaben »r« enthalten. Die 
entsprechenden Zeilen wer- 
den dann aufgelistet. 

Im zweiten Beispiel sucht 
der Amiga auf der Diskette im 
Laufwerk dfi, und zwar in allen 
Dateien (Parameter »ALL«). 
Der Suchbegriff enthält die 
Buchstaben »ma«. 

Im letzten Beispiel wird auf 
der Festplatte mit der Kennung 
jh0 in allen Verzeichnissen mit 
dem Namensanfang »tex« 
nach dem Begriff »Brief« ge- 
sucht. 

Im gesuchten Begriff sind 
keine Joker zugelassen. Es 
wird unabhängig davon ge- 
sucht, ob die Zeichenkette al- 
lein steht oder nicht. 

Zu beachten ist, daß 
SEARCH nicht zwischen Groß- 
und Kleinschreibung unter- 
scheidet. Es ist also egal, ob 
der Suchtext Müller groß- oder 
kleingeschrieben ist. 


SORTieren Sie 
ASCII-Dateien 


Nützlich ist auch der Befehl 
SORT. Angenommen, Sie 
möchten eine ASCII-Datei, die 
vielleicht Namen oder ähnli- 
ches enthält, alphabetisch sor- 
tieren. Dazu können Sie natür- 
lich auch den ED aufrufen und 
mit seinen Hilfsfunktionen um- 
ständlich den Text neu sortie- 
ren. Oder Sie verwenden 
SORT. Der Befehl sortiert eine 
Textdatei in aufsteigender al- 
phabetischer Ordnung. Dabei 
werden nur komplette Zeilen, 
die mit Return abgeschlossen 
sind, berücksichtigt. Außer- 
dem muß die komplette Datei 
auf einmal in den Speicher 
passen. SORT unterscheidet 
nicht zwischen Groß- und 
Kleinschreibung. 

Einen Haken hat SORT: Es 
muß genügend Platz auf dem 
Stapelspeicher vorhanden 
sein, in dem SORT Daten zwi- 
schenlagern kann. Oftmals rei- 
chen aber die 4000 Byte, die 
normalerweise jedem CLI-Be- 
fehl zur Verfügung stehen, 
nicht aus. Damit der Amiga 
beim Sortieren nicht abstürzt, 
ist es zweckmäßig, den Stapel- 
speicher mit dem STACK- 
Befehl auf etwa 10000 bis 
15000 Byte zu vergrößern. 

Beim SORT-Befehl ist anzu- 
geben, welche Datei sortiert 
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werden (Quelldatei) und wie 
die sortierte Datei heißen soll 
(Zieldatei). SORT läßt die alte 
Datei unberührt und erstellt ei- 
ne neue, sortierte Datei. Ein 
Beispiel: Wir möchten die Text- 
datei »Test« alphabetisch in auf- 
steigender Ordnung sortieren. 
Die neue Datei soll den Namen 
»Test.sort« erhalten: 


SORT test TO test.sort 


Wenn nicht gewünscht wird, 
daß ab der ersten Spalte einer 
jeden Zeile sortiert wird, läßt 
sich ein Zusatzparameter an- 
geben, der festlegt, in welcher 
Spalte das erste zu sortierende 
Zeichen steht: 


SORT test TO test.sort 
COLSTART 8 


Nach dieser Änderung wird 
erst ab dem achten Buchsta- 
ben jeder mit Return abge- 
schlossenen Zeile sortiert. 

Ergänzend wieder ein kur- 
zer, leicht verständlicher Be- 
fehl, der äußerst hilfreich ist. Es 
handelt sich dabei um NEWC- 
LI. Angenommen, Sie möch- 
ten parallel zwei verschiedene 
CLI-Tätigkeiten ausführen 
oder benötigen mehrere offene 
CLI-Fenster (maximal 20). Ge- 
ben Sie NEWCLI ein. Sofort 
besitzen Sie ein zweites CLI- 
Window, in dem genau wie im 
ersten gearbeitet werden kann. 
Der Prompt »2>« zeigt Ihnen 
die Nummer des geöffneten 
Fensters. So läßt sich bei- 
spielsweise ein Text in einem 
Window ausgeben, während 
im anderen ein ähnlicher Text 
steht. Die zwei Texte lassen 
sich direkt vergleichen. Ein 
größerer Vorteil ist esaber, daß, 
falls ein Programm, das vom 
ersten CLI aus aufgerufen wur- 
de, abstürzt, jederzeit ein wei- 
teres CLI offen ist, in dem wei- 
tergearbeitet werden kann. 
Wie auch immer Sie die Mög- 
lichkeit, mehrere CLI-Fenster 
offen haben zu können, einset- 
zen, nützlich kann es sicher 
von Zeit zu Zeit sein. 


Befehle neuer 
Versionen 


Auf neueren Workbench- 
Versionen sind einige Befehle 
dazugekommen, die teilweise 
recht nützliche Funktionen er- 
füllen und die Befehlsvielfalt 
des mächtigen Instruments 
CLI erweitern. So zum Beispiel 
SETDATE. Dieser Befehl dient 
dazu, nachträglich das Erstel- 
lungsdatum und die Erstel- 
lungsuhrzeit einer Disketten- 
datei zu ändern. (Jede Datei 
auf Diskette oder im Speicher 
enthält zusätzliche Daten dar- 
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über, wann und um welche 
Uhrzeit das File erstellt wurde. 
Dies dient dazu, den Überblick 
darüber zu behalten, welche 
etwaigen Programmversionen 
älter oder neuer sind.) Ange- 
nommen, Sie besitzen ein paar 
Programme, bei denen Daten 
eingetragen sind, die nicht 
stimmen (etwa, weil bisher kei- 
ne Echtzeituhr vorhanden 
war). Diese Daten sollen nun 
aktualisiert, also dem neue- 
sten Stand angepaßt werden. 
Im Normalfall ist dies ohne ei- 
nen Diskettenmonitor nicht 
möglich, da die Zeitdaten in be- 
stimmten Diskettenblöcken 
stehen, die so ohne weiteres 
nicht beeinflußt werden kön- 
nen. SETDATE behebt dieses 
Manko. Der Befehl erlaubt die 
jederzeitige Änderung eines 
Erstellungsdatums und der Er- 
stellungsuhrzeit (die Uhrzeit 
kann beispielsweise mit LIST 
angezeigt werden). 


Fehler werden 
entschlüsselt 


Ein Beispiel: Die Datei »Pre- 
ferences« wurde mit einem fal- 
schen Datum gespeichert. 
Nachträglich soll das Pro- 
gramm auf den 27.11.1987, 12 
Uhr datiert werden: 


SETDATE Preferences 
27-nov-87. 12:00 


Bei dem Befehl ist zu beach- 
ten, daß die Monate mit drei 
Buchstaben angegeben wer- 
den und die Schreibweise der 
Monate englisch ist (also MAY 
und nicht MAI). 


N 


Standard-Prioritot \ 


beispielsweise: 





Sicher kennen auch Sie die- 
sen Effekt: Bei irgendeiner Da- 
teioperation, sei es nun laden, 
speichern oder löschen, ist ein 
Fehler aufgetreten (etwa Datei 
nicht vorhanden) und das Be- 
triebssystem gibt in der Menü- 
zeile der Workbench-Oberflä- 
che einen Fehlercode aus, der 
aus einer Zahl besteht. Doch 
was bedeuten diese Zahlen? 
Nicht immer ist das Amiga- 
DOS-Handbuch griffbereit, 
aus dem man die Fehlertexte 
ablesen kann. Hier hilft FAULT 
weiter. Dieser Befehl fordert 
den Amiga auf, den Klartext zu 
der jeweiligen Fehlermeldung 
auszugeben (jedem Fehler- 
code ist auch ein Fehlertext zu- 
geordnet). Ein Beispiel: Beim 
Öffnen einer Datei, sei es vom 
CLI oder von der Workbench 
aus, ist ein Fehler aufgetreten, 
das Programm wird nicht aus- 
geführt. In der Menüzeile se- 
hen wir, daß ein Fehler mit dem 
Code 205 aufgetreten ist. Wir 
möchten erfahren, welche Be- 
deutung der Fehlercode 205 
hat, also geben wir ein: 


FAULT 205 


Der Amiga gibt anschlie- 
ßend den Klartext des Fehlers 
aus: »Fault 205: object not 
found« — Datei nicht gefun- 
den. 

Sie können bis zu zehn Feh- 
lercodes in einer Zeile ange- 
ben. Als Ergebnis erhalten Sie 
die Texte der Reihe nach auf- 
gelistet. Ein Beispiel: 


FAULT 103 202 203 204 
205 213 


Als Ergebnis erscheint: 
Fault 103: insufficient free store 


Programm 1 
5 Zeiteinheiten 


Programm 2 , 


5 Zeiteinheiten 


Programm 3 


5 Zeiteinheiten 


Bild 10. Im Normalfall erhält jeder Prozeß vom System 
prozentual die gleiche Prozessor-Rechenzeit zugeteilt 


Kurse 


Fault 202: object in use 
Fault 203: object already 
exists 
Fault 204: directory not found 
Fault 205: object not found 
Fault 213: disk not validated 
Dieser Befehl ist sicher eine 
nützliche Hilfe, wenn es darum 
geht, Fehlermeldungen zu ver- 
stehen. Wie diese einzelnen 
Fehler nun zu beheben sind, 
können Sie einschlägiger 
Fachliteratur oder dem Amiga- 
DOS-Handbuch entnehmen. 
Um den Kurs nicht unnötig zu 
längen, verzichten wir an die- 
ser Stelle auf das Thema »Feh- 
lerbeseitigung«. 


Erste Hilfe 


Der Amiga ist in Sachen Dis- 
ketten leider sehr empfindlich. 
Wie schnell passiert es doch, 
daß man eine Diskette aus ei- 
nem Laufwerk nimmt, bevor 
der letzte Zugriff abgeschlos- 
sen ist. Schon ist es passiert: 
Die Diskette ist »geschädigt«, 
der Inhalt unrettbar (?) verlo- 
ren. Dies kann sich beispiels- 
weise dadurch äußern, daß der 
Amiga beanstandet, daß die 
Diskette nicht validiert, also 
nicht gültig ist oder daß sie 
nicht mehr gelesen werden 
kann. Um die Daten (so gut es 
geht) wieder zurückgewinnen 
zu können, stellt das CLI den 
Befehl DISKDOCTOR zur Ver- 
fügung. Er hilft, Ordnung in die 
Datenstrukturen zu bringen 
und die Daten zu retten. Aller- 
dings restauriert DISKDOC- 
TOR nur die Dateien, die noch 
genügend Informationen besit- 
zen, die zur Wiederherstellung 
dienen. Das bedeutet, daß de- 
fekte Dateien verlorengehen. 

Im Anschluß an die Behand- 
lung durch DISKDOCTOR soll- 
te die gesamte Diskette kopiert 
werden, um mögliche Fehler 
auf der ursprünglichen Disket- 
te auszuschließen. Der Aufruf 
von DISKDOCTOR erfolgt bei- 
spielsweise für eine in »dfl« 
eingelegte, geschädigte Dis- 
kette folgendermaßen: 


DISKDOCTOR df1: 


Nachdem die anschließen- 
de Sicherheitsabfrage mit 
<RETURN> bestätigt wurde, 
beginnt Amiga-DOS, die Struk- 
tur der Diskette einzulesen und 
wieder zu restaurieren. Dieser 
Befehl sollte aber als die letzte 
Möglichkeit angesehen wer- 
den, defekte Disketten zu ret- 
ten, da unter Umständen Da- 
ten verlorengehen. 

Wie Sie sicher wissen, ist 
der Amiga ein Multitasking- 
Computer. Das bedeutet, daß 
er scheinbar mehrere Pro- 
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gramme gleichzeitig bearbei- 
ten kann. Dies ist aber nur be- 
dingt richtig. Genaugenom- 
men wird jedes Programm eine 
bestimmte Zeit abgearbeitet 
und dann zum nächsten ge- 
sprungen (Bild 10). Das bedeu- 
tet, daß die Rechenzeit aufge- 
teilt wird. Je mehr Programme 
also »parallel« arbeiten, desto 
langsamer wird jeder einzelne 
Prozeß. Eine nützliche Mög- 


Gerechte 
Verteilung 


lichkeit ist es, daß der Benutzer 
jedem Programm eine be- 
stimmte Rechenleistung zutei- 
len kann. Es ist sicher nicht 
sinnvoll, einem Prozeß wie et- 
wa dem Hintergrunddrucken 
genausoviel Rechenzeit zur 
Verfügung zu stellen wie einem 
sehr rechenintensiven Pro- 
gramm. Deshalb kann mit 
CHANGETASKPRI die Re- 


nach neuer INS 
Prioritat Alle) 


so gebremst werden, daß das 
System nicht mehr sinnvoll 
funktioniert. Im Normalfall sind 
Werte zwischen -10 und 10 
noch vertretbar. Ein Beispiel: 


CHANGETASKPRI 10 


Ab jetzt werden alle Prozes- 
se, die der Anwender von die- 
sem CLI aus startet, bevorzugt 
behandelt, also schneller ab- 
gearbeitet. Dieser Befehl ist al- 
so durchaus sinnvoll, wenn es 
darum geht, den Amiga effekti- 
ver arbeiten zu lassen. 

Um »die Kontrolle« über das 
System zu behalten, kann 
auch der nächste Befehl die- 
nen: STATUS. Er dient dazu, 
den Benutzer darüber zu infor- 
mieren, welche vom CLI aus 
aktivierten Prozesse gerade im 
Hintergrund arbeiten. Wenn 
STATUS ohne weitere Parame- 
ter eingegeben wird, zeigt der 
Amiga die Nummern der CLI- 
Tasks sowie die Namen, mit de- 
nen sie aktiviert wurden. Ange- 


Programm 1 


nun: 2 Zeiteinheiten 


Programm 2 
nun: 12 Zeiteinheiten 


Programm 3 


nun: 1 Zeiteinheit 





Bild 11. Nach einer Änderung erhalten rechenintensivere 
Programme mehr Prozessor-Rechenzeit zugeteilt 


chenzeit eingestellt werden 
(Bild 11). Die neue Rechenzeit 
gilt allerdings nur für die Pro- 
gramme, die vom gleichen CLI 
aus aufgerufen werden, indem 
auch CHANGETASKPRI ver- 
wendet wurde. Alle anderen 
Programme, Tasks und Prozes- 
se, die direkt von der Work- 
bench oder einem anderen 
CLI-Fenster aus aktiviert wer- 
den, laufen mit der normalen 
Rechengeschwindigkeit ab. 
Für den Befehl können Wer- 
te zwischen -128 und 127 ange- 
geben werden. Allerdings soll- 
ten keine zu großen Werte ein- 
gegeben werden, da sonst 
möglicherweise zum Betrieb 
des Amiga wichtige Prozesse 
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nommen, Sie haben ein offe- 
nes CLI-Fenster, in dem Sie 
den Befehl STATUS eingeben. 
Als Meldung wird erscheinen: 


Task 1: Loaded as 
command: Status 


Aber STATUS erlaubt die 
Eingabe von Zusatzparame- 
tern. Eines dieser Schlüssel- 
wörter ist TCB. Wenn Sie die- 
sen Zusatz anwenden, er- 
scheinen Informationen über 
die Stackgröße zu jedem Task, 
der Priorität, mit der der Task 
bearbeitet wird sowie über die 
Größe die Globalvektoren. Ei- 
ne Erklärung des letzten Be- 
griffes, der wohl nur für Pro- 
grammierer interessant ist, 


entnehmen Sie bitte dem 
»Technischen Amiga-DOS- 
Handbuch«. Eine Erklärung an 
dieser Stelle würde unnötiger- 
weise zu viel Platz verschlin- 
gen. Dieser Parameter dient 
wohl hauptsächlich dazu, zu 
erfahren, mit welcher Rechen- 
leistung, also welcher Priorität, 
jeder CLI-Task arbeitet. 

Der zweite Parameter, der er- 
laubt ist, heißt CLI oder ALL. 
Beide Zusätze haben dieselbe 
Bedeutung. Laut Handbuch 
zeigen diese Zusätze die Sek- 
tionsnamen eines geladenen 
Prozesses an. Jedoch. konnte 
dieses Resultat bei uns bisher 
noch nicht beobachtet werden, 
so daß wohl dieser Parameter 
entfallen kann. 

Dagegen ist der dritte und 
letzte Formalparameter sinn- 
voll: FULL. Wie der Name 
schon sagt, gestattet FULL, 
daß zu jedem Task alle mögli- 
chen Angaben ausgegeben, 
also daß TCB und CLI/ALL zu- 
sammen dargestellt werden. 
Für das obige Beispiel sähe 
das Resultat so aus: 


Task 1: stk 3200, gv 
150, pri 0, Loaded as 
command: status 


Soll nur ein bestimmter Pro- 
zeß angezeigt werden, istnach 
STATUS die Nummer des 
Tasks anzugeben, also bei- 
spielsweise STATUS 1 FULL. 


Zusatz für 
PC-Karte 


Nur für PC-/AT-Karten-Besit- 
zer ist der letzte, nur auf neue- 
sten Workbench-Versionen 
enthaltene Befehl SETPREFS. 
Der Befehl informiert Sie dar- 
über, mit welchen Grundein- 
stellungen die PC-Karte konfi- 
guriert ist. Sie erfahren, an wel- 
chen Stellen im Speicher sich 
die einzelnen Emulationen 
und Schnittstellen befinden 
und welche Grafikmodi akti- 
viert sind. Da dies aber genau- 
sogut auch über die PC-Seite 
gemacht werden kann und 
wohl auch nicht für jeden inter- 
essant ist, wird der Befehl hier 
nur kurz erwähnt. Sollten Sie 
nähere Informationen dazu be- 
nötigen, ziehen Sie das neue 
Amiga-DOS-Handbuch und 
das PC-Handbuch zu Rate. 

Damit ist der CLI-Kurs been- 
det. Sie sollten nun über genü- 
gend Wissen verfügen, um 
sinnvoll mit den einzelnen Be- 
fehlen umgehen zu können 
und auch Ihre eigenen Batch- 
Dateien zu schreiben, damit 
der Amiga in Zukunft effektiver 
arbeiten kann. 

(Dieter Maier/Reiner Kunz/rs) 


Gestalten Sie 
Ihr Sonderheft 
mit 


Nach langem Warten hal- 
ten Sie in diesem Augen- 
blick das erste Amiga-Son- 
derheft in den Händen. Die 
Arbeit an diesem Heft hat 
allen Redakteure sehr viel 
Spaß bereitet. Wir haben 
natürlich lange und intensiv 
überlegt, welche Themen 
Sie, die Leser, besonders 
interessieren. Überzeugt 
Sie das Ergebnis? Sind Sie 
mit der Qualität und Länge 
der Listings einverstanden? 
Oder sollen wir längere Li- 
stings lieber nur auf der 
Programmservice-Diskette 
veröffentlichen? 

Schreiben Sie uns Ihre 
Meinung zu diesem ersten 
Sonderheft. 

Wir versuchen natürlich 
auch weiterhin, die interes- 
santesten Themen ausführ- 
lich im Heft zu behandeln. 
Im Sonderheft stehen mehr 
Seiten für einen Schwer- 
punkt zur Verfügung, als 
das im Amiga-Magazin der 
Fall ist. Bei der Auswahl der 
Schwerpunkte können Sie 
mitwirken. Welche Themen 
wünschen Sie für die fol- 
genden Hefte? Sind Sie an 
Kursen interessiert, und 
wenn, zu welchen Berei- 
chen? Oder wünschen Sie 
mehr und längere Listings? 
Sind Spiele das Thema, 
das Sie am meisten reizt, 
oder fehlen Ihnen Anwen- 
dungslistings? Schreiben 
Sie uns Ihre Wünsche, am 
besten auf eine Postkarte, 
und adressieren Sie diese 
an: 
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Guru verliert seinen Schrecken 


Wenn der gefürchtete Requester »Software Error« erscheint, ist 
der GURU nicht mehr weit. Wohl dem, der noch ein weiteres CLI- 
Fenster offen, oder wenigstens die Workbench geladen hat. Bei 
dem Requester ist nämlich der Computer noch gar nicht abge- 
stürzt. Erst wenn Sie »Cancel« anklicken, passiert’s. Ignorieren 
Sie den Requester einfach und arbeiten Sie in dem CLI-Fenster 
weiter. So können Sie in Ruhe wertvolle Dateien von der RAM- 
Disk auf einer Diskette retten. (Franz Dimbeck/rs) 


Checkie 42 meldet sich 


Mit dem Checksummer »Checkie 42«lassen sich Listings einfa- 
cher eingeben, wenn der Amiga bei einer falsch eingetippten Zei- 
le einen Warnton erzeugt. Die Zeile 17 des Checksummers sollte 
folgendermaßen geändert werden: 

17 IF FSumme = falsch THEN BEEP: GOTO Wiederholung 


Diese Funktion ist nützlich, wenn der Leser beim Eintippen gar 
nicht mehr auf den Bildschirm schaut, sondern sich auf die Tasta- 
tur und das Listing konzentriert. (Jürgen Schulze/rs) 


Datei oder nicht Datei? 


Sie können auch ohne die Bibliotheksfunktionen prüfen, ob ei- 
ne Datei vorhanden ist. Schreiben Sie einfach: 
OPEN File$ FOR APPEND AS 1 
L=LOF(1) 
CLOSE 1 
IF L=0 THEN 

PRINT ”Sorry Kid” 

KILL FILE$ 

KILL FILE$+”.info” 

END 
END IF 


War die Datei nicht vorhan- 
den, ist die Länge gleich Null. 
Es wurde aber in diesem Fall 
die Datei und eine Info-Datei 
erzeugt. Diese löschen Sie mit 
KILL. Diese Lösung nach einer 
Datei hat den Vorteil, daß Sie 
keine bmap-Dateien brau- 
chen, (Eike Cornelius/rs) 





stungsfähigkeit 


Begrüßung 
durch 
den AMIGA 


Der Amiga ist in der Lage, jeden Anwender nach Einlegen der 
Workbench-Diskette individuell zu begrüßen. Sie brauchen nur 
die »Startup-Sequence« des Amiga entsprechend zu verändern. 
Mit Hilfe des Befehls 
ECHO "text” 
können Sie Begrüßungstexte auf dem Bildschirm ausgeben, oder 
Sie lassen den Amiga mit SAY ein paar nette Worte sprechen. Fol- 
gende Schritte sind nötig, um den Amiga bei jedem Systemstart 
zum Sprechen zu bringen: 

1. Legen Sie auf der Workbench-Diskette mit 


COPY * to dfO:name 


eine Textdatei an, in die Sie über die Tastatur die gewünschte Be- 
grüßung schreiben. Beenden Sie die Eingabe mit Hilfe der Ta- 
stenkombination <CTRL \>. 

2. Starten Sie den Editor mit 


ED dfO:s/startup-sequence 


um die Startup-Sequence zu ändern. 
3. Schreiben Sie eine Zeile vor LOADWB den Befehl 


SAY -x name 
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Tolle Tips 


für 


SS ST, 


Der Amiga ist ein leistungsfähiger, 
schneller Computer. Doch die Lei- 
ET TEHUTST 
Vorteile bleiben gerade Anfängern ver- 
borgen. Unsere Tips und Tricks sollen 
Ihnen helfen, die ersten Klippen im Um- 
gang mit dem Amiga erfolgreich zu um- 
Ele ll P 





Trs & TRICKS 


4. Speichern Sie die neue Startup-Sequence mit <ESC x>. 
Wenn Sie nun Ihren Amiga neu starten, werden Sie das Ergebnis 
Ihrer Arbeit hören. Sollte Ihnen die Begrüßung durch den Amiga 
einmal nicht mehr gefallen, so können Sie diese einfach variieren, 
indem Sie die entsprechende Textdatei mit dem Editor ändern. 
(Christoph Huwefrs) 


Umstieg leichtgemacht 


Viele Besitzer eines C 64 sind auf den Amiga umgestiegen. Die 
meisten wollen Ihren C 64 behalten. Mit wenig Aufwand können 
die Aufsteiger ihren alten Computer auch noch am Amiga-Monitor 
verwenden. Auf der Rückseite des 1081- und auch des 1084-Mo- 
nitors befinden sich zwei Cinch-Buchsen: 

Audio und CVBS 

Verbinden Sie Pin 3 der Buchse des C64 zum Anschluß eines 
Monitors mit der Audio-Buchse. Pin 4 liefert das Farbsignal für 
den Anschluß an die CVBS-Buchse. Jetzt nur noch die Massen 
der beiden Cinch-Buchsen am Monitor mit Pin 2 der C64-Buchse 
verbinden und alles stimmt. Um das Bild des C64 auf dem Monitor 
zu sehen, schalten Sie diesen von RGB auf CVBS um. Der Schal- 
ter befindet sich unter der Klappe vorne am Bildschirm. 

(Jochen Hauck/rs) 


Die Hintertür für Banditen 


Der Byte-Bandit ist ein Virus, der allen Amiga-Besitzern Kum- 
mer bereitet (siehe AMIGA 5/88, Seite 96 unten rechts). Immer 
wenn Ihr Amiga von dem Erre- 
ger befallen ist, färbt sich nach 
einiger Zeit der Bildschirm 
dunkel und der Computer ver- 
sinkt in Lethargie. Hier gibt es 
aber einen einfachen Trick, um 
den Bildschirm wieder einzu- 
blenden. Drücken Sie nachein- 
ander von links nach rechts die 
Tasten <ALT>, <Commodo- 
re> (entspricht <Amiga 
links>), <Space>, 
<Amiga> und <Alt>. Halten 
Sie dabei alle Tasten gedrückt. 
Und siehe da: der Bildschirm 
blendet sich wieder ein. Es 
handelt sich bei dieser Tasten- 
kombination vermutlich um ein 
Hintertürchen, das sich die 
Programmierer offen gelassen 
haben, um nicht Opfer ihrer ei- 
genen Seuche zu werden. Auf 
jeden Fall sollten Sie den Virus 
aus dem Boot-Block löschen. 

(Sven Galanska/rs) 


Was tun bei »Task held«? 


Wer einen schwerwiegenden Programmierfehler gemacht und 
den Amiga dadurch zum Absturz gebracht hat, kennt die Meldung 
»Task held, finish all Disc-activity«. Was viele aber nicht wissen: 
Diese Meldung besagt, daß lediglich dieser eine Task angehalten 
wurde. Wenn Sie zu diesem Zeitpunkt noch einen weiteren Task 
laufen haben, zum Beispiel ein zweites CLI, können Sie mit die- 
sem problemlos weiterarbeiten. Vor allem Einsteiger schalten bei 
dieser Meldung nämlich den Computer aus und wieder ein, dasie 
meinen, er wäre vollständig abgestürzt. (Teut Weidemann/rs) 


Alles auf einen Schlag 


Ein weiterer Tip nutzt den Einsatz der < Shift>-Taste bei der 
Auswahl von Icons aus. Immer wenn die < Shift>-Taste gedrückt 
wird, können Sie mit der Maus mehrere Objekte auf der Work- 
bench gleichzeitig anwählen. Ein Beispiel wäre es, mehrere Pro- 
gramme gleichzeitig zu aktivieren oder wie oben gezeigt auf der 
Workbench zu verschieben beziehungsweise in andere Fenster 
zu kopieren. 

Ein besonderer Trick ist die gleichzeitge Auswahl von Projekten 
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und Werkzeugen. Jedes Icon eines Projekts erhält in seiner Info- 
Datei einen Namen eines Programms, das beim Aktivieren des 
Programms automatisch geladen werden soll. 

Ein Beispiel: Jedes Amiga-Basicprogramm erhält als »Default- 
Tool« den Namen »Amiga-Basic«. Häufig steht in diesem Namen 
aber gleichzeitig der Name eines bestimmten Verzeichnisses. 
Was nun, wenn Amiga-Basic sich in einem anderen Verzeichnis 
befindet. Dann erscheint nach dem Aktivieren des Programms 
die Meldung : »Error while opening Amiga-Basic«. 

Der Weg dies zu umgehen, wäre den Namen in der Info-Datei 
zu ändern. Dies geht über das Menü »Info« der Workbench, 
Eine andere Möglichkeit ist, erst Amiga-Basic zu starten. Über 
»OPEN« kann der Programmierer dann sein Programm laden. 
Der dritte Weg ist praktischer: Klicken Sie bei gehaltener Shift- 
Taste erst das Icon des Programms und dann das Piktogramm 
von Amiga-Basic an. Dabei spielt es keine Rolle, ob es sich im sel- 
ben Ordner oder irgendeinem anderen Fenster befindet. 

(Dieter Bendrich/rs) 


Please replace Workbench ... 


Vielleicht haben Sie sich über die gut gemeinte Aufforderung 
auch schon geärgert, wenn Sie ein auf einer anderen Diskette ge- 
speichertes Programm starten, aber beim besten Willen nicht das 
auf der Workbench befindliche Betriebssystem und zugleich das 
gewünschte Programm im Laufwerk haben können, weil Sie kein 
externes Laufwerk besitzen. Ein zweites Laufwerk ist daher eine 
der wichtigsten Erweiterungen, die man seiner Freundin (sprich: 
Amiga) gönnen sollte. Das billigste, schnellste und leiseste Lauf- 
werk auf dem Markt ist die RAM-Disk. Sie belegt allerdings kost- 
baren Speicherplatz. Wie wird man eine RAM-Disk, wenn man sie 
nicht mehr benötigt, wieder los? 

Praktisch wäre das Einrichten einer solchen Disk und beliebi- 
ges Entfernen dieser vom CLI aus. Mit den beiden folgenden Pro- 
grammen läßt sich dies auch realisieren: 

Legen Sie sich mit der Anweisung »MAKEDIR dfO:ram« auf der 
Diskette ein Verzeichnis mit dem Namen »ram« an. Aktivieren Sie 
dann den Editor mit »ED dfO:ram/on« und tippen die folgenden 
Zeilen ein: 


makedir ram:c 


copy :c/copy ram:c/copy 
assign c: ram:c 


copy ... 


Welche und wieviel Betriebssystem-Befehle in das Verzeichnis 
»ram:c« kopiert werden, liegt bei Ihnen; auf jeden Fall sollten sich 
die Befehle DIR und CD darin befinden. 

Mit <ESCx> verlassen Sie den Editor und haben soeben eine 
Batch-Datei erstellt. Mit der Anweisung EXECUTE ram/on werden 
nun die in der Datei befindlichen CLI-Befehle der Reihe nach aus- 
geführt. Mit dem Befehl INFO können Sie sich davon überzeugen, 
daß Ihnen nun zwei Laufwerke zur Verfügung stehen. Da der DIR- 
Befehl sich jetzt hoffentlich in der RAM-Disk befindet, können Sie 
sich ohne Probleme Inhaltsverzeichnisse beliebiger Disketten 
ausgeben lassen oder Programme aufrufen, die selbst kein Be- 
triebssystem auf der Diskette enthalten. Mit einer weiteren Batch- 
Datei schalten sie die RAM-Disk wieder ab. Nennen wir Sie 
»ram/off« und geben nach dem Starten des Editors 


ASSICN c: dfO:c 
DELETE ram:c all quiet 


ein. Nach dem Verlassen des Editors mit <ESC x> kann die 
RAM-Disk nun mit »Execute ram/off« wieder vollkommen entleert 
werden. Sie beansprucht dann nur noch etwa 1 KByte Ihres Spei- 
chers. Die RAM-Disk selbst läßt sich nur durch einen Neustart des 
Systems beseitigen. (Wilhelm Holtmeier/rs) 


Dr. Amiga repariert Disketten 


Haben Sie auch schon mal versehentlich eine Diskette dem 
Laufwerk entnommen, während die rote Kontrollampe leuchtete? 

Nicht selten ist diese Diskette danach unbrauchbar. Ein Zugriff 
darauf wird vom Amiga nur mit einem »read/write-error« quittiert. 
Aber noch ist nicht alles verloren. Geben Sie ein: »discdoctor 
Drive« (setzen Sie bitte für Drive das Laufwerk ein, in dem sich die 
defekte Diskette befindet). Der Doctor beschäftigt sich eine Weile 
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mit der Diskette und fordert dann den Anwender auf, die Dateien 
auf eine neue Diskette zu kopieren und danach die alte neu zu for- 
matieren. Dann kann man nur hoffen, daß nicht allzuviel zerstört 
worden ist. (Roland Keßler/rs) 


Einfacher Schutz vor Viren 


Wer sich durch eine Unachtsamkeit oder aus Unwissenheit ei- 
nen Virus auf seine Diskette kopiert hat, kann diesem mit dem 
CLI-Befehl INSTALL zu Leibe rücken. Dieser Befehl überschreibt 
die beiden ersten Blocks auf der Diskette (Bootblock), in denen 
sich die meisten Viren versteckt halten. Im Bootblock befindet 
sich die Information für das Betriebssystem, ob eine Diskette eine 
Startdiskette ist, sowie ein Assemblerprogramm, das der Amiga 
beim Booten ausführt. INSTALL macht aus jeder formatierten Dis- 
kette eine normale Startdiskette. Der Befehl löscht also auch alle 
mit dem »BootBoy« erstellten Vorspänne. Jedoch seien Sie vor- 
sichtig. Wenden Sie den Befehl INSTALL nicht wahllos auf allen 
Ihren Disketten an, um sich vorsorglich vor Computerviren zu 
schützen. Es gibt zahlreiche Programme, wie zum Beispiel »Ar- 
chon«, die Ihre eigene Startroutine besitzen. Diese würden Sie 
unwiderruflich löschen. Das ganze Spiel wäre unbrauchbar. 

(Ralf Dittmer/rs) 


File-COPY mit einem Laufwerk 


Mit diesem Utility können Sie mit nur einem Laufwerk komforta- 
bel Ihre Files kopieren. Das Batch-File »FILECOPY« besteht nur 
aus CLI-Befehlen und arbeitet in der RAM-Disk: 


.key file 
ECHO "Bitte Source-Disk in Drive df0:” 
ECHO ”und ENTER drücken” 

DATE >nil: ? 

fail 10 

ce df0:<file> ram: 

IF NOT EXISTS <file> 


ECHO ” Datei <file> existiert nicht” 
ECHO "Rufen Sie die Kopierroutine erneut auf” 
QuUIT 10 

ENDIF 


ECHO ” Bitte Ziel-Disk in Drive df0: ” 
ECHO ” und ENTER drücken” 

DATE >nil: ? 

cc ram: <file> dfO: 

ECHO ”ready” 


Zur Initialisierung der Kopierroutine werden die benötigten CLI- 
Befehle mit Hilfe des Batch-Files »CLIRAM« in die RAM-Disk ko- 


piert: 

COPY df0:c/COPY ram:cc 
COPY df0:c/ECHO ram: 
COPY dfO:c/FAILAT ram:fail 
COPY dfO:c/IF ram: 
COPY dfO:c/ENDIF ram: 
COPY df0:c/QUIT ram: 
CcoPY df0:c/DIR ram: 
COPY df0:c/DATE ram: 
COPY dfO:c/ED ram: 


COPY dfO:c/EXECUTE ram:ex 
COPY dfO:c/MAKEDIR ram:mdir 
COPY dfO:FILECOPY ram: 

CD ram: 

DIR 


Gehen Sie wie folgt vor: Geben Sie mit dem Editor beide Batch- 
files ein und speichern diese auf Ihrer Work-Disk (Workbench- 
Kopie oder CLI-Diskette). Initialisieren Sie das Kopierprogramm 
mit dem Befehl: 

EXECUTE CLIRAM 


Zum Kopieren eines Files auf eine andere Diskette dient der 
Befehl: 


ex FILECOPY Name 
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Das Programm fordert die benötigten Disketten automatisch 
an. Sie müssen nur die Disketten wechseln und mit <RETURN> 
quittieren. (Johannes Mayr/rs) 


(Anmerkung der Redaktion: Das Batchfile speichert einige CLI- 
Befehle unter abgekürzten Namen in der RAM-Disk. Dies ist prak- 
tisch, erspart Tipparbeit, kann aber zu Verwechslungen führen. 
Grundsätzlich sollten Sie die CLI-Befehle nicht umbenennen.) 


Grüße aus dem Herzen des Amiga 


Das Betriebssystem des Amiga befindet sich im Kickstart-RAM 
($FC0000 - $FFFFFF beziehungsweise 16580608 - 16777216). 
Basic-Programmierer können mit Hilfe des Befehls PEEK einen 
Blick in die Systemroutinen werfen. Schauen Sie sich in diesem 
Bereich um. An manchen Stellen ist auch ohne Disassembler et- 
was erkennbar. Mit dem folgenden Basic-Programm finden Sie ei- 
ne besondere Nachricht: 

REM Werte für Kickstart 1.1 

Start = 16653596 : Ziel = 16653672 

REM Werte für Kickstartversion 1.2 

REM Start = 16649670 : Ziel = 16649747 

CLS 

WIDTH 67 

PRINT 

FOR i = Start TO Ziel 
PRINT CHR$(i); 

NEXT i 





(Rolfdieter Schiedrum/rs) 


Wieder ist einer der versteckten Scherze des Amiga-Betriebs- 
systems entdeckt: 

Diesmal handelt es sich um einen Trick im Preference-Window: 
— Drücken Sie dort die Knöpfe der beiden abgebildeten Mäuse 
nacheinander; viermal von links nach rechts. 

— Jetzt betätigen Sie im Auswahlfenster »ChangePrinter« den 
Pfeil nach oben. Wenn Sie ganz oben angelangt sind, lesen Sie 
dort ......... 


Klar, daß wir das nicht abdrucken. (Siad Ardroumli/rs) 


Noch mehr Geheimnisse 


Durch Drücken mehrerer Tasten können Sie dem Amiga so 
manche geheimnisvolle Botschaft entlocken. 
Eine interessante »Fingerübung« ist die folgende: 

Drücken Sie zunächst die linke <Shift>- und <Alt>-Taste. 
Nicht loslassen. Als nächstes betätigen Sie die <Alt>-, 
<Shift>- und < Amiga > -Taste auf der rechten Seite. Zum guten 
Schluß müssen Sie noch eine beliebige sechste Taste drücken; 
schon versteckt sich die Maus in der rechten unteren Ecke des 
Bildschirms. Befindet sich die Maus allerdings vor der Finger- 
akrobatik in der Menüleiste, rutscht der gesamte Workbench- 
Screen nach unten. Der eigentliche Sinn dieser Kombinationen 
ist unklar, oder kennen Sie eine Anwendung? Was auch immer 
dahintersteckt, es verbergen sich bestimmt noch mehr solcher 
geheimer Tastenkombinationen im Amiga. Machen Sie sich auf 
die Suche. (Mario Himmel/rs) 


Einen haben wir noch 


Laden Sie die Workbench. Drücken Sie nun die Kombination 
der Tasten <Shift>, <Alt>,<Shift>, <Alt> und eine Funk- 
tionstaste. So, fünf Finger sind jetzt belegt. Vermutlich brauchen 
Sie auch beide Hände — wer hat schon so große Hände?. Versu- 
chen Sie dennoch einmal, die Diskette aus dem Laufwerk zu zie- 
hen. Jetzt erscheint oben im Screen eine Nachricht: 

(Ein Schelm wer Arges dabei denkt) 

Und zu guter Letzt noch ein Scherz — vermutlich. In den Prefe- 
rences versteckt sich an der linken Seite des Fensters ein Gadget. 
Kennen Sie dessen Bedeutung? Wer sie bereits weiß, soll sich bit- 
te melden. Wenn das wieder ein Scherz ist, heißt es dann bald 
»Einen, einen haben wir noch........ «. (Siad Ardroumli/rs) 
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Ein interessantes Projekt 


Es gibt unterschiedliche Arten von Piktogrammen, unter ande- 
rem die »Tools« und die »Projects«. Tools sind Programme. Durch 
zweimaliges Anklicken werden sie gestartet. Zwei Beispiele hier- 
für sind die »Preferences« und die Uhr. 

Projects dagegen sind Dateien, die von anderen Programmen 
erzeugt wurden. Sie können nicht eigenständig geladen werden. 
Sie sind abhängig von einem Tool. Jedes Basic-Programm stellt 
ein solches Projekt dar. Dennoch lassen sich die Projekte durch 
zweimaliges Anklicken aktivieren. In der Info-Datei des Pikto- 
gramms ist der Name des zugehörigen Tools vermerkt. Sie verän- 
dern ihn mit Hilfe des Menüpunktes »Info« auf der Workbench: 

Angenommen, Sie haben mit einem Editor einen Text verfaßt 
und möchten, daß dieser beim Anklicken des Datei-Piktogramms 
auf dem Bildschirm erscheint. Kopieren Sie zunächst das Tool 
»More« von der ExtrasD-Diskette in die RAM-Disk. Als Mutterpro- 
gramm tragen Sie »ram:more« in der Info-Datei Ihres Textes ein. 
Nun müssen Sie nur noch das Text-Icon anklicken. 

Viele Editoren erzeugen zu den gespeicherten Dateien aller- 
dings keine Piktogramme. Ein Beispiel ist »MicroEmacs« auf der 
Extras-Diskette. Doch der Workbench-Benutzer kann zu diesen 
Texten ein bereits existierendes Icon verwenden. Er darf sogar ein 
Icon wählen, dessen Gattung nicht dem geforderten Projekt-Typ 
entspricht: 

Laden Sie in diesem Fall »IconEd« sowie das gewünschte Bild. 
Klicken Sie einen zweiten Rahmen an, in den Sie ein beliebiges 
Piktogramm laden, dessen Typ aber dem gewünschten entspricht 
— in diesem Fall ein Projekt. Löschen Sie den zweiten Kasten mit 
»Clear Image«, wählen Sie »Merge with Frame« und bewegen die 
Maus auf das erste Feld. Wenn Sie nun die Maus loslassen, befin- 
det sich im aktivierten zweiten Quadrat das gewünschte Image. 
Dieses speichern Sie unter dem Namen des Textes als Info-Datei. 

(Ralph Benzinger/rs) 


Wer hat den Amiga entwickelt? 


Kennen Sie die Entwickler des Amiga. Interessenten können 
deren Namen ermitteln. Aktivieren Sie die Workbench. Drücken 
Sie gleichzeitig beide < Shift >-Tasten sowie beide <ALT>-Ta- 
sten — wenn Sie jetzt auch noch eine der 10 Funktionstasten betä- 
tigen können, erscheinen am oberen Bildschirmrand die gesuch- 
ten Namen. Die Liste der Namen reicht von — halt, schauen Sie 
am besten selbst nach. Besonders die Taste F10 ist recht amü- 
sant. (Marco Trauner/rs) 


Amerikanische Tastatur 


Besitzer des Amiga 1000 kennen das Problem: Ein Programm 
benutzt den deutschen Zeichensatz und Sie haben nur eine ame- 
rikanische Tastatur. Wo liegt der Doppelpunkt, wo das Semikolon? 

Entweder Sie lernen die deutsche Tastaurbelegung auswendig 
oder benutzen Tastaturaufkleber. Die dritte Möglichkeit ist mit we- 
sentlich weniger Aufwand verbunden: 

Drücken Sie das gewünschte Zeichen auf der amerikanischen 
Tastatur zusammen mit der <ALT>-Taste. (Marco Trauner/rs) 


Gleiche Icons für RAM-Disk 
und Workbench 


Wollen Sie für die Workbench und die RAM-Disk eigene Icons 
verwenden? Mit einem kleinen Kniff ist dies zu schaffen. 

Sobald Sie die RAM-Disk mit dem Befehl »DIR ram:« initialisie- 
ren, erscheint immer das Standard-Icon auf der Workbench, auch 
wenn Sie für die Workbench-Diskette bereits ein eigenes Icon ent- 
worfen haben. Möchten Sie die RAM-Disk ebenfalls durch Ihr ei- 
genes Icon darstellen, so erreichen Sie dies mit Hilfe der Initiali- 
sierung: 

COPY disk.info to ram: 


Workbench-Icon und RAM-Icon sind nun gleich. Soll die RAM- 
Disk ein ganz besonderes Icon besitzen, so müssen Sie dieses 
auf der Diskette speichern und die RAM-Disk durch den Befehl: 


COPY spezialicon.info to ram: 


aufrufen. (Klaus Rupp/rs) 
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Selbstgestrickte Icons schützen 


Mit Hilfe des CLI-Befehls PROTECT können Sie Ihre selbster- 
stellten Icons schützen. Dies ist vor allem für Basic-Programmie- 
rer interessant. 

Wenn Sie für Ihr Programm mühsam ein eigenes Icon erstellt 
haben, dann das Programm ändern und erneut speichern, löscht 
Amiga-Basic brutal Ihr Icon. Deshalb sollten Sie das Icon bezie- 
hungsweise die zugehörige Info-Datei mit diesem Befehl sichern: 

PROTECT Programmtitel.info R 


Jetzt hat Amiga-Basic keine Chance mehr. Dieses Icon kann 
nur noch gelesen werden. (Rolfdieter Schiedrum/rs) 





Schneller Wechsel 
der Druckertreiber 


Dieser Tip richtet sich an diejenigen, die zwei oder mehr 
Drucker haben und denen der Druckertreibertausch mit »Prefe- 
rences« zu umständlich ist. Es wurde für Kickstart 1.2 entwickelt 
und sollte außerdem nicht mit der Original-Workbench nachvoll- 
zogen werden. Um die Schritte zu verdeutlichen, verwenden wir 
im Beispiel die Treiber für den Epson JX-80 und den Diablo C-150. 
1. Starten Sie den Amiga wie gewohnt (Amiga 1000 mit Kickstart) 
und Workbench. Sobald jetzt der Text »Workbench-Diskette. 
Version ...« erscheint, drücken Sie bitte < Ctrl-D>. Sie befinden 
sich nun im Fenster des CLI (Command Line Interface). 

2. Geben Sie nun folgende Befehle ein und lösen Sie diese, wie 
alle anderen, mit <Return> aus: »system/SETMAP d« und 
»LOADWB«. Sie befinden sich nun auf der Workbench. 

3. Lassen Sie sich mit »DIR devs/printers« die auf der Diskette be- 
findlichen Treiber ausgeben und merken sich den Namen derjeni- 
gen, die Sie öfter verwenden wollen. 

4. Kopieren Sie die Treiber in das Hauptdirectory. Beispiel: »COPY 
devs/printers/Epson__JX-80 TO Epson__JX-80« 

»COPY devsj/printers/Diablo__C-150 TO Diablo__C-150« 

5. Nun schaffen Sie erst mal Platz auf der Diskette. Das können 
Sie mit der Anweisung »DIR devs/printers OPT I«. Es erscheinen 
die einzelnen Namen der Treiber und Sie können durch Eingabe 
des Wortes »del« hinter dem Fragezeichen alle Treiber, die Sie 
nicht mehr brauchen (normalerweise alle), löschen. 

6. Leihen Sie sich mit »COPY clock.info to Epson_JX-80.info« 
das Icon der Uhr für den ersten Treiber. Führen Sie diese Anwei- 
sung für jeden der vorher kopierten Treiber durch. 

7. Mit der Anweisung »ENDCLI« gelangen Sie nun wieder auf den 
Bildschirm der Workbench. Öffnen Sie die Workbench-Disk, wäh- 
len dort die Empty-Schublade und im Menü den Punkt Duplicate 
aus. Im Fenster erscheint eine Schublade namens »Copy of Emp- 
ty«. Geben Sie ihr mit »Rename« aus dem Menü den Namen 
»Drucker«. Nach dem Öffnen dieser Schublade können Sie das 
Uhren-Icon mit den Treibernamen in die neue Schublade ziehen. 
Wenn Sie jetzt mal wieder den Treiber wechseln wollen, so reicht 
ein Anklicken in der Workbench, um ihn auszuwählen. 

Wenn Sie sich mit dem Icon-Editor auskennen, können Sie 
auch das Icon ändern. (Peter Riediberger/rs) 


Alles Feste ins RAM 


Mit der resetfesten RAM-Disk von ASDG können Sie sich vor 
unerwarteten Systemabstürzen schützen. Die ASDG-Disk ist un- 
ter anderem nützlich, um die CLI-Befehle darin zu sichern — be- 
sonders, wenn sie nur mit einem Laufwerk arbeiten. Trotz eines 
Resets stehen Ihnen dann sofort alle Befehle zur Verfügung, um 
im CLI zu arbeiten. Sie sparen Zeit. Die »Startup-Sequence« auf 
Ihrer Diskette sollte etwa so aussehen: 

MOUNT VDO: 
IF EXISIS VDO:c 
ELSE 
ECHO "Kopiere CLI das erste mal” 
MAKEDIR VDO:c 
COPY c/DIRI ECHOI LISTI COPY! ASSIGNI CD TO VDO:c 
ASSIGN C: vdO:c 
PATH dfO:c ADD 
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ENDIF 

PATH SYSTEM ADD 
SETMAP d 
LOADWB 


Welche Befehle Sie in der resetfesten RAM-Disk unterbringen, 
richtet sich nach Ihren Anforderungen. Entscheidend ist, daß Sie 
beim nächsten Start nicht eine Ewigkeit warten müssen, bis der 
Amiga eine neue RAM-Disk mit den CLI-Befehlen einrichtet. 

(Wolfgang Hettmer/rs) 


Starkes Duo: CLI und Workbench 


Geht es Ihnen auch so: Gerade sind Sie mitten drin im Arbeiten 
auf der Workbench, plötzlich benötigen Sie einen CLI-Befehl. Als 
erstes müssen Sie nun die System-Schublade öffnen, das CLI la- 
den und auch noch das Fenster vergrößern. Das geht einfacher. 
Fügen Sie einen kurzen Befehl in der »Startup-Sequence« ein: 


NEWCLI con: 540/200/60/50/CLI-Fenster 


Binden Sie den Befehl vor dem Befehl LOADWB ein. Nach dem 
Booten finden Sie auf der Workbench unten rechts ein kleines 
CLI-Fenster. Es steht Ihnen bei Bedarf sofort zur Verfügung. 

Wollen Sie die Startup-Sequence im großen Stil ändern, ist die 
Kenntnis der zahlreichen CLI-Befehle unerläßlich. Im Kurs ab Sei- 
te 114 finden Sie viele Hinweise zum Command-Line-Interface. 
Außerdem gibt’s noch Tips zum CLI ab Seite 144. 

(Peter Riedlberger/rs) 


INSTALL mit nur einem Laufwerk 


Gerade im Zusammenhang mit der Beseitigung von Viren aus 
dem Boot-Block hat der Befehl INSTALL Berühmtheit erlangt. Er 
weist allerdings eine Schwäche auf. Mit ihm können Sie nicht, 
wenn er von der Arbeitsdiskette geladen wird, eine Diskette im 
Laufwerk dfO: installieren. Um den gewünschten Effekt zu erzie- 
len, sind folgende Schritte nötig: 

COPY c/INSTALL to ran: 
CD ram: 
INSTALL dfO: 


Der Amiga kopiert zunächst die Routine in die RAM-Disk. Sollte 
sich der INSTALL-Befehl nicht im C-Ordner befinden, müssen Sie 
ihn im Ordner »System« suchen: 

DIR dfO:system 

Befindet sich der Befehl dort, geben Sie folgendes ein: 

COPY System/INSTALL to ram: 


Mit der kopierten Routine sind Sie dann jederzeit in der Lage, 
eine Diskette im internen Laufwerk zu bearbeiten, um sich bei- 
spielsweise einen Virus vom Hals zu schaffen. 

(Boris Neumann/rs) 


MERGE ohne lästige Frage 


Wenn ein Basic-Programm mit dem Befehl CHAIN MERGE ar- 
beitet, um Veränderungen im Programm hervorzurufen, tritt-ein 
Problem auf: Bei mehrmaligem Aufruf von CHAIN MERGE er- 
scheint die lästige Abfrage, ob das alte Programm vor der Verän- 
derung gespeichert werden soll. Diese muß der Anwender immer 
erst beantworten und erst dann läuft das Programm weiter (siehe 
auch AMIGA 3/88, Seite 95). Verwenden Sie folgende Variante: 


DELETE Neuer Bereich 


SAVE ”Programmname ” 
CHAIN MERGE ”ram:Neue Befehlszeilen”, 1000 


In diesem Beispiel wurde die Zeile 1000 eingefügt, da als An- 
fangspunkt keine alphanumerische Sprungmarke erlaubt ist. Un- 
ter den Befehlszeilen, die eingefügt werden, muß sich in der er- 
sten Zeile die Marke »NeuerBereich« finden. Diese wird dann ab 
Zeile 1000 eingefügt. Vor einem erneuten Aufruf von CHAIN MER- 
GE wird dieser Bereich wieder gelöscht. Wenn das Programm 
sich dann quasi selbst speichert, entfällt die Sicherheitsabfrage. 

(Eike Cornelius/rs) 
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Hallo Amiga-User 


Der Amiga ist für viele Anwender der erste Computer mit Multi- 
tasking-Fähigkeiten. Dies erfordert ein Umdenken beim Program- 
mieren. Einige Regeln sind zu beachten, um ein einwandfreies 
Multitasking zu gewährleisten: 

1. Das Betriebssystem kann nicht den unsachgemäßen Zugriff auf 
die Routinen der Libraries kontrollieren. Ist etwas im Programm 
des Anwenders angemeldet oder zugewiesen worden, muß dies 
vor dem Beenden des Programms wieder rückgängig gemacht 
werden. Wird zum Beispiel Speicher reserviert oder eine Biblio- 
thek geöffnet, muß die Library auch wieder geschlossen bezie- 
hungsweise der Speicher wieder freigegeben werden. 

2. Fehlermeldungen von den Routinen des Betriebssystems müs- 
sen in jedem Fall kontrolliert werden. Sie dürfen nicht einfach da- 
von ausgehen, daß zum Beispiel die mit »AllocMem« erfolgte Re- 
servierung von Speicher immer erfolgreich verläuft. Mehrere 
Tasks können vielleicht RAM anfordern. Schon geht Ihr eigenes 
Programm leer aus. Auch bei einem Fehler ist zu beachten, daß 
das Programm alle bis dahin geöffneten Ressourcen vor dem 
Rücksprung wieder an das System zurückgibt. 

3. Die Register DO,D1,A0,A1 sind »Scratch-Register«. Sie enthal- 
ten Parameter beim Aufruf von 
Systemroutinen. Sie dürfen in 
keinem Fall annehmen, daß 
die Register von den Routinen 
unberührt bleiben. Wenn wich- 
tige Werte in den betreffenden 
Registern stehen, müssen Sie 
diese vor dem Aufruf einer Sy- 
stem-Routine retten. Die übri- 
gen Register sind im allgemei- 
nen vor einem Überschreiben 
sicher. 

4. Daten, die von den Custom- 
Chips (Copper, Blitter ...) ver- 
wendet werden, sind immer im 
Chip-RAM zu speichern. Die 
Chips können nur auf diesen 
Speicherbereich zugreifen. Oft 
kommt es vor, daß ein Pro- 
gramm auf einem Amiga mit 
512 KByte läuft, jedoch seine 
Dienste in Zusammenarbeit 
mit einer Speichererweiterung 
verweigert. Da hat ein Pro- 
grammierer nicht aufgepaßt. 
Im Zweifelsfall sollten Sie da- 
her alle Daten immer ins Chip- 
RAM legen. Allerdings müssen 
Sie aufpassen: Bei mehreren 
gleichzeitig laufenden Programmen kann dieser Speicher schnell 
knapp werden. 

5. Besitzer des Seka-Assemblers sollten sich bewußt sein, daß der 
Objektcode des Assemblers immer zuerst in das Fast-RAM gela- 
den wird. Befinden sich im Objektcode Daten für die Custom- 
Chips, freut sich der Guru. 

6. Damit ein Programm auch in naher Zukunft auf Rechnern mit 
680xx-Prozessoren läuft, sollte der Befehl SR,<ea> durch die 
Funktion »GetCC()« aus der Exec-Library ersetzt werden. 

7. Ein Programm sollte niemals Adreßzeiger mit nur 24 Bit verwen- 
den. Auch wenn der 68000er im Amiga nur einen 24 Bit breiten 
Adreßbus besitzt. 32-Bit-Zeiger sichern Sie vor Überraschungen 
auf dem Hardware-Sektor. 

8. Die einzige absolute Adresse beim Amiga ist $00000004. Dort 
befindet sich der Zeiger auf die Exec-Library. Bei dieser absoluten 
Adresse sollte es ein guter Programmierer belassen. 

9. Oft wird vergessen, daß sich mehrere gleichzeitig laufende Pro- 
gramme die Rechenzeit teilen müssen. Die Ausführung einer 
Routine kann zugunsten einer anderen unterbrochen werden. 
Dies kann zu Konflikten führen, wenn Programme das gleiche 
wollen, zum Beispiel Speicher allozieren oder auf ein Laufwerk 
zugreifen. Dies ist zwar selten, aber Sie müssen sich darauf ein- 
stellen: Fordert Ihr Programm einen Teil der Ressourcen des Ami- 
ga, müssen Sie dafür sorgen, daß kein anderer Task gleichzeitig 
dasselbe will. Dies erreichen Sie durch den Aufruf von Forbid() be- 
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ziehungsweise Permid(). Forbid sperrt alle weiteren Tasks, wäh- 
rend Permid den alten Zustand herstellt. Beide Routinen liegen in 
der Exec-Library. 

So, das reicht. Dies sind zumindest einige wichtige Punkte, die 
Sie bei der Programmierung des Amiga berücksichtigen sollten 
— Es lohnt sich. Der Amiga ist ein so fantastischer Computer, er 
verdient auch entsprechend behandelt zu werden. 

(Wolf-Jürgen Faust/rs) 


RAM-Erweiterung abschalten 


Einige Programme für den Amiga 500 laufen nicht mit der Spei- 

chererweiterung. Auch das Programm »NoFastMem« hilft in man- 
chen Fällen nicht. Sie müssen die RAM-Erweiterung schon kom- 
plett abschalten. Hierzu ist lediglich der Einbau eines Schalters 
erforderlich: 
— Nehmen Sie zunächst die Erweiterungsplatine und betrachten 
sie von der Unterseite. Trennen Sie auf der Platine die eingezeich- 
nete Leiterbahn direkt an Pin 32 durch und überbrücken die Un- 
terbrechung mit einem Schalter. Vor jedem Aus- und Einschalten 
der RAM-Erweiterung schalten Sie auf jeden Fall den Amiga aus. 
Warten Sie mit dem Umschal- 
ten etwa 10 Sekunden, bis alle 
Signalpegel im Rechner abge- 
baut werden. 

Die Umbauanleitung be- 
zieht sich auf die Original- 
Speichererweiterung von 
Commodore, das Prinzip ist 
aber bei allen Speichererwei- 
terungen dasselbe: Sie müs- 
sen die Verbindung zwischen 
den Leitungen EXRAM Pin(32) 
und GROUND (unter anderem 
Pin 33) durchtrennen und mit 
einem Schalter überbrücken. 
Nur wenn EXRAM auf low liegt, 
erkennt der Amiga die RAM- 
Erweiterung. Dies ist der Nor- 
malfall bei eingebauter Spei- 
chererweiterung. Ist die Ver- 
bindung bei eingebauter Er- 
weiterung jedoch unterbro- 
chen, steht der zusätzliche 
Speicher nicht zur Verfügung. 
(Anmerkung der Redaktion: 
Bei ausgeschalteter Erweite- 
rung ist die Verbindung zwi- 
schen EXRAM und GROUND 
unterbrochen. Nur das zusätz- 
liche RAM wird beim Starten nicht aktiviert. Eine auf der Erweite- 
rung eingebaute Uhr arbeitet normal. 

Denken Sie bitte daran, daß Sie durch Arbeiten an der Hard- 
ware jegliche Garantieansprüche verlieren und Ihren wertvollen 
Computer zerstören könnten. Eine Umbauanleitung, bei der Sie 
sich das Löten auf der Platine ersparen, finden Sie in der 68000er 
Ausgabe 11/87 auf Seite 101). (Frank Ahlhorn/rs) 





Es geht auch ohne Mäuse 


Gehören Sie zu den Anwendern, die die Maus auch mal beisei- 
te legen und nur mit dem CLI arbeiten? Insbesondere C- und As- 
semblerprogrammierer benötigen keine Workbench-Umgebung. 
Dann werden Sie sicherlich eine Diskette anlegen, bei der das 
AmigaDOS-Fenster nach dem Booten gar nicht erst geschlossen 
wird. Am einfachsten geht dies, indem Sie den Befehl LOADWB 
in der »Startup-Sequence« entfernen. Dabei entsteht das Pro- 
blem, daß das Fenster nach dem Start mit der Maus auf die volle 
Größe gebracht werden muß, um die PAL-Auflösung zu nutzen. 
Doch wo ist die Maus? Wieder müssen Sie dieselbe aus der 
Schreibtischschublade hervorkramen. Aber halt, 'es geht auch 
einfacher. Dieses C-Programm, in die »Startup-Sequence« einge- 
bunden, schafft Abhilfe: 


#include <exec/types.h> 
#inelude <intuition/intuition.h> 
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struct IntuitionBase *IntuitionBase; 
main() 


IntuitionBase = (struct IntuitionBase*) 
OpenLibrary (”intuition.library”,0); 
if (IntuitionBase = 0) exit (0); 
SizeWindow (IntuitionBase -> ActiveWindow, 0, 
56); 
CloseLibrary (IntuitionBase); 


) 


In den ersten beiden Zeilen werden die benötigten Include- 
Files eingebunden. Der Zeiger auf die IntuitionBase wird einge- 
richtet und in main() die Intuition-Bibliothek geöffnet. Die Funktion 
»SizeWindow« verändert die Größe eines Windows: 

SizeWindow (Zeiger auf Fensterstruktur, dy, dx) 


In diesem Fall wird das aktuelle Fenster, also das CLI-Window 
um 56 Pixel in der Vertikalen vergrößert. Zum Schluß wird die Li- 
brary geschlossen und zurück zum CLI gesprungen. Eine einfa- 
che, aber wirkungsvolle Sache. (Dirk Brammerts/rs) 


»J« oder »y« keine Frage 


Der neue Befehl des CLI, ASK, ist eine feine Sache. Leider er- 
wartet er ein »y« für die Antwort »Ja«. Da bietet es sich an, den Be- 
fehl einzudeutschen. An vier Stellen muß das »y« durch »j« ersetzt 
werden. Ein Basic-Programm führt alle Änderungen durch: 
CHDIR ”SYS:C” 

OPEN ”ASK” FOR INPUT AS #8 

ASK$ = INPUT$(LOF(8), #8) 

CLOSE #8 

IF LEN(ASK$) <> 1580 THEN FEHLER 

IF MID$(ASK$,1156,1) <> ”y” THEN FEHLER 

IF MID$(ASK$,1180,1) <> ”Y” THEN FEHLER 

IF MID$(ASK$,1218,1) <> ”Y” THEN FEHLER 

IF MID$(ASK$,1228,1) <> ”y” THEN FEHLER 
MID$(ASK$,1156,1) = ”5j” 

MID$(ASK$,1180,1) = ”I” 

MID$(ASK$,1218,1) “u 

MID$(ASK$,1228,1) Bad 
0 
P 


J 
PEN ”askd” FOR OUTPUT AS 
RINT #6, ask$; 

CLOSE #6 

END 

Fehler: 

PRINT ”Da stimmt was nicht” 


Nach erfolgreicher Konvertierung löschen Sie die Datei»ask.in- 
fo«. Damit der alte ASK-Befehl erhalten bleibt, heißt der neue Be- 
fehl »ASKD«. Wenn Sie ausschließlich mit der deutschen Version 
arbeiten möchten, löschen Sie ASK, um Speicherplatz zussparen. 

(Harald Zacharias/rs) 


Mit Basic ins System 


Wußten Sie, daß Sie einen Screen auf dem Bildschirm mit ei- 
nem Basic-Programm verschieben können? Wissen Sie, wie ein 
Overscan-Screen geöffnet wird? Dies ist nicht sonderlich schwer. 
Setzen Sie die Werte für die Größen Width und Height auf 704 be- 
ziehungsweise auf 282. Aber ist es wirklich erforderlich, das Bild 
mit den Preferences nach links oben zu verschieben? Diese Ar- 
beit übernimmt von nun an der Amiga: 

LIBRARY ”intuition.library” 

prefs$ = STRING$(120,0) 

CALL GetPrefs&(SADD(prefs$),120) 

x = PEEK(SADD(prefs$)+118) 

y = PEEK(SADD(prefs$)+119) 

POKE SADD(prefs$)+118, x-16 AND 255 
POKE SADD(prefs$)+119, x-13 AND 255 
CALL SetPrefs&(SADD(prefs$),120,1) 
SCREEN 1,704,282,1,2 

WINDOW 1,,(0,0)-(694,268),0,1 
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#6 





(0,0)-(694,268) ‚1 
LINE (0,0)-(693,267),1 
ager" 

WHILE a$ = ”" : aß = INKEY$ : WEND 

WINDOW CLOSE 1 

SCREEN CLOSE 1 

POKE SADD(prefs$)+118,x 

POKE SADD(prefs$)+119,y 
CALL SetPrefs&(SADD(prefs$),120,1) 
LIBRARY CLOSE 
END 


Zunächst öffnet das Programm die Intuition-Library. Die zuge- 
hörige Bitmap-Datei muß sich auf der Basic-Diskette befinden. Da 
die Angaben über die Position des Screens an 118ter und 119ter 
Stelle der Preferences gespeichert sind, müssen Sie 120 Byte re- 
servieren. Dies geschieht durch die Definition eines Strings mit 
dieser Länge. In diesen kopieren Sie die benötigten Zeichen aus 
den Preferences. Dies erledigt die Funktion »GetPrefs«. Anschlie- 
Bend wird die neue Position des Screens in den verantwortlichen 
Stellen des Strings eingetragen und mit der Funktion »SetPrefs« 
gesetzt. Ein nun geöffneter Overscan-Screen erscheint in der Mit- 
te des Bildschirms. Damit alles seine Ordnung hat, werden am 
Ende des Programms die alten Werte in die Preferences eingetra- 
gen. Wenn Sie das Listing entsprechend modifizieren, können 
Sie auf weitere Werte in den Preferences zugreifen. Anwendun- 
gen gibt es genug. (Friedhof Siebert/rs) 





Reservieren bestimmter 
Speicherbereiche 


Die EXEC-Funktion »AllocAbs« ist sehr nützlich, wenn be- 
stimmte Speicherbereiche reserviert werden sollen, um dort zum 
Beispiel eine Grafik abzulegen. Diese Funktion teilt dem Betriebs- 
system mit, daß der gewünschte Bereich im Speicher belegt ist. 
Schreibt man seine Daten in einen nicht reservierten Bereich, 
kann es passieren, daß das Betriebssystem diesen neu belegt. 
Mit dem folgenden Assembler-Programm wird zum Beispiel ein 
Speicherblock von $50000-$60000 reserviert: 

BelegeAbs: 

move.1 $04,a6 

move.1 #850000,a1 ; Startadresse 

move.1 #$10000,d0 ; Anzahl der Bytes 
jsr -204(86) ; AllocAbs 


; AbsExecBase 


(Christian Seiler/rs) 


Direkt in die Bitmap 


Für besonders schnelle Assembler-Programme ist es oft wün- 
schenswert, Punkte auf dem Bildschirm direkt durch Adressie- 
rung der Bitplanes anzusprechen. Eine Möglichkeit hierzu bieten 
die zwei Unterroutinen »PSet« und »PClear«: 


PClear: 


move.b #$b5, label+1 
PSet: 

divu #8, dO 

mulu #40, di 

add.w do, di 

swap do 

move.b #, d2 

sub.b do, d2 
label: 

bset a2, (a5,d1) 


move.b #$f5, label+1 
rts 


Die Unterprogramme sind mit dem Seka-Assembler geschrie- 
ben. Um einen Punkt zu setzen oder zu löschen, rufen Sie »PSet« 
beziehungsweise »PClear« auf. Übergeben Sie folgende Werte in 
den genannten Registern: 

X-Koordinate des Punktes in dO 
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Y-Koordinate des Punktes in di 
Zeiger auf Bitplane in a5. 

Die Startadressen der Bitplanes eines Screens sind leicht zu 
finden. Die Intuition-Funktion »OpenScreen« liefert den Zeiger 
auf die Screendaten. Addieren Sie zu diesem Wert #$C0. An der 
berechneten Stelle befindet sich die Adresse der ersten Plane. 
Der Pointer auf die zweite und alle weiteren Planes liegt jeweils 
vier Byte höher. 

Diese direkte Programmierung der Bitplanes ist etwas für Tüft- 
ler und birgt viele Fehlerquellen. Sie können Punkte auch durch 
einfache Angabe der Koordinaten mit Hilfe der Systemroutinen in 
der »graphics.library« setzen und löschen. In Basic steht Ihnen 
hierfür der Befehl PSET zur Verfügung. Allerdings sind diese Be- 
fehle ein wenig langsamer. (David Czock/rs) 


Keine unnötige Arbeit mit den 
Preferences 


Mit Preferences kann man bekanntlich seine Workbench indivi- 
duell gestalten (beispielsweise Farben oder Mauszeiger). Viele 
Amiga-Programme bringen jedoch eine Workbench mit, die mit 
anderen Voreinstellungen arbeitet. Um diese Voreinstellungen 
seinen Wünschen anzupassen, kann man die Parameter einer 
eigenen Workbench verwenden, ohne die »Preferences« aufru- 
fen zu müssen. Die benötigten Daten befinden sich im File 
»devs/system-configuration«. Sie können die Konfiguration auf Ih- 
rer Workbench mit folgendem Befehl einfach auf jede andere 
Startdiskette kopieren: 


Copy Quelldiskette:devs/system-configuration to 
Zieldiskette:devs/system-configuration 


(Anmerkung der Redaktion: Bei zahlreichen Programmen ist 
die Veränderung der Preferences nicht unbedenklich, da die be- 
treffenden Programme zum Beispiel nur mit einer bestimmten 
Farbeinstellung arbeiten können. Sie sollten dies bedenken, 
wenn Sie die gesamte Systemkonfiguration auf die beschriebene 
Art ändern.) (Wilhelm Holtmeier/rs) 


Druckeransteuerung 


Versucht man, seinem Drucker über die Druckerschnittstelle 
mehr als nur Text, also auch Steuerzeichen zu übermitteln, so 
kann man schnell verzweifeln ... denn da kommt nichts an! 

Der Grund liegt in der speziellen Druckersteuerung des Amiga. 
Es wurde nämlich — um die 100prozentige Kompatibilität aller 
Programme zu gewährleisten — ein spezieller Druckercode ent- 
wickelt, der dann von dem mit Preferences gewählten Drucker- 
treiber für den jeweiligen Drucker umgesetzt wird. Das ist eine 
sehr intelligente Idee, denn so erspart man sich die umständliche 
Installation von neuen Programmen. 

Im Handbuch wird nur kurz — durchaus üblich für 
Commdore-Dokumentationen — auf diesen Umstand eingegan- 
gen. Hier nun eine Auswahl der meistverwendeten Drucker- 
Steuer-Codes (ESC steht für CHR$(27); die übrigen Zeichen sind 
in Anführungsstriche zu setzen; es können auch mehrere Befehle 
kombiniert werden, diese sind dann durch einen Strichpunkt zu 
trennen): 

ESC[2w - Elite ein 

ESC[{1w - Elite aus 

ESC[4w - Schmalschrift ein 

ESC[3w - Schmalschrift aus 

ESC[6w - Breitschrift ein 

ESC[5w - Breitschrift aus 

ESC[2’z-NLQ ein 

ESC[{1”z- NLQ aus 

ESC[2p - Proportionalschrift ein 

ESC[1p - Proportionalschrift aus 

ESC[2v - Superscript ein 

ESC[1v - Superscript aus 

ESC[4v - Subscript ein 

ESC[3v - Subscript aus 

ESC[1m - Fettdruck ein 

ESC[22m - Fettdruck aus 

ESC[4m - Unterstreichen ein 

ESC[24m - Unterstreichen aus 
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Ein Beispiel für eine Textausgabe in Fettdruck: 

LPRINT CHR$(27); ”[1m”;”Hallo Welt!” 
Ein weiteres für die Übergabe des Anführungszeichens: 

LPRINT CHR$(27); ”[”;chr$(34);”2”; "Diesmal in NLQ” 

Wer diese Art der Druckersteuerung in seinen Programmen 
verwendet, gewährleistet dadurch, daß sein Programm auch auf 
anderen Druckern die gleichen Ergebnisse liefert. Wem diese Art 
der Programmierung jedoch zu umständlich ist, der kann den 
Drucker ohne die Umleitung über »prt:« auch direkt ansprechen, 
indem er die Schnittstellen »par:« oder »ser:« verwendet. Alle 
Steuerzeichen werden dann »unzensiert« übermittelt. Im »ROM 
Kernel Manual: Libraries and Devices« befindet sich im Kapitel 15 
(Printer Device) eine komplette Liste dieser Drucker-Kontrollfunk- 
tion. Leser mit C-Kenntnissen erhalten hier auch detaillierte Infor- 
mationen über den Umgang des Amiga mit einem Drucker. 

(Michael Baas/rs) 


Mit beiden Armen tief im System 


Hier noch ein paar kleine Routinen für die Assembler-Freaks: 
Unterroutine für die Initialisierung einer eigenen Copperliste: 
set_user_copperlist: 

MOVE.L 4,A6 

LEA Gfxname, A1 

JISR -408(A6) 

MOVE.L DO,A5 

ADD.L #832, A5 
MOVE.L A5,savecop2 
MOVE.L (A5),savecop 
MOVE.L #COPLIST, (A5) 
RTS 


Unterroutine für das Entfernen einer eigenen Copperliste: 


recall_old_copperlist: 
MOVE.L savecop,A5 
MOVE.L savecop2(A5) 
RTS 


Label, die von den Copper-Routinen gebraucht werden: 
gfxname: dc.b ”graphics.library”,0 
even 
savecop: de.1 0 
savecop2: dc.1 0 


(Warnung der Redaktion: Sie sollten wissen was Sie tun, wenn 
Sie in dieser oder anderer Form direkt auf die Hardware des Ami- 
ga zugreifen.) (Christian Zaenker/rs) 


Basic-Ausgabe im großen Stil 


Das Ausgabefenster des Amiga-Basic hat eine Größe von 200 
Punkten in der Vertikalen. Auch mit der Maus läßt es sich nicht auf 
die volle PAL-Höhe ausdehnen. Der Interpreter ist mit der fal- 
schen Maximalhöhe ausgestattet. Doch diese läßt sich durch ei- 
nen kleinen Patch korrigieren: Stellen Sie zunächst fest, ob Sie 
die richtige Basic-Version für den folgenden Patch besitzen. Prü- 
fen Sie die Länge des Programms mit Hilfe des CLI-Befehls LIST: 


LIST AmigaBasic 

Als Ergebnis sollten Sie 103484 oder 103500 erhalten. In die- 
sem Fall schauen Sie sich das Amiga-Basic genauer an: 
TYPE AmigaBasic opt h 

Sobald am linken Bildschirmrand die Adresse $5800 auftaucht, 
drücken Sie die Leertaste. So halten Sie das Listing an. Mit der 
BackSpace-Taste setzen Sie die Ausgabe fort. In der Zeile mit der 


Adresse $57e0 finden Sie den gesuchten Wert für die Fenster- 
größe: 


57EO: OO0E4E75 2FOA303C 02803230 00080043 
..2<...Cc 


Die Parameter $0280 und $00C8 entsprechen der maximalen 
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..Nu/.0< 


Breite beziehungsweise Höhe. Diese Werte können Besitzer ei- 
nes Diskettenmonitors direkt auf der Diskette ändern. Doch nicht 
jeder hat dieses Werkzeug. Sie können den »Patch« auch mit dem 
folgenden Basic-Programm durchführen: 

CLEAR , 50000& 

NeueHöhe$ = CHR$(1)+CHR$(O) 'erste 1=256 
OPEN ”AmigaBasic” FOR INPUT AS #1 LEN=4096 
OPEN ”NeuesBasic” FOR OUTPUT AS #2 LEN=4096 


PRINT #2, INPUT$(&H57EC, #1); 
PRINT #2, NeueHöhe$; 
a$=INPUT$(2, #1) 


"Anfang kopieren 
'neue Höhe 
"alte Höhe ignorieren 


PRINT #2,INPUT$(&H7000, #1); 
PRINT #2,INPUT$(&H7000, #1); 
PRINT #2,INPUT$(&H5000, #1); 
WHILE NOT EOF(1) 'spart mühsames Berechnen 

PRINT #2,INPUT$(1, #1); 'der verbleibenden Bytes 
WEND 


'Rest kopieren 


CLOSE #1, #2 


Wenn Sie Basic vom CLI aus aufgerufen haben, können Sie 
nach Ablauf des Programms gleich weiterarbeiten. Stellen Sie zu- 
nächst sicher, daß das geänderte Basic die gleiche Länge besitzt 
wie das ursprüngliche: 

LIST NeuesBasic 


Bei einem anderen Wert als 103484 beziehungsweise 103500 
müssen Sie den »Patcher« überprüfen und von vorne beginnen. 
Die Funktion des neuen Basic können Sie ausprobieren: 


RUN NeuesBasic 


Hat alles geklappt? Wenn alles gut geht, bleiben noch einige 
Aufräumarbeiten. Sie können mit DELETE die Info-Datei des ge- 
patchten Basic löschen und umbenennen: 


DELETE NeuesBasic.info 
RENAME AmigaBasic AltesBasic 
RENAME NeuesBasic AmigaBasic 


Natürlich sollten Sie diese Arbeiten nicht mit der Original- 
Extras-Diskette ausführen. Arbeiten Sie mit einer Sicherheitsko- 
pie. Dann machen Sie nichts kaputt, wenn Ihnen ein Fehler unter- 
läuft. Es ist zu empfehlen, daß Sie das neue Basic unter dem Ori- 
ginalnamen speichern. Ansonsten müßten Sie die Default-Tool- 
Namen aller bereits gespeicherten Basic-Programme und den 
entsprechenden Toolnamen, den Amiga-Basic allen neu gespei- 
cherten Programmen zuordnet, ändern. Doch diese unnötige Ar- 
beit wird sich jeder Programmierer ersparen wollen. 

(Peter Pörner/rs) 


Basic-Patch für andere Versionen 


Das große Ausgabefenster für Amiga-Basic ist der Hit. Für die 
ältere Basic-Version 1.00 mit der Länge von 93156 Bytes sind fol- 
gende Änderungen im Patch-Programm notwendig: 

— Die Zahl &H57EC muß durch &H55E8, 
— die Zahl &H5C00 durch &H2800 ersetzt weren. 

Mit diesen kleinen Veränderungen können Sie dann auch die 
älteren Basic-Versionen patchen, um in den Genuß des großen 
Ausgabefensters zu kommen. (Alexander Wagner/rs) 


Tolles Tool mit Anleitung 


Der Editor »MicroEmacs« schlägt den ED um Längen. Aller- 
dings nur wenige wissen, daß sich dieses hervorragende Werk- 
zeug auf der ExtrasD-Diskette von Commodore befindet. Schau- 
en Sie nach. Das Programm hat seinen Platz in der Schublade 
»Tools«. Und auch eine Anleitung ist auf der Diskette gespeichert. 
Sie verbirgt sich hinter dem Piktogramm »MicroEmacs.doc«. Es 
existieren drei Wege die Anleitung zu lesen: 

— Klicken Sie das Piktogramm »MicroEMACS.doc« zweimal an. 
Mit einem System-Requester fordert der Amiga Sie nun auf, das 
Original der ExtrasD-Diskette einzulegen. Sofern Sie nur ein 
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Laufwerk besitzen, gelangen Sie nach zwei weiteren Disketten- 
wechseln in das erste Bild der Anleitung. 

— Wer die Anleitung schneller lesen möchte, lädt das Utility 
»More«. Es dient dazu, ASCII-Dateien auf dem Bildschirm auszu- 
geben. Nach der Frage »Filename?«, tippen Sie »MicroEMACS. 
doc« und drücken <Return>. 

— Der elegante Weg ist, eine <Shift>-Taste zu drücken und mit 
der Maus die Piktogramme MicroEMACS.doc und More anzu- 
klicken. Danach wählen Sie in der Menüzeile der Workbench 
»Open«. Wer es noch einfacher möchte, klickt bei gehaltener 
<Shift-Taste> MicroEMACS.doc an und aktiviert dann MORE 
mit einem Doppelklick. 

Nach dem Laden sehen Sie auf dem Bildschirm die erste Seite 
der Anleitung. Durch Drücken von <h> gelangen Sie in einen 
Screen mit Hilfsanweisungen zu More. Mit <Space > blättern Sie 
in der Anleitung weiter. Sie umfaßt 70 Seiten und ist in Englisch 
geschrieben. Am Ende befindet sich eine alphabetische Liste al- 
ler »Shortcuts« ( abgekürzte Befehle) von MicroEMACS. Sie ver- 
lassen die Anleitung mit <q>. Wer den gesamten Text intensiv 
studieren möchte, kann ihn auch mit PrintFiles ausdrucken las- 
sen. (Nick Seggelke/rs) 


Mehr für MORE: Printfiles 


Das Tool MORE auf der Extras-Diskette istschon eine feine Sa- 
che, um Textdateien auf dem Bildschirm auszugeben. Im Gegen- 
satz zu TYPE stoppt die Ausgabe auf dem Bildschirm immer, 
wenn dieser voll ist. Allerdings kann es nicht verwendet werden, 
um Textdateien auf dem Drucker auszugeben. Wer also TYPE 
durch MORE ersetzt, sollte auch das Programm »PrintFiles«im C- 
Ordner seiner Workbench aufnehmen. Dieses Utility befindet 
sich ebenfalls auf der Extras-Diskette: 


COPY ExtrasD:TOOLS/PrintFiles TO StartDisk:C 


Noch komfortabler als MORE ist BLITZ von der Fish-Disk 60. 
Dies sollten Sie sich auch einmal anschauen. 
(Torsten Radtke/rs) 


Laufwerk: eine brennende Sache 


Nachdem in der Ausgabe 2/88, Seite 93, das Ein- und Ausschal- 
ten der Power-LED gezeigt wurde, ist nun die Leuchtdiode des 
Laufwerks dran. Das Aufleuchten erreichen Assemblerprogram- 
mierer mit diesen Befehlen: 


LED: EQU $BFD100 
move.b #127,LED 
move.b #119, LED 
move.b #0, LED +512 


Auch wer in Basic programmiert, kann die LED aufleuchten 
lassen: 


LED = 12570880& 
POKE LED, 127 
POKE LED, 119 
POKE LED + 512,0 


Um die LED wieder auszuschalten, braucht man lediglich die 
letzte O0 mit dem Wert 255 auszutauschen. Das kleine Programm 
kann jeder gut brauchen, der zum Beispiel dem Anwender zeigen 
möchte, daß er die Finger vom Laufwerk lassen soll. So verhin- 
dern Sie, daß jemand eine Diskette zu früh aus dem Laufwerk 
nimmt. »Entwarnung« ist erst, wenn die Lampe erlischt. 

(Armin Hegglin/rs) 


Joystickabfrage in Assembler 


Für Programmierer von Actionspielen ist die Verwendung von 
Assembler eine Alternative zu Basic oder C, um schnelle Pro- 
gramme zu erzeugen. Um von einem Maschinenprogramm den 
Joystick abzufragen, gibt es prinzipiell zwei Verfahren: 

1. Sie können das »Gameport-Device« verwenden. Der Haken an 
der Sache: Ihr Programm wird aufgebläht und langsam. 

2. Als Alternative bleibt, den Joystickport direkt abzufragen. Grei- 
fen Sie mittels weniger Assemblerbefehle direkt auf die Hard- 
wareregister zu. Das folgende Programm kehrt nach seinem Auf- 
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ruf mit einem Wert im Register dO für den Joystick in Port O zurück. 
Den entsprechenden Wert für Port 1 finden Sie in di: 

JOYODAT =$DFFOOA 

JOY1DAT =$DFFOOC 

JOYTEST =$DFF036 

LeseJoystick: 

elr.w JOYTEST ; Löschen der Mausregister 

move.w JOYODAT,dO ; JoyPort 0 lesen 

move.w Joy1DAT,d1 ; JoyPort 1 lesen 

rts 


In den Registern dO und di stehen je nach Stellung des ange- 
schlossenen Joysticks diese Werte: 
$0300 links 
$0200 links oben 
$0201 links unten 
$0100 oben 
$0000 Mitte 
$0001 unten 
$0103 rechts oben 
$0003 rechts 
$0002 rechts unten 


Einfacher und schneller geht es nicht. (Jörg Schmidt/rs) 


Der Herr der Fenster 


Basic-Programmierer können mit Hilfe der »Intuition-Library« 
jedes Fenster auf vielfältige Weise beeinflußen. Die Befehle in die- 
ser Bibliothek sind um einiges leistungsfähiger als die üblichen 
Basic-Befehle. Die »Intuition-Library« ist unter anderem für die 
Verwaltung der Windows und Screens verantwortlich. Öffnen Sie 
zunächst diese Bibliothek: 


LIBRARY ”intuition. library” 
Natürlich muß sich die Datei »intuition.bmap« im aktuellen Da- 


teiverzeichnis befinden. Folgende Befehle stehen dem Program- 
mierer nun zur Verfügung: 


CALL WindowLimits (WINDOW(7) ‚minx,miny,maxx,maxy) 
verändert die Minimal- und Maximalwerte des aktuellen Fensters. 
CALL SizeWindow (WINDOW(7), Breite, Höhe) 
wechselt die Größe eines Windows um die angegeben Werte. 
CALL WindowIoFront (Window(7)) 
CALL WindowToBack (WINDOW(7)) 
bringen ein Fenster in den Vorder- oder Hintergrund. 
CALL MoveWindow (WINDOW(7),X,Y) 

Damit läßt sich ein Fenster auf dem Bildschirm positionieren. 


Mit ähnlichen Befehlen können Sie Screens beeinflussen. Sie 
müssen nur einen Zeiger auf den Screen-Datensatz festlegen: 


LET ScereenHdl& = PEEKL (WINDOW (7)+46) 
Die Befehle für einen Screen lauten: 
CALL ScreenToFront(ScreenHdl&) 
CALL ScreenloBack (ScreenHdl&) 
CALL MoveScreen (X,Y) 
Wer so seine Fenster und Screens kontrolliert, wird feststellen, 
daß er viele neue leistungsfähige Funktionen einsetzen kann. Er 
muß nur aufpassen, daß für die Breite oder Länge Integervaria- 


blen verwendet werden. Außerdem werden die übergebenen 
Werte nicht auf Gültigkeit überprüft. (Tobias Helge Kosuch/rs) 


Basic-Programme beschleunigen 


Basic-Programme lassen sich beschleunigen. Hierzu muß der 
Programmierer die Funktion »SetTaskPri« aus der exec.library 
aufrufen und die Priorität des zum Basic-Programm gehörenden 
Tasks erhöhen: 

DECLARE FUNCTION FindTask& LIBRARY 
LIBRARY ”exec.library” 
task& = FindTask&(task&, zahl) 
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CALL SetTaskPri& (task&, zahl) 
REM Programm 


CALL SetTaskPri& (task&,0) 


Durch den ersten Aufruf erhöhen Sie die Priorität eines Pro- 
gramms. Das Betriebssystem stellt dem Programm nun mehr Re- 
chenzeit zur Verfügung. Die »Zahl n« kann sich in den Grenzen 1 
bis 127 bewegen, um eine Beschleunigung zu bewirken. Je höher 
der Wert, desto schneller läuft das Programm. Der zweite Aufruf 
setzt den Zeitfaktor wieder auf den ursprünglichen Wert. Dies soll- 
ten Sie nicht vergessen, da sonst die Betriebssystemroutinen, die 
normalerweise vorrangig bearbeitet werden, nicht mehr korrekt 
ablaufen können. Die Beschleunigung macht sich vor allem be- 
zahlt, wenn viele Berechnungen anfallen oder eine komplizierte 
Grafik aufgebaut wird. (Klaus van Eerd/rs) 


Nanu — Fenster ohne Rahmen 


Mit der Routine »WRAND« schalten Sie die Umrandung eines 
Fensters aus oder an. Das folgende Programm zeigt die Subrouti- 
ne und eine Anwendung als Beispiel:: 

LIBRARY ”intuition.library” 
WINDOW 2, test”, (100,50)-(300,150),26 
WRAND 
PAINT (1,1),2 
COLOR 2,3:PRINT ”AMIGA-Fenster” 
WHILE WINDOW(0)=2 
IF MOUSE(O) THEN CALL WRAND 
WEND 
WINDOW CLOSE 2 
LIBRARY CLOSE 
END 
SUB WRAND STATIC 
wi&=WINDOW (7) 
'Adresszeiger Intuition: Fenster-Datensatz 
POKEL(wi&+24) ‚PEEKL(wi&+24) XOR 2048 
'Borderless-Flag setzen/löschen 
CALL RefreshWindowFrame(wi&) "Rahmen erneuern 
END SUB 


Wie bei allen Programmen, die Routinen einer Systembiblio- 
thek verwenden, muß sich natürlich die Bitmap-Datei der verwen- 
deten Library im aktuellen Dateiverzeichnis befinden. In diesem 
Fall brauchen Sie also die Datei »Intuition.bmap«. 

(Michael Padberg/rs) 


Debugging-Hilfe für C-Programme 


Jeder, der schon mit Compilern gearbeitet hat, weiß ein Lied da- 
von zu singen: das Programm steckt voller Fehler, die der Compi- 
ler auch brav ausgibt, aber viel zu schnell. Ehe sich der Program- 
mierer versieht, sind die ersten Meldungen bereits vom Bild- 
schirm verschwunden. Doch zum Glück kann der Amiga-User 
Dateien umlenken. Die Sequenz: 


cc >Errout Optionen 
ruft den Compiler auf und lenkt die Ausgabe der Fehlerliste auf ei- 
ne Diskettendatei um. Diese können Sie dann mit TYPE jederzeit 


ausgeben und anschauen. Natürlich können Sie die Fehlerliste 
auch auf einem Drucker ausgeben. (Jörg Nowak/rs) 


Schnelle Schleifen in C 


Bei Schleifen lohnt es sich, Zeit zu sparen: 
main () 
int x 
for ( x=0; x < 5000000 ; x+) 
Diese Schleife mit 5 Millionen Durchläufen benötigt etwa 46 Se- 
kunden, wenn Sie das Programm von der RAM-Disk starten. We- 


sentlich schneller wird die Schleife durchlaufen, wenn Sie Regi- 
stervariablen verwenden: 
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main() 
register int x; 
for ( x=0; x < 5000000; x+) 


Dieser »Loop« benötigt nur 23 Sekunden. Eine vergleichbare 
Assembler-Schleife ist noch schneller: 


Start: 

move.1 #5000000,d2 
loop: 

dbra di, loop 
rts 


Eine solche Schleife benötigt nur noch 7 Sekunden. 
(Andreas Moshammeri/rs) 


NoFastMem für den Amiga 2000 


In der AMIGA 8/9 veröffentlichten wir in der Rubrik Tips und 
Tricks eine Umbauanleitung, um die Speichererweiterung beim 
Amiga 2000 abzuschalten. Hier ist eine einfachere Version. Da 
auf der Erweiterungskarte im Amiga 2000 keine Uhr berücksich- 
tigt zu werden braucht, kann die Abschaltung des Speichers 
durch eine Unterbrechung der Spannungsversorgung erfolgen. 
Nehmen Sie hierzu die Platine; die Bauteileseite bitte dabei auf 
Sie zugerichtet. 

Trennen Sie auf der Erweiterungskarte die Leiterbahn zwi- 
schen den Kontaktfahnen an Pin 5 und 6 durch. Diese Trennstelle 
müssen Sie nun mit einem Schalter überbrücken. Den Schalter 
können Sie außen am Amiga befestigen. 

Achtung: Vor jedem Umschalten muß der Amiga ausgeschal- 
tet werden. Bedenken Sie bitte, daß Sie durch Arbeiten an der 
Hardware jegliche Garantieansprüche verlieren. Für eventuelle 
Schäden, die beim Umbau entstehen, wird keine Haftung über- 
nommen. (Dieter Schlingmann/rs) 


Die Lösung für den neuen Amiga 


Viele Besitzer des Amiga 2000 stellen uns die Frage, welche 
Unterschiede zwischen dem Amiga A2000 und B2000 bestehen. 

Differenzen bestehen in der Hardware. Verschiedene Bauteile 
des alten Amiga 2000 sind durch »FAT-Agnus« und »Garry« ersetzt 
worden. Der B2000 enthält im Gegensatz zum A2000 1 MByte auf 
der Hauptplatine. Die oberen 512 KByte sind durch einen Jumper 
abschaltbar. Damit wird der Einbau eines Schalters, um das 
FastRam hardwaremäßig abzuschalten, noch einfacher. Aller- 
dings ist eine Erweiterung auf 1,5 MByte nicht mehr so leicht 
durchführbar wie zuvor. 

Eine weitere Änderung: Der Anschluß des Lightpen wurde auf 
den zweiten Maus-Port gelegt. Mit Hilfe eines Jumpers läßt sich 
diese Einstellung ändern. Die Entwickler haben auch den Video- 
Teil durch einen 36poligen Slot erweitert. 

Die wichtigen Jumper im einzelnen: 

— J101: Mit diesem wird das höchste Adreßbit der Speichererwei- 

terung eingestellt. Momentan ist es A23. Es wird benötigt, um den 

Speicherbereich ab $C00000 zu verwalten. In der zweiten Posi- 

tion ist es Bit A19. Es erlaubt die Nachrüstung mit einem erweiter- 

ten VideoChip. Dieser wird also 1 MByte verwalten können. 

— J200: Der Jumper regelt den Lightpen-Port. 

— J300: Er ist zuständig für den Takt des CIA Timer Chip. In der 

momentanen Position wird der Timer mit Netzfrequenz, das heißt 

50 Hertz, getaktet. In der zweiten Position bestimmt der Takt des 

vertikalen Synchronisierimpulses das Geschehen. 

— J301: Dieser Jumper ist für den Anschluß eines zweiten inter- 

nen Laufwerks entscheidend. 

— 500: Sind die oberen 512 KByte des 1 MByte großen RAM- 

Bereichs unerwünscht, können Sie diesen Jumper auftrennen. 

Dann besitzt der Amiga 2000 nur noch 512 KByte Chip-RAM. 
(Jörg Koch/rs) 


Quelle: Technical Reference Manual 500/2000 


Externes Laufwerk zum Booten 
Mit einer Änderung der »Startup-Sequence« können Sie den 


Bootvorgang auf ein externes Laufwerk umleiten. Dies ist interes- 
sant für die Besitzer eines 5',-Zoll-Laufwerks, die ein Programm 
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auf 5,-Zoll-Diskette kopiert haben, das sich aber nur durch Boo- 
ten starten läßt. 

Für die Änderung müssen Sie eine Startdiskette präparieren, 
die den Bootvorgang auf das externe Laufwerk umlenkt. Am ein- 
fachsten verwenden Sie eine normale Workbenchkopie. 

Auf dieser ändern Sie die »Startup-Sequence«: 


ASSICN S: dfl:s 
FAILAT 21 

ASSICN L: afl:l 
ASSIGN FONTS: df1:fonts 
ASSIGN LIBS: df1:libs 
ASSIGN devs: dfl:devs 
ASSICN SYS: dfl: 
ASSICN C: dfl:c 


df0:c/CD SYS: 
df0:c/EXECUTE Startup-Sequence 


Probieren Sie das Programm aus. Legen Sie Ihre »externe 
Bootdiskette« in Laufwerk df1: und die modifizierte Workbench im 
Laufwerk dfO: ein. Jetzt starten Sie den Amiga erneut. 

Diese Methode hilft oft, aber nicht immer. Sie versagt zum Bei- 
spiel bei Programmen, die das interne Laufwerk direkt anspre- 
chen, um dort Daten zu lesen. (Angela Schmidt/rs) 


CLI-Mate ohne ».fastdir« 


Mit Hilfe eines Basic-Programms läßt sich eine der schlechten 
Angewohnheiten von »CLI-Mate« vermeiden. »CLI-Mate« ist ein 
leistungsfähiges Tool, mit dem Sie Ihre Disketten verwalten kön- 
nen. Das Programm erlaubt es, Files aus jedem Dateiverzeichnis 
in andere zu kopieren. Des weiteren erzeugt das Programm für je- 
des Dateiverzeichnis auf einer Diskette ein »Fast-Directory«. Die- 
ses wird automatisch auf jede Diskette kopiert, deren Schreib- 
schutz nicht aktiviert ist. 

Der große Vorteil dieser Prozedur: Jedesmal wenn Sie mit»CLI- 
Mate« ein Directory von der Diskette lesen, das bereits als ».fast- 
dir« vorhanden ist, zeigt der Amiga prompt das Inhaltsverzeichnis 
an. 

Der Nachteil: Diese zusätzlichen Files nehmen Platz weg. Sie 
stören auf Disketten, die Sie einmal mit »CLI-Mate« erstellt, aber 
nie wieder mit dem Programm bearbeiten möchten. 

Das Programm »Modify.CLI-Mate« schafft Abhilfe: 

DEFINT a-z 
OPEN”r”, #1, "df0:c/elimate”,1 


REM Befindet sich das Programm in einem anderen 
REM Pfad, so muß dieser eingesetzt werden. 
FIELD #1,1 as d$ 

h$="nil: ”+string$(4,0) 

REM h$=".fastdir” * für alten Zustand* 
Loop: 

READ: IF s=-1 then CLOSE : END 

FOR i=sto +7 

LSET d$=MID$(H$,i-s+1,1) : PUT#1,1 
NEXT I 

GOTO Loop 


&H083B 
&HOF5E 
&HOFSA 
&H1780 
&H17A9 
&H438D 
&H4552 
&H4BD3 
&HA4C9L 
&HADCB 
DATA &H -1 
Um ein modifiziertes Programm wieder in den alten Zustand zu 


versetzen, müssen Sie die im Listing angegebene Zeile von »Mo- 
dify.CLI-Mate« ersetzen. (H. Rückeshäuser/rs) 
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Hello, Amiga is calling 


Subroutinen in Amiga-Basic müssen mit CALL aufgerufen wer- 
den, wenn der Aufruf am Anfang einer Zeile steht und keine Para- 
meter besitzt. Diese Maßnahme ist erforderlich, da der Interpreter 
den Aufruf sonst mit einer Sprungmarke verwechselt. Doch wird 
dies auch verhindert, wenn Sie statt CALL einen Doppelpunkt ver- 
wenden. Das verkürzt nicht nur die Zeile, sondern trägt auch zur 
Übersichtlichkeit bei. (Jürgen Brendel/rs) 


Störenfriede im Basic-Programm 


Wenn Sie einmal in Basic auf Syntaxfehler stoßen, für die Sie 
keine Erklärung finden, kontrollieren Sie einmal alle Zeilen mit ei- 
ner »END IF«-Anweisung. Sobald hinter IF noch ein Blank (Leer- 
zeichen) steht, spielt der Interpreter häufig nicht mehr mit. Am be- 
sten bringen Sie den Cursor hinter die Anweisung und drücken 
<Return>.Dann sind Sie sicher, daß keine störende Zeichen fol- 
gen. Rene Beaupoil/rs) 


Wohin mit den .bmaps 


Um zu gewährleisten, daß Amiga-Basic die .bmap-Dateien 
auch immer findet, sollten diese ins Verzeichnis »libs« Ihrer Sy- 
stem-Diskette kopiert werden. So können Sie Ihr Basic-Verzeich- 
nis beliebig mit CHDIR wech- 
seln, ohne eine LIBRARY-An- 
weisung mit »File not found« 
quittiert zu bekommen. Außer- 
dem brauchen Sie die .bmap- 
Dateien nun nur noch auf einer 
Diskette, egal wie viele Basic- 1 
Disketten Sie haben. 

(Angela Schmidt/rs) 
Es gibt nichts 
zu bereuen 


Haben Sie schon einmal Än- 
derungen in einer Zeile beim 
Editieren eines Programms in 
Amiga-Basic bereut. Jetzt wol- 
len Sie die »Untat« wieder rück- 
gängig machen, aber wie sah 
die Zeile doch gleich noch 
aus...? Eine einfache Hilfe ist 
die UNDO-Funktion: Drücken 
Sie, ohne die Zeile vorher zu 
verlassen, die rechte <Ami- 
ga>-Taste und <L>. Sofort 
erscheint die alte Zeile wieder. 

(Jens Spitczok/rs) 


Das gibt’s doch gar nicht 


In der Ausgabe 3/88 des AMIGA-Magazins (Seite 106), wurde 
beschrieben, wie man in einem Basic-Programm feststellt, ob 
eine Datei vorhanden ist. Hier ist eine weitere Möglichkeit, die 
auch ohne die Systembibliotheken auskommt: 


OPEN ”Pfad/Name” FOR APPEND AS #1 
IF LOF(1) = O THEN 

PRINT ”Datei nicht vorhanden” 
ELSE 
PRINT ”Datei vorhanden” 
END IF: 
CLOSE #1 














Als erstes wird die zu prüfende Datei zum sequentiellen Anfü- 
gen geöffnet. Jetzt wird die Länge der Datei ermittelt. Ist sie gleich 
Null, ist die Datei nicht auf der Diskette. Ist die Datei nicht vorhan- 
den, wird sie auch nicht angelegt, wie das beim normalen Öffnen 
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St e]=X:j 7:1, 


AT GEE 


Basic a 


Amiga-Basic ist einer der leistungsfä- 

higsten Basic-Dialekte, die es über- 

haupt gibt. Aber holen Sie auch wirk- 

lich alles aus dieser Sprache heraus? 

Mit den tollen Tips auf den folgenden 

Seiten erweitern Sie Ihren Sprach- 
schatz. 
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der Fallwäre — ein großer Vorteil dieser Methode. Selbst leere Da- 
teien werden erkannt, da sie immer ein Abschlußzeichen enthal- 
ten. (Roland Nöll/rs) 


Fensternamen 


In der »Intuition.library« gibt es eine Funktion namens »SetWin- 
dowTitles«. Sie ändert den Namen eines Fensters. Mit einer Unter- 
routine läßt sich dies von Basic aus realisieren: 


SUB Titel (WT$,ST$) STATIC 
WT$=WTFHCHR$(O) : STS=STFHCHR$(O) 
CALL SetWindowlitles 

(WINDOW (7) ‚SADD(WT$) ‚SADD(ST$)) 

END SUB 


Die Subroutine ändert sowohl den Namen des aktuellen Fen- 
sters als auch des zugehörigen Screens. Übergeben Sie die neu- 
en Namen beim Aufruf: 


CALL Titel (”Neuer Fenstername”, ”Neuer 
Screentitel”) 


Beachten Sie, daß Sie zuvor die »Intuition.library« mit dem Be- 
fehl »LIBRARY ”intuition.library ” « öffnen müssen. 
(Tobias Helge Kosuch/rs) 


Eigene Icons 
für Amiga-Basic 


Wer hat sich noch nicht dar- 
über geärgert, daß die Icons 
(Bildsymbole) der Amiga-Ba- 
sic-Dateien alle gleich ausse- 
hen? Ändern der Icons mit dem 
»IconEd« lohnt sich nicht, denn 
kaum hat Amiga-Basic die Da- 
tei wieder bearbeitet, ist das 
Standard-Bildsymbol wieder 
Ein kurzes Basic-Pro- 
gramm schafft hier Abhilfe. Es 
läßt sich einfach in bestehende 
Programme einbauen. Zu- 
nächst muß einmalig mit dem 
Programm »ConvertFD« aus 
dem Verzeichnis »BasicDe- 
mos« der ExtrasD-Diskette die 
».bmap«-Datei für die Icon-Bi- 
bliothek erzeugt werden. Die- 
ser Vorgang ist im Amiga-Ba- 
sic-Handbuch ausführlich be- 
schrieben. Anschließend kön- 
nen Sie das gewünschte Icon 
mit dem auf der Workbench-Diskette befindlichen Symbol-Editor 
(Icon-Ed) zeichnen. Eine Beschreibung der Bedienung des Edi- 
tors ist in dieser Ausgabe zu finden. Beim Test des Listings wurde 
das erstellte Icon in einem mit»MAKEDIR DBOBJ« erzeugten Ver- 
zeichnis unter dem Namen »DBicon.info« abgelegt. Der Zusatz 
».info« braucht nicht angegeben zu werden. Er wird von Put/Get- 
DiskObjekt automatisch generiert. Die ».bmap«-Datei wurde in 
das Verzeichnis »basiclibs« gelegt. Die neue Routine weist das 
DBicon allen Programmen zu, deren Namen eingegeben wird. 
Der Filename »ende« bricht die Verarbeitung ab. Eventuell auftre- 
tende Fehlermeldungen haben folgende Bedeutung: 

150 — Datei nicht vorhanden oder kein Piktogramm 
151 — Fehler bei der Piktogrammerstellung 

Bei Verwendung in eigenen Programmen muß die Routine hin- 
ter der Close-Anweisung für die jeweilige Datei stehen, da sonst 
wieder das Einheits-Icon auftaucht. 

LIBRARY ” :basiclibs/icon.library” 
DECLARE FUNCTION PutDiskObjekt& LIBRARY 
DECLARE FUNCTION GetDiskObjekt& LIBRARY 
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filnam$=" :DBObj/DBIcon”+chr$(0) 
diskobj&=GetDiskObjekt&(SADD(filnam$)) 
IF diskobj&=0 THEN ERROR 150 

lsif; 
INPUT ”Filename: ”;file$ 
IF file$=”ende” THEN SYSTEM 
file$=file$+chr$(0) 
zw&=PutDiskObjet&(SADD(file$) ‚diskobj&) 
IF zw&=0 THEN ERROR 151 


GOTO 1s1f (Hans Keutgen/rs) 


Schnelle Textausgabe in Basic 


Da die Geschwindigkeit der Bildschirmausgabe beim Amiga- 
Basic ja direkt zum Abgewöhnen ist, haben wir die Libaries (Libra- 
ry: Routinensammlung im Kickstart-ROM oder auf Diskette) nach 
einer schnelleren Routine durchforstet und sind in der »gra- 
phics.libary« bei »text« fündig geworden. Um diese Routine im Ba- 
sic zu verwenden, stellen wir eine kleine Sub-Routine vor, die mit 
»Prnt(a$)« oder »Prnt(”.....”) aufgerufen werden kann. Dabei ist 
jedoch zu beachten, daß hinter dem Text kein Zeilenvorschub ge- 
macht wird. 


SUB PrnT(a$) STATIC 
CALL text(Window(8),SADD(a$),LEN(a$)) 
END SUB 


Am Anfang des Hauptprogramms muß die Libary mit »LIBRA- 
RY ”graphics.libary ” « eröffnet werden. (Stefan Riegel/rs) 


Copy und Paste in Basic 


Beim Entwickeln verschiedener Programme mit ähnlichen 
Strukturen kann es vorkommen, daß sich viele Programmteile un- 
tereinander gleichen. Eine einfache Methode, Programmteile von 
einem Programm in das andere zu übertragen, ist die Verwen- 
dung der COPY-Funktion aus der Menü-Leiste. Laden Sie das 
Programm, in dem der gewünschte Programmteil steht, markie- 
ren Sie ihn und aktivieren danach die COPY-Funktion. Das Seg- 
ment wird nun im »Clipboard« (Zwischenspeicher) gespeichert. 
Nun können Sie das Programm laden, in dem dieser Programm- 
teil benötigt wird, den Cursor positionieren und mit PASTE das 
Segment in den Programmspeicher übernehmen. 

(Uwe Bäumler/rs) 


Mehr Speicher für Amiga-Basic 


Mit dem Basic-Kommando CLEAR können Sie den verfügba- 
ren Programm- und Variablenspeicher neu dimensionieren (sie- 
he auch Amiga-Basic-Handbuch). Dennoch gibt es Schwierigkei- 
ten mit dem Befehl: 

CLEAR liefert häufig keinen Block, obwohl FRE(-1) noch genü- 
gend Platz anzeigt. Die Erklärung können Sie leicht experimentell 
ermitteln: 

Laden Sie vor Aufruf des Basic-Interpreters das Utility »Free 
Memory« von der »ExtrasD-Diskette«. Dieses Programm öffnet 
am unteren Bildrand ein Fenster und gibt eine grafische Darstel- 
lung der momentanen Speicherbelegung. Laden Sie nun Amiga- 
Basic und Ihr Testprogramm. Das Zusatzfenster zeigt wie der freie 
Systemspeicher zusammenschrumpft. 

Starten Sie ein Basic-Programm, das am Anfang eine 
CLEAR-Anweisung ausführt. Diese soll beispielsweise das 
Daten- und Programmsegment der voreingestellten 25000 Bytes 
vergrößern. 


CLEAR , 50000 


Das geht nur dann gut, wenn im Speicher ein weiterer zusam- 
menhängender Block der angeforderten Größe neben dem be- 
reits bestehenden Bereich zur Verfügung steht. »Free Memory« 
zeigt Ihnen sehr eindrucksvoll, wie das aktuelle Datensegment 
bei diesen Operationen hin- und hergeschaltet wird. Erst wird ein 
neuer Block reserviert, dann das alte Segment freigegeben. Das 
Ergebnis dieser Versuche lautet: 
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— Der momentane Programm- und Datenspeicher wird bei der 
Ermittlung eines neuen nicht einbezogen. Dies gilt auch, wenn 
der aktuelle Speicher nur zum Teil genutzt wird. 
— Der neue Speicherbereich muß zusammenhängend sein. 

Es gibt zwei Wege, um ein möglichst großes Datensegment zu- 
gewiesen zu bekommen: 
1. Im Direkt-Modus verkleinern Sie das Datensegment soweit wie 
möglich: 
CLEAR , 1024 

Nun können Sie ein großes wählen. Zum Beispiel: 


CLEAR , 100000 

2. Im Programm erfolgt die Reservierung folgendermaßen. 
CLEAR , 25000 - FRE(0) 

REM tatsächliche Programmlänge bleibt reserviert 
CLEAR, FRE(-1) -30000 

REM verbleibender Speicher abzüglich einer Reserve 


Die Reserve, die Sie dem Betriebssystem zur Verfügung stellen 
müssen, hängt davon ab, ob Sie im Programm Befehle verwen- 
den, die Systemspeicher anfordern: 

— SOUND 

— WAVE 

— WINDOW 

— SCREEN 

— LIBRARY a 

Besonders das Öffnen eines neuen Screens läßt den verfügba- 
ren Speicher rasch dahinschmelzen. (D. Siedentop/rs) 


Joystickabfrage 


Die Basicfunktion »STRIG(n)« liefert je nach Argument (n) den 
Status des Feuerknopfes eines wählbaren Joysticks. Die Funktion 
übergibt eine »-1« oder »0« als Rückgabewert, je nachdem, ob die 
getestete Bedingung erfüllt ist oder nicht. In der Beschreibung im 
Basic-Handbuch hat sich der Guru eingeschlichen. Dort stehen 
die Rückgabewerte »1« beziehungsweise »O«. 

(Jochen Kümmel/rs) 


Ein neuer Befehl für Basic 


Der Befehl CENTER erlaubt Ihnen, einen Text in einem Fenster 
zu zentrieren. Zahlreiche Basic-Versionen, zum Beispiel Simons 
Basic auf dem C 64, kennen dieses Statement. Es läßt sich in 
Amiga-Basic als Subroutine verwirklichen: 

SUB Center (a$) STATIC 

POKEW WINDOW (8) + 36, WINDOW (2)/2-LEN (a$) * 4 
PRINT a$ 

END SUB 


Wenn Sie nun Überschriften ausgeben möchten, schreiben Sie 
in Ihrem Programm: 


CENTER ”genau in der Mitte” 


Paßt dieser Text nicht in das Fenster, wird die Ausgabe unter- 
drückt. Ansonsten erscheinen alle Zeilen — »genau in der Mitte«. 
(Tobias Helge Kosuch/rs) 


Nach langer Nacht ist das Programm endlich fertig — fast. Alles 
was der Programmierer noch braucht, isteine Funktion, die durch 
einen bestimmten Tastendruck ausgelöst wird. »Wie war noch mal 
der Code von dieser..... Wo ist das Handbuch? Oje, da stehen gar 
nicht alle Werte und dann auch noch von einer anderen Tastatur. 
Verd...« 

Wenn Sie alle Tastencodes Ihres Keyboards wissen möchten, 
schreiben Sie sich lieber eine Liste, die Sie immer verwenden 
können: 


10 REM Tastenkombinationen 
20 WHILE 1 
30  age"” 
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40  WHILE ag="" 
50 a$ß=INKEY$ 


60 WEND 

70 FOR I=1 T0 LEN(a$) 

80 PRINT ASC(MID$(A$,1,1)) 
90 NEXT 

100 PRINT 

110 WEND 


Mit diesem Basic-Programm können Sie alle Tastatur-Codes er- 
mitteln. Vor allem, wenn dieses verflixte Handbuch wieder einmal 
verschwunden ist. (Klaus Blaschek/rs) 


Alternative zu MOUSE 


Mit Amiga-Basic lassen sich die Koordinaten der Maus nur in 
Verbindung mit MOUSE(0) abfragen. Eine Alternative: 


PEEKW(WINDOW(7)+12) 
PEEKW(WINDOW(7)+14) 


Der erste Aufruf liefert die Y-. der zweite die X-Koordinate. Die 
Werte beziehen sich auf den Rahmen des Fensters. Um die Koor- 
dinaten relativ zur Zeichenebene zu erhalten, müssen Sie 11 vom 
Y- und 3 vom X-Wert abziehen. Ein Beispiel: 
wind& = WINDOW(7) 

WHILE 1 

LOCATE 1,1 

PRINT PEEKW(wind&+14), PEEKW(wind&+12) 
WEND 


Das Programm zeigt ständig die Mauskoordinaten relativ zum 
Rahmen des Fensters. Wenn Sie in der ersten Zeile des Listings 


a&=PEEKL(WINDOW(7)+46) 
schreiben und in der vierten Zeile 
PRINT PEEKW(a&+18) ‚PEEKW(a&+16) 


erhalten sie die Angaben bezüglich des Screens. 
(Tobias Helge Kosuch/rs) 


Scrollen im Listfenster 


Das Listfenster des Amiga-Basic läßt sich auf mehrere Arten 
scrollen: 

— Am bekanntesten ist das Scrollen mit Hilfe der Cursortasten. 
— Seitenweise läßt sich das Fenster durch gleichzeitges Drücken 
der Shift-Taste und der Cursortasten nach oben beziehungsweise 
unten verschieben. 

— Die dritte Methode ist hingegen nicht so bekannt. Das Listfen- 
ster können Sie auch mit der Maus bewegen. 

» Um eine bestimmte Zeile auf dem Bildschirm anzuzeigen, 
brauchen Sie nur die linke Maustaste drücken und bei gedrückter 
Taste mit der Maus nach unten oder oben aus dem Fenster zu fah- 
ren. Das Listing bewegt sich so lange in die geforderte Richtung, 
bis Sie den Mauszeiger wieder ins Fenster bringen, oder die 
Maustaste loslassen. 

Diese Funktion dient eigentlich zum Markieren eines Blocks, 
der nachfolgend mit »COPY, CUT und PASTE« bearbeitet werden 
soll. Um den selektierten Block normal darzustellen, genügt ein 
Mausklick. Alles ist wie gehabt, nur der Cursor ist genau dort, wo 
Sie es möchten. (Heinz Lösch/rs) 


Lieber schlafen als lange warten 


Das Basic-Statement SLEEP erscheint nur selten in Program- 
men. Es könnte in der Kombination mit der Maus nützlich ange- 
wendet werden. Wenn ein Programm warten soll, bis Sie die 
Maustaste anklicken, ist diese Subroutine geeignet: 
Warte_auf_Klickl: 

WHILE ( MOUSE(0)=0) 
WEND 
RETURN 


Diese Routine hat den Nachteil, daß der Prozessor viel Zeit ver- 
schwendet. Immer wieder durchläuft er die WHILE-Schleife. Die 
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Alternative hierzu ist eine Routine, die mit SLEEP arbeitet: 


Warte_auf_Klick2: 
ON MOUSE GOSUB Geklickt 
MOUSE ON 
Nochwach = 1 
WHILE (NochWach) 
SLEEP 
WEND 
RETURN 
Geklickt: 
Nochwach = 0 : RETURN 


Diese Mausabfrage ist besser, da der Prozessor andere Aufga- 
ben wahrnehmen kann. Der Amiga ist eine Multitasking-Maschi- 
ne. Wenn ein Task nur auf die Maus wartet, so sollte er auch keine 
wertvolle Prozessorzeit beanspruchen. Erst der Druck einer 
Maustaste im zum Task gehörenden Fenster reißt die Subroutine 
aus dem Schlaf. (Tis Veugen/rs) 


Ein riesiges Basic-Fenster 


Wie schon im Leserforum im AMIGA-Magazin, Ausgabe 11/87, 
erwähnt, ist das normale Basic-Fenster des Amiga nur maximal 
187 Punkte groß. Möchten Sie ein größeres Window? Möchten Sie 
den gesamten PAL-Bildschirm nutzen? Hier ist die Lösung: 

Als erstes müssen Sie einen neuen Screen für das Fenster öff- 
nen. Die im Basic-Handbuch angegebenen Höchstgrenzen für 
den SCREEN-Befehl sind falsch. Selbst auf einem Standard- 
Amiga lassen sie sich geringfügig überschreiten. Um ein großes 
Fenster zu programmieren, muß ein Trick angewendet werden: 

Verschieben Sie erst mit den »Preferences« den Bildschirm 
nach links oben. Dabei müssen Sie in Kauf nehmen, daß der Text 
in der Menüleiste bei manchen Monitoren schlechter zu lesen ist. 
Experimentieren Sie mit den Einstellungen, bis Sie einen guten 
Kompromiß gefunden haben. Geben Sie anschließend in Basic 
dieses Listing ein: 

SCREEN 1,673,269,1,2 
WINDOW 1, "Grafik”, (0,0)-(664,255),10,1 
WINDOW OUTPUT 1 
FOR y=1 to 255 
w=w+l 
FOR x=1 TO w 
PSET (664*RND(1),y) 

NEXT 

NEXT y 


Wenn Sie dieses Programm starten, so sehen Sie eine Grafik- 
Demonstration mit 664*255 genutzten Punkten — diese Zahl be- 
rücksichtigt noch nicht einmal den Rand des Fensters. 

(Andreas Imhoff/rs) 


Basic-Programme verändern sich 


Wollen Sie ein Programm schreiben, um Funktionen zu plot- 
ten? So richtig komfortabel arbeitet eine solche Routine, wenn der 
Benutzer eine gewünschte Funktion während des Programm- 
ablaufs über die Tastatur eingeben kann. Immer wieder lassen 
sich neue Formeln eintippen und anschließend in einem x-y- 
Diagramm betrachten. Hierzu ist ein Programm erforderlich, das 
die Funktion als String liest und in den Programmcode einbaut. 
Für Amiga-Basic ist dies ein Leichtes: 

— Lesen Sie die Funktion mit Hilfe des INPUT-Befehls 
— Öffnen Sie eine sequentielle Datei 

— Speichern Sie die Funktion als ASCII-Datei 

— Verknüpfen Sie die Datei und Ihr Programm mit MERGE 
10 INPUT ”Funktion”; FU$ 

20 FU$ = "500 DEF FNxy(X) = ”+ FU$ +”:G0T0 80” 
30 OPEN ”0”, #2, ”"ram:Datei” 

40 PRINT #2, FU$ 

50 CLOSE 2 

60 CHAIN MERGE ”ram:Datei”, 500, ALL 

70 GOTO 500 

80 INPUT "x”;x 


143 


90 PRINT ”F(”x”)="; FNxy(x) 
100 DELETE 500 
110 GOTO 10 


Anhand des Beispiels kann jeder Programmierer diese Technik 
studieren. Die neue Datei ist am besten in der RAM-Disk aufgeho- 
ben. Dies erspart Diskettenzugriffe. Die angehängte Zeile können 
Sie mit DELETE löschen und anschließend durch eine neue 
Funktion ersetzen. 

Bei dieser Methode müssen Sie eines beachten: Speichern Sie 
das Programm vor dem ersten Durchlauf. Sobald das Programm 
zum zweiten Mal die MERGE-Anweisung durchführt, meldet sich 
Amiga-Basic mit der Meldung:»Current Programm is not saved. 
Do you want to save it before proceeding«. Sie sollten dann in je- 
dem Fall »No« anklicken. (Torsten Kerschat/rs) 


Hardcopy-Routine im Programm 


Auf der Diskette »Amiga Extras 1.2« befindet sich in der Schub- 
lade »BasicDemos« das Programm »ScreenPrint«. Dieses kön- 
nen Sie in Ihren eigenen Basic-Programmen verwenden. 

— Entfernen Sie zunächst den oberen Programmteil bis zur Zeile 
»Screendump:«. 

— Löschen Sie auch alle REM-Zeilen; das spart Speicherplatz. 
Lesen Sie die Kommentare in den REM-Zeilen jedoch einmal 
durch. Hier finden Sie wertvolle Erläuterungen zu»Screendump«. 
— Speichern Sie das Listing mit »SAVE ” <name>",a«. 

— Mit »MERGE ” <name > ” «läßt sich die Hardcopy-Routine in 
jedes Basic-Programm einbinden. 

Der Aufruf erfolgt entweder über ein Pull-Down-Menü oder mit 
Hilfe des Befehls »GOSUB Screendump«. Der Amiga beginnt da- 
nach sofort mit dem Ausdruck des gerade sichtbaren Bild- 
schirms. Wichtig: Wenn Sie »ScreenPrint« auf eine andere Disket- 
te kopieren, muß sich auf dieser die Datei »exec.bmap« befinden. 

(Ralf Thomas Barding/rs) 


Stop! Mauskontrolle 


Eine kurzes Listing demonstriert Ihnen, wie Sie die Maus von 
Basic aus programmieren. Das Programm zeigt die horizontale 
und vertikale Position der Maus auf dem Bildschirm an, sobald 
Sie die linke Maustaste betätigen: 

WHILE 1 

x=MOUSE (2) 

y=MOUSE(3) 

IF MOUSE(0) > O THEN PRINT x;y 
WEND 


Diese Schleife können Sie durch Drücken der Tasten <CTRL> 
und <C> verlassen. (Eike Cornelius/rs) 





Wenn Farben rotieren 


Die Farben einer Grafik lassen sich auch nach dem Zeichnen 
mit PALETTE ändern. Erzeugen Sie beispielsweise durch einen 
zyklischen Farbwechsel den Eindruck einer Bewegung: 
SCREEN 2,320,200,5,1 
WINDOW 2, ”Grafik”,(0,0)-(310,310),0,2 
FOR x=-150 TO 100 STEP 1 

FOR y=-100 TO 100 STEP 1 

IF y< >O THEN f= ABS((x"2/y):ELSE f=1 

test: IF £f>31 THEN f=f/2: GOTO TEST 

PSET (x+150,y+100),f 

NEXT y 
NEXT x 
TauscheFarben: 
FOR t=1 TO 29 
PALETTE f+2, RND, RND, RND 
NEXT t 
GOTO TauscheFarben 

Diese Demo verwendet Zufallszahlen zur Berechnung der neu- 

en Farben. Berechnen Sie den Farbwechsel doch einmal durch 


einen eigenen Algorithmus. Verwenden Sie auch selbstgemalte 
Bilder. (Volker Hauffe/rs) 
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IL; 
und Tricks 
zum CLI 


Die Arbeit mit dem CLI (Command Line 
Interface) ist gegenüber der Work- 
bench effektiver und leistungsfähiger. 
Doch hat dies seinen Preis: Die Be- 
fehlseingabe ist komplizierter. Unsere 
Tips rund um das CLI erleichtern Ihnen 
den Umgang mit dieser Befehlsebene. 


Vollgas durch ADDBUFFERS 


Einen Geschwindigkeitsvorteil bei Diskettenzugriffen erhalten 
Anwender auch durch den Befehl »ADDBUFFERS«. Arbeitet man 
mit einer Diskette und möchte von Zeit zu Zeit einmal das Directo- 
ry ansehen, ist dies mit viel Wartezeit verbunden. Schneller geht 
es mit dem Befehl ADDBUFFERS. Er überläßt dem angegebenen 
Laufwerk mehr Speicher. Wird DIR eingegeben, liest der Amiga 
zuerst die Daten von der Disk. Gibt man nun erneut DIR ein, wer- 
den die Daten aus dem Puffer gelesen. Günstige Puffergrößen für 
den Befehl liegen zwischen 50 und 100. Bei Arbeiten mit der 
Workbench werden auch Icons beim zweiten Mal wesentlich 
schneller angezeigt. ADDBUFFERS installiert eine Art RAM-Disk 
für das/die Laufwerk(e). Syntax: 


AddBuffers Laufwerk: 100 


Dem angegebenen Laufwerk werden zirka 50 KByte mehr 
Speicher zugewiesen. Der Amiga gibt den vergebenen Speicher 
nur nach einem Reset zurück. (Norbert Cohen/rs) 


Nur ein Zylinder 


Wenn man sich mit dem CL! beschäftigen möchte, aber nur ein 
Laufwerk hat, ist es ratsam die CLI-Befehle, die der Amiga norma- 
lerweise aus dem Verzeichnis »O« liest, in der RAM-Disk abzule- 
gen. Hierzu schreibt man eine Befehlsdatei (Batch-File), in der al- 
le notwendigen Anweisungen stehen. Dies geschieht mit der An- 
weisung: »ED RAM-Disk« <RETURN>. Dieser Befehl startet 
den Editor. Geben Sie nun nacheinander folgende Befehle ein. 
(RETURN nach jeder Zeile nicht vergessen): 

PROMPT "RAM %n> ” Ändert die CLI-Bereitschaftsan- 
zeige 

MAKEDIR ram:c 

ein 

COPY c/cd to ram:c 
RAM-Disk 

COPY c/Dir to ram:c 
RAM-Disk 

COPY c/... 5 


Jeder sollte in der Liste die Befehle ergänzen, von denen er 
meint, daß sie benötigt werden. Dabei muß man sich darüber im 
Klaren sein, daß jeder überflüssige Befehl im RAM kostbaren 
Speicher verbraucht. 


PATH ram:c 
Der letzte Befehl veranlaßt den Amiga, Befehle zuerst in der 


RAM-Disk zu suchen. Wer viele Befehle kopiert, faßt mehrere in 
einem Arbeitsgang zusammen: 


coPY dfO:c/(COPY I ECHO | TYPE I DIR I LIST) ram:c 


' Richtet C-Directory im RAM 
' Kopiert den Befehl CD in die 


' Kopiert den Befehl DIR in die 
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Der Editor wird durch die Tastenkombination <ESC> <X> 
<RETURN> verlassen. Ist die Diskette nicht schreibgeschützt, 
wird die Datei »RAM-Disk« gespeichert. Wenn die RAM-Disk nun 
durch »Execute RAM-Disk« aktiviert wird, ist der Anwender in der 
Lage, sich auch auf anderen Disketten umzusehen. Er ist nicht 
mehr von der Arbeits-Diskette abhängig. Der Aufruf der RAM- 
Disk kann natürlich gleich in der »Startup-Sequence« unterge- 
bracht werden. 

Sollten Sie einmal einen Befehl aufrufen, der nicht im RAM vor- 
handen ist, sucht der Amiga im C-Directory der Startdiskette. Ist 
diese gerade nicht eingelegt, macht der Amiga durch einen Re- 
quester auf das Versäumnis aufmerksam. (rs) 


Der schnellste Weg 


Drücken Sie während des Bootens Ihrer Workdisk <CTRLD>. 
Das unterbricht die Ausführung der »Startup-Sequence«. Der 
Amiga arbeitet nämlich nach dem Starten automatisch im CLI. Er 
führt nach dem Booten diese spezielle Befehls-Datei aus, an de- 
ren Ende ein Sprung in die Workbench-Ebene steht. Wer einmal 
im CLI arbeitet, kann die Datei anschauen. Sie steht im Verzeich- 
nis »S«: 

TYPE s/startup-sequence 


TYPE ist einer der Befehle des CLI. Er gibt eine Textdatei auf 
dem Bildschirm aus. Wenn der Ausstieg aus der Startsequenz al- 
lerdings zu früh erfolgte, arbeitet der Amiga noch mit dem engli- 
schen Tastaturtreiber. Dies läßt sich durch die Eingabe eines wei- 
teren Befehls im CLI ändern: 


System/Setmap D 


Eine allgemeine Beschreibung der CLI-Befehle und des wichti- 
gen Bildschirmeditors ED finden Sie im großen CLI-Kurs in die- 
sem Heft oder dem AmigaDOS-Handbuch. (rs) 


Einsteiger-Tips ... 


Das erste, womit der Amiga-Anwender beim Laden einer 
Workbench- oder einer anderen, boot-fähigen Diskette konfron- 
tiert wird, ist ein Fenster (Window) mit der Startmeldung. Erst spä- 
ter erscheint die Benutzeroberfläche mit den Diskettensymbolen. 
Die Workbench selbst ist nämlich auch nur ein Programm, das mit 
dem CLI-Befehl LOADWB geladen wird. Dieser Befehl steht in der 
»s/Startup-Sequence«-Datei, die sich auf jeder bootfähigen Dis- 
kette befindet. Drücken Sie beim Boot-Vorgang einmal die Tasten- 
kombination <CTRL D>, sobald das Window auf dem Bild- 
schirm erscheint. Es wird »***Break***« und das sogenannte 
Prompt ausgegeben. In unserem Fall ist das ein »1> «. Wir befin- 
den uns im Command Line Interface (CLI) des Amiga. 

Das Prompt zeigt dem Anwender die Bereitschaft des Compu- 
ters zu Tastatureingaben. Zusätzlich steht im Prompt vor dem Grö- 
Berzeichen noch die Nummer des laufenden CLI-Task. Wir haben 
es bekanntlich mit einem Multitasking-System zu tun. Tippen Sie 
nun den Befehl NEWCLI ein — ein zweites Window erscheint, 
diesmal mit einem Prompt »2>«. Sie können jetzt mit der Maus 
zwischen beiden CLIs wechseln (fahren Sie mit der Maus in das 
gewünschte CLI-Fenster und drücken Sie die linke Maus-Taste). 
Das ist sehr praktisch, wenn man beispielsweise mit dem DIR- 
Befehl das Disketteninhaltsverzeichnis auf das erste CLI-Window 
gelegt hat, während im zweiten CLI die nötigen Files mit »Copy« 
in eine RAM-Disk kopiert werden können. 

Tippen Sie nun LOADWB ein. Damit haben Sie per CLI (das 
auch nur ein Teilprogramm des Amiga-DOS ist) das Workbench- 
Programm gestartet. Die Workbench wiederum ist ein Programm, 
das die Routinen der Benutzeroberfläche »Intuition« und der Sy- 
stembibliothek »Icon« nutzt. Nach dem Aufruf der Workbench ha- 
ben Sie (wenn Sie sich die Windows nach Wunsch entsprechend 
auf dem Bildschirm einrichten) nun die volle Leistungsfähigkeit ei- 
nes Kommando-Interpreters und einer grafischen Benutzerober- 
fläche gleichzeitig. Diskettennamen ändern geht per Workbench 
schneller und komfortabler, wohingegen das CLI für verschiede- 
ne andere Arbeiten einfacher zu bedienen ist. Bleiben wir erstein- 
mal beim CLI, doch ohne die Workbench zu vernachlässigen. Se- 
hen wir uns einmal mit TYPE S/STARTUP-SEQUENCE an, was 
beim Booten passiert. Auf dem Bildschirm erscheint eine Reihe 
von Befehlen, unter anderem auch LOADWB und ENDCLI. Die 
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Befehle, die in der Startup-Sequence stehen, werden beim Boo- 
ten der Reihe nach ausgeführt. Natürlich können wir jederzeit die 
Befehlsfolge ändern, die beim Laden ausgeführt werden soll. 

Mit der Befehlsfolge ED S/STARTUP-SEQUENCE rufen wir den 
Texteditor ED auf und finden in einem großen Window unsere Be- 
fehlsfolge wieder. Hier können wir nach Belieben Befehle ändern, 
hinzufügen oder entfernen. Entfernen wir doch einmal nur den 
ENDCLI-Befehl, indem wir den Cursor auf seine Zeile steuern und 
<CTRLB> (Zeile löschen) drücken. Mit der Escape-Taste (ESC) 
kommen wir in eine Befehlszeile, in der wir — nach Entfernung 
des Schreibschutzes von der Diskette — ein »X« eingeben und 
<RETURN> drücken. Die so geänderte Startup-Sequenz löscht 
uns bei einem Neubooten der Workbench nicht jedesmal den CLI, 
so daß wir immer gleich die Vorteile beider Benutzerschnittstellen 
gleichzeitig verwenden können. Ein Window mit Icons sagt uns 
nämlich nicht immer, welche Programme sich noch auf einer Dis- 
kette befinden. Oder hätten Sie als Einsteiger gewußt, daß es den 
Editor ED auf Ihrer Workbench-Diskette gibt? 

Der erste Befehl, den man im Command-Line-Interface verwen- 
det, ist in aller Regel der DIR-Befehl. Mit DIROPT A kann man so- 
gar das lästige einzelne Listen der Subdirectories vermeiden. Nur 
manchmal stört es ziemlich, wenn zusammengehörige Files un- 
geordnet — eines links, eines rechts — im Bild erscheinen. LIST 
QUICK schafft Abhilfe, alle Dateien erscheinen schön geordnet 
untereinander. (Manfred Kohlen/rs) 


„.. und Profi-Tips 


Haben Sie schon mal überlegt, warum Sie nach dem falschen 
Eintippen einer Zeile im CL Ihre Backspace-Taste laufend so stra- 
pazieren? Wenn man schon früher gewußt hätte, daß <CTRLX> 
genügt, um die ganze Zeile zu löschen! 

Und wenn Sie gleich eine ganze Reihe von — richtig eingetipp- 
ten — Befehlen ausführen lassen wollen, brauchen Sie nicht un- 
bedingt alles einzeln eintippen und auf die Bearbeitung jedes Be- 
fehls zu warten. Für eine automatische Abarbeitung der CLI- 
Befehle gibt es nämlich drei Möglichkeiten — eine davon findet 
man in keinem Handbuch, nicht einmal in der Entwickler-Doku- 
mentation. 

Möglichkeit 1: Häufig benutzte Befehlsfolgen legt man mit dem 
Editor ED in einem File ab, welches mit dem EXECUTE-Befehl 
aufgerufen werden kann und dann selbständig seine Arbeit ver- 
richtet. Bei sehr häufiger Verwendung des EXECUTE-Befehls 
empfiehlt sich, den Befehlsnamen im C-Directory per RENAME 
zu kürzen. Profis rufen eine Datei zum Kopieren der DOS-Befehle 
ins RAM nur noch mit »X Y« auf (X für EXECUTE und Y als Filena- 
me). Die Amiga-DOS-Datei Y sollte dann alle Befehle zum Kopie- 
ren der wichtigsten Befehle ins RAM enthalten. 

Möglichkeit 2: Die zweite Methode, Befehlsfolgen aufzurufen, 
findet sich im englischsprachigen DOS-Manual oder dem deut- 
schen Amiga-Handbuch (Markt&Technik Verlag): Mit RUN wird 
ein Task gestartet, der die Befehle ausführt, die man per Pluszei- 
chen und RETURN voneinander trennt. Das sieht dann so aus: 
RUN COPY Y TO PRT+ 
LIST+ 
NEWCLI 

Das CLI überprüft die Eingabe auf das Pluszeichen und startet 
den Task erst, wenn ein Befehl ohne Pluszeichen eingegeben 
wird. 

Möglichkeit 3: Jedesmal das RUN und die Pluszeichen einzu- 
geben, ärgert sehr, wenn man nicht unbedingt einen Task dafür 
braucht. Abhilfe schafft die Tastenkombination <CTRL J>.Tip- 
pen Sie einfach den ersten Befehl der Folge (ohne RUN), drücken 
dann aber anstatt der RETURN-Taste <CTRL J>. Der Cursor ist 
in der nächsten Zeile, der Befehl wird aber noch nicht ausgeführt. 
Jetzt den nächsten Befehl eingeben, besagte Kontrollfunktion, 
und so weiter, bis zum letzten Befehl. Erst jetzt <RETURN> 
drücken. Probieren Sie es aus! 

Nun stellen Sie sich einmal vor, in der obersten Zeile des CLI- 
Windows steht ein wichtiger Text, zum Beispiel ein jetzt benötigter 
Dateiname oder ähnliches. Sie müssen aber unbedingt noch et- 
was eintippen, sind dummerweise in der letzten Zeile des CLI- 
Windows angekommen und würden den obenstehenden Text bei 
einer weiteren Befehlseingabe verlieren. Wenn Sie Glück haben 
und Ihr CLI-Window noch nicht die volle Größe hat, können Sie da- 
durch ein Wegscrollen des Textes verhindern. Ansonsten gibt es 
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noch die Tastenkombination <CTRL K>: Der Cursor wandert ei- 
ne Zeile nach oben. Auch wenn in der jetzt neuen Eingabezeile 
schon etwas stehen sollte, wird vom Amiga-DOS nur das über- 
nommen, was Sie jetzt eingeben. Natürlich können Sie damit 
nicht zum Beispiel ein paar Zeilen höher gehen, um dort eine fal- 
sche Eingabe zu verbessern. Das CLI ist und bleibt ein Zeilenedi- 
tor. Mit <CTRLJ> wandert der Cursor übrigens genauso wieder 
nach unten, wie er das aufwärts auch tat — ohne Texte mit neuen 
darübergetippten Befehlen unkenntlich zu machen. 

Am Ende solcher Kontrolloperationen und vor einer neuen Be- 
fehlseingabe empfiehlt sich übrigens dringend die Tastenkombi- 
nation <CTRL X>. Manchmal versteht das CLI verschiedene 
Kombinationen mit der CTRL-Taste nämlich als Buchstaben, und 
einen Befehl namens »<CTRL G>-DIR« gibt es bekanntlich 
nicht. (Manfred Kohlen/rs) 


CLI im Rausch der Farben 


Vielleicht haben Sie sich schon einmal gewünscht, die ver- 
schiedenen Schrifttypen (Kursiv, Fett, Invers und Unterstrichen) 
in den Bildschirmausgaben der CLI-Befehle verwenden zu kön- 
nen? Das Einstellen der Vordergrund- und Hintergrundfarbe für 
Ausgaben des CLI wäre auch von Vorteil. 

Commodore erwähnt in dem ohnehin nicht üppigen DOS-Ma- 
nual mit keiner Silbe, daß so etwas möglich ist. Man muß lediglich 
in die Ausgabebefehle (ECHO, PROMPT, FILENOTE und andere) 
eine Escape-Sequence einbauen und schon kann man alle 
Schrifttypen in den verschiedensten Farben benutzen. Der Auf- 
bau einer solchen Sequenz sieht so aus: 

SEZ Schrift [; Vordergrund [; Hintergrund ]Jm 
Dabei bedeutet SEZ die Sequenz-Einführungszeichen (*,e,]). Hin- 
ter den Einführungszeichen wird die Schriftart gewählt: 


0 = normal 
1 = Fettdruck 
3 = Kursiv 
4 = Unterstrichen 
7 = Invers 
Für die Vordergrundfarbe sind folgende Parameter erlaubt: 
30 = normal 
31 = weiß 
92 = schwarz 
33 = orange 
Und schließlich für die Hintergrundfarbe: 
40 = nornal 
41 = weiß 
42 = schwarz 
43 = orange 


Als Endekennzeichen fungiert das Zeichen <m>. Auch die 
Kombination von verschiedenen Schriftarten ist durch mehrfache 
Angabe solcher Sequenzen möglich. 

Für die Ausgabe eines unterstrichenen kursiven Textes in Oran- 
ge auf weißem Grund ist also einzugeben: 

ECHO *e[3;4;33;41m Test-Text *e[0m” 

Wie im Beispiel sollte man die Schriftart am Schluß wieder mit 
der Folge »*e[0m« auf normal einstellen. Übrigens wirken diese 
Einstellungen auch auf den Drucker, wenn man die Ausgabe mit 
> rt: (Drucker am Parallelport) oder >ser: (serielle Schnittstelle) 
in derselben Anweisung umlenkt. (Michael Baasj/rs) 


Hilfe bei vollen Disketten 


Die Disketten von Amiga haben zwar eine Kapazität von 880 
KByte, aber hin und wieder wird auch diese Grenze erreicht. Für 
Besitzer eines zweiten Laufwerks lassen sich mit Hilfe folgender 
Vorgangsweise einige KBytes wiedergewinnen: 

1. Formatieren Sie eine neue Diskette (hier im Laufwerk 1) mit Hilfe 
des CLI-Befehls »format drive df1: name DiskName noicons« (set- 
zen Sie bitte für DiskName den gewünschten Diskettennamen 
ein). 

2. Kopieren Sie alle Dateien mit der Anweisung »copy dfO: to dfl: 
all« auf die frisch formatierte Diskette. 

Sie werden nach der Anwendung von »info dfl:«sehen, daß we- 
sentlich weniger Speicherplatz auf Ihrer Kopie belegt ist. Oben- 
drein werden die Directory-Einträge noch schneller gefunden. 

(Paul Scholda/rs) 
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»CLi« reagiert auf 
Kontrollsequenzen 


Welche Funktionen lösen sogenannte Kontrollsequenzen (Taste 
<CTRL>gleichzeitig mit einer anderen Taste drücken) bei der 
Arbeit mit dem CLI aus? Wir haben eine Auswahl für Sie zusam- 
mengestellt: 

CTRL-B: Entspricht einem Anklicken des Cancel-Feldes im Auto- 
requester 

CTRL-C: Abbruch eines Befehls, zum Beispiel DIR 

CTRL-D: Ausführung einer Batchdatei (Startup-Sequence) abbre- 
chen 

CTRL-G: Bildschirmblitz (kann auch mit einer ECHO-Anweisung 
ausgelöst werden) 

CTRL-H: Delete 

CTRL-J: Tabulator 

CTRL-K: Carriage Return (keine ausführende Wirkung!) 
CTRL-L: löscht den Bildschirm 

CTRL-M: Entspricht der Enter- oder Return-Taste 

CTRL-N: Aufruf des alternativen Zeichensatzes. Dieser bleibt bis 
<RETURN> oder <CTRL-Q>. 

CTRL-Q: Ausschalten des alternativen Zeichensatzes 

CTRL-V: Entspricht dem Anklicken des Retry-Feldes im Auto- 
requester 


CTRL-X: löscht die aktuelle Zeile (Lutz Beyert/rs) 


Kurz und bündig: 
Fenster ohne Rahmen 


Für das Problem »CLI-Fenster ohne Rahmen« gibt es eine ein- 
fache und kurze Lösung. 

Um statt der normalen 77 die vollen 80 Zeichen Breite zu nut- 
zen, läßt sich der Rahmen eines CLI-Fensters einfach mit den 
ESC-[-Befehlen ausschalten. Escape-Befehle werden normaler- 
weise zur Druckersteuerung verwendet. Beim Amiga werden sie 
vor der Ausgabe an den in den Preferences eingestellten Drucker 
angepaßt. Diese Anpassung wird aber auch bei der Ausgabe im 
CLI-Fenster durchgeführt. Wird beispielsweise von einem Pro- 
gramm in einem CLI-Fenster die Sequenz <ESC[4m> ausgege- 
ben, erscheinen danach alle Texte unterstrichen. Dies ist auch 
über die Tastatur möglich. Drücken Sie nacheinander die Tasten 
<ESC>, <[>, <4> und <m>. Jetzt ist Unterstreichen einge- 
schaltet. Die heißesten Tips für Insider finden Sie unter der Über- 
schrift »Druckeransteuerung« einen Teil der weiteren Befehle. Es 
gibt aber nicht nur Befehle für die Einstellung der verschiedenen 
Darstellungsarten, sondern auch für die Formatsteuerung. Hier- 
zu einige Beispiele: 


Tastenkombination Bedeutung vonn 

ESC [nu Breite in Zeichen 

ESC [nx Linker Rand in Pixeln 

ESC [ny Abstand zur Oberkante des Fensters 
ESC [nt Anzahl der Zeilen 

ESC c normales Format 


Wie Sie aus der Tabelle sehen, kann der gesamte Bildschirm 
durch wenige Eingaben genutzt werden. Bringen Sie zunächst 
das CLI-Fenster mit der Maus auf die Größe des Bildschirms. Mit 
dem Befehl »ESC [80u« wird die Zeilenbreite auf 80 Zeichen ge- 
stellt und der linke Rand mit »ESC [0x auf die äußerste linke Posi- 
tion gesetzt. Um in dem großen CLI-Fenster aufzuräumen, kann 
es mit <CNTL L> gelöscht werden. Sofort verschwindet auch 
der Rand des Fensters. Schließlich sollten Sie noch <Return> 
drücken, damit die Formatbefehle nicht als Teil des nächsten CLI- 
Befehls interpretiert werden. 

Ab jetztwird bei der Textausgabe das gesamte Fenster benutzt. 

Wünschen Sie wieder das alte Format, genügen die Tasten 
<ESC c> <Return>. Jeder, der seinen Bildschirm häufig auf 
diese Art vergrößern will, kann die benötigten Escape-Sequenzen 
auch in zwei Textdateien »Rahmen-Aus« beziehungsweise 
»Rahmen-Ein« zusammenfassen. Dann genügt der einfache Auf- 
ruf TYPE Rahmen-Aus« (Winfried Stappert/rs) 
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Amiga Basic 


Basic ist noch immer einer 
der schnellsten und einfach- 
sten Wege zur Programmie- 
rung. Doch Umsteiger von an- 
deren Heimcomputern werden 
merken, daß Microsoft Basic 
für den Amiga leistungsfähiger 
ist. Und da das von Commodo- 
re mitgelieferte Basic-Hand- 
buch eigentlich nur weiter fort- 
geschrittenen Basic-Program- 
mierern von Nutzen ist, 
wünscht sich der Anfänger ein 
verständliches Buch, das ihn 
Schritt für Schritt mit diesem 
Basic-Dialekt vertraut macht. 
Das sehr umfangreiche Buch 
enthält fast alles, was Einstei- 
ger und Aufsteiger wissen soll- 
ten. Das Spektrum reicht von 
Grafik bis hin zu Sprach- und 
Musikausgabe. Der Leser wird 
dabei durch eine verständliche 
und humorvolle Sprache bei 
guter Laune gehalten. Die 
braucht er auch, denn es kom- 
men auf ihn zahlreiche und vor 
allem umfangreiche Listings 
zu. Doch für »Profis« sind die 
Beispielprogramme oft zu um- 
fangreich. Dagegen ist der 
über 200 Seiten starke Anhang 
des Buches wirklich jedem zu 
empfehlen. Neben Erklärun- 
gen und Abhilfen zu allen 
Fehlermeldungen ist ein um- 
fangreicher Basic-Referenzteil 
vorhanden. Die Autoren haben 
die einzelnen Kapitel des Bu- 
ches gut miteinander ver- 
knüpft. Daten aus einer Datei- 
verwaltung können beispiels- 
weise im darauffolgenden Ab- 
schnitt grafisch dargestellt 
werden. Die Verfasser setzen 
sich dabei erfreulicherweise 
stark für den IFF-Standard ein. 

Der positive Eindruck wird 
abgerundet durch ein kleines 
Fachwortlexikon, das dem Ein- 
steiger mit Sicherheit einige 
Fragen beantworten wird. 

(Bernhard Carli/rs) 


Rügheimer, Spanik, AMIGA BASIC, Data 
Becker GmbH, 774 Seiten, ISBN 3-89011- 
209-9, 59 Mark 
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Das können 
AMIGA 500 & 
2000 


Dieses Buch bietet sich für 
den Einsteiger an, der mehr 
über den Amiga wissen will. 
Durch ein gutes Konzept findet 
der Leser schnell die Stellen im 
Buch, die ihn interessieren. 
Auf den ersten zehn Seiten 
sind die einzelnen Kapitel 
durch Kurzbeschreibungen 
vertreten, in denen jeweils nur 
das Wichtigste zu den Themen 
steht. Diese Erklärungen sind 
in zwei Spalten aufgeteilt, wo- 
bei links die Erläuterung für 
Einsteiger und rechts die für 
Profis steht. Diese Seiten kön- 
nen später zum Nachschlagen 
verwendet werden, aber der ei- 
gentliche Sinn liegt in den Sei- 
tenangaben am Ende der 
Spalte, die auf die ausführli- 
chen Kapitel verweisen. 

In den folgenden Abschnit- 
ten werden nun die Fähigkei- 
ten des Amiga erläutert, ohne 
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allerdings auf dessen Pro- 
grammierung einzugehen. 
Durch die zahlreichen Hinwei- 
se und Beschreibungen von 
vorhandenen Programmen 
zeichnet sich das Buch als 
Kaufhilfe aus, die noch Unent- 
schlossene unterstützen soll. 
Auch die vielen Bilder sind eine 
gute Hilfestellung bei der Aus- 
wahl des richtigen Programms. 

Von Anwenderprogrammen 
für Grafik, Animation und Mu- 
sik über Programmierspra- 
chen bis zu Hardware-Erweite- 
rung findet der Leser viele Bei- 
spiele, die ihm bei seiner Kauf- 
entscheidung helfen. 

Alles in allem ein Buch, das 
für denjenigen geeignet ist, der 
sich einen Computer kaufen 
will und noch nicht recht 
weiß, ob der Amiga der richtige 
Computer für ihn ist oder nicht. 

(rs) 
Stein, Das können AMIGA 500 & 2000, Data 


Becker GmbH, 190 Seiten, ISBN 3-89011- 
178-5, 29 Mark 
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ten # Beispiele, 
Routinen unter € 
Programmieren von 
Grafik und Animation 
Pools in C 





Amiga Program- 
mier-Handbuch 


Die Autoren dieses Hand- 
buchs sind offensichtlich mit 
dem Ziel angetreten, Ordnung 
in die große Menge der Funk- 
tionen und Strukturen der 
Amiga-Bibliotheken zu brin- 
gen. Sie stellen deshalb die 
einzelnen Funktionen der Bi- 
bliotheken in der Reihenfolge 
Syntax (Format des Funktions- 
aufrufes), Funktion (was macht 
die Funktion), Parameter (wel- 
che Parameter werden benö- 
tigt), Ergebnis (welche Werte 
gibt die Funktion zurück), Da- 
tentyp (welche Variablen müs- 
sen wie deklariert werden), 
Sonstiges (zusätzliche Bemer- 
kungen, Verweise auf andere 
Funktionen) vor. Zusätzlich 
sind die besprochenen Funk- 
tionen und Strukturen in The- 
menbereiche gegliedert. So 
finden sich alle Funktionen 
und Strukturen, die mit 
»Screens« verknüpft sind, un- 
ter dem Titel »Der Screen«. 
Weitere Themenbereiche sind: 
Windows, Zeichnen in Screens 
und Windows, Programmbe- 
dienung, Menüs, Gadgets, Sy- 
stemmeldungen, Ein- und Aus- 
gabe, Drucker, Workbench, 
Sprachausgabe, Multitasking, 
Mathematik-Libraries und das 
IFF-Format. Die Autoren ver- 
deutlichen die vorgestellten 
Funktionen anhand vieler Bei- 
spielprogramme. Bei der Viel- 
falt der Themenbereiche kön- 
nen Spezialbegriffe wie etwa 
Multitasking nur kurz darge- 
stellt werden. 

Durch die übersichtliche 
Struktur ist dieses Handbuch 
als Nachschlagewerk gut ge- 
eignet. Es kann allen Anwen- 
dern empfohlen werden, die 
sich mit der Programmierung 
ihres Amiga auseinanderset- 
zen. (Ingolf Krüger/rs) 
Frank Kremser/Jörg Koch, Amiga Program- 


mier-Handbuch, Markt und Technik Verlag AG, 
ISBN 3-89090-491-2, Preis: 69 Mark 


Amiga 500-Buch 


Das »Amiga 500-Buch« läßt 
sich grob in drei Teile gliedern. 
Im ersten Teil des Buches be- 
schreibt der Autor die wesentli- 
chen Grundzüge der Bedie- 
nung des Amiga. Durch diese 
Anleitung und praktische 
Übungen wird der Leser ver- 
traut gemacht mit der grafisch 
orientierten Bedienung, der 
Anwendung der Maus und al- 
len wichtigen Handgriffen, die 
er später tagtäglich benötigt. 
Die einfache Bedienung des 
Amiga ist im wesentlichen eine 
Leistung der Workbench. Und 
so beschäftigt sich der erste 
Teil auch ausführlich mit die- 
sem Programm. 

Der zweite Buch-Teil befaßt 
sich mitdem sogenannten CLI. 
Diese zweite Benutzerschnitt- 
stelle des Computers hat trotz 
der umständlicheren Handha- 
bung ihre Vorteile. Sie wird 
meist von den Programmierern 
bei intensiver Nutzung der Be- 
triebssystemkommandos ver- 
wendet. 

Der dritte und letzte Teil wen- 
det sich schließlich an diejeni- 
gen Leser, die neben Grundla- 
genwissen tiefer in die Materie 
einsteigen wollen. Der Autor 
beschreibt hier die Hardware 
des Amiga. Er zeigt viele Ein- 
satzmöglichkeiten und be- 
schreibt die Kontakte des Com- 
puters zur Außenwelt (An- 
schlüsse für Drucker und an- 
dere Zusatzgeräte). Die Pro- 
grammierer unter den Lesern 
— und solche die es noch wer- 
den wollen — lernen anhand 
von ein paar kleinen Beispiel- 
programmen in Amiga-Basic, 





was man schon mit dieser ein- 
fachen und leicht erlernbaren 
Sprache, die ja jeder Besitzer 
beim Kauf mitgeliefert be- 
kommt, auf dem Amiga anfan- 
gen kann. (Joschy Polierer/rs) 
Markus Breuer, Amiga 500-Buch, Markt & 


Technik Verlag AG, 490 Seiten, ISBN 3-89090- 
522-6, Preis: 49 Mark 
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Das Amiga 
2000 Buch 


Markus Breuer, bereits be- 
kannt durch seine Bücher zum 
‚Amiga 500/1000, hat sein Werk 
über den Amiga 2000 ganz 
dem Commodore-Flaggschiff 
gewidmet. Gegenüber seinem 
ersten Werk ist dieses Buch im 
Umfang um rund 150 Seiten 
auf insgesamt über 600 Seiten 
angewachsen. In die vier The- 
menbereiche Workbench, 
Amiga-DOS, MS-DOS und die 
Programmstrukturierung ge- 
gliedert, gibt der Autor sowohl 
dem Anfänger als auch Fortge- 
schrittenen ausführliche Hilfe- 
stellung für den Umgang mit 
ihrem Computer. 

Wenn Sie als Neuling auf 
diesem Gebiet Ihren Amiga ge- 
rade erst erworben haben, fin- 
den Sie im ersten Teil zahlrei- 
che grundlegende Informatio- 
nen über Ihr neues Werkzeug. 
Nach kurzer Zeit sind Begriffe 
wie Intuition, Workbench, 
OSA, RAM und DOS keine 
Fremdworte mehr. Dieser erste 
Teil des Buches entspricht in 
weiten Teilen allerdings dem 
Einführungskapitel im »Amiga 
1000 Buch«. Einige Einzelhei- 
ten sind neu hinzugekommen 
oder nochmals überarbeitet 
worden. 

Nach dem Einstieg in die Be- 
dienung des Amiga über die 
Workbench folgt mit der Be- 
triebssystemebene eine Ein- 
führung in die Kommandoein- 
gabe über das CLI. Den größ- 
ten Teil dieses Kapitels nimmt 
die alphabetische Auflistung 


und Erklärung der DOS-Befeh- 
leein. Esläßtsich gutals Nach- 
schlagewerk nutzen. Im An- 
schluß daran erhalten Sie eine 
Vielzahl nützlicher Tips und 
Tricks zum CLI. Wie beim Buch 
zum Amiga 500 ist den aus- 
führlich beschriebenen Aus- 
baumöglichkeiten des Amiga 
2000 ein weiteres Kapitel ge- 
widmet. Hier steht Wissens- 
wertes über Zubehör und 
Steckkarten. Eine Entschei- 
dungshilfe also für alle diejeni- 
gen, die an den Ausbau ihres 
Amiga denken. 

Die Beschreibung der Zu- 
sammenarbeit zwischen dem 
Amiga und der PC- bezie- 
hungsweise MS-DOS-Steck- 
karte dürfte auch alle Besitzer 
des Amiga 1000 mit Sidecar in- 
teressieren. In diesem Teil geht 
es um den Datentransfer zwi- 
schen den beiden Betriebssy- 
stemen. 

Mit nützlichen Informationen 
am Ende — der Erklärung ver- 
schiedener Hardwarebegriffe, 
Fehlermeldungen und Vorstel- 
lung nützlicher Programmier- 
sprachen — schließt dieses 
Buch. Es sollte bei jeder Neu- 
anschaffung einem Amiga 
2000 beiliegen. Solange dies 
nicht der Fall ist, lohnt sich für 
den engagierten Amiga-An- 
wender, selbst wenn er »nur« 
an den Ausbau des Modells 
1000 mit dem Sidecar oder der 
Zorro-Box denkt, in jedem Fall 
eine Anschaffung. 

(Joschy Polierer/rs) 


Markus Breuer, Amiga-2000-Buch, Markt & 
Technik Verlag AG, 570 Seiten, ISBN 3-89090- 
574-9, Preis 59 Mark 


Commodore Sachbuch: 
Programmieren mit Amiga-Basic 


Wie in der Computerbran- 
che fast schon üblich, fällt 
beim Amiga die dem Computer 
mitgelieferte Dokumentation 
äußerst mager aus. Sie enthält 
zwar eine Beschreibung der 
Basic-Befehle, eine für den 
Einsteiger gerechte Einfüh- 
rung in die Programmierung 
sucht man jedoch vergeblich. 
In diese Lücke stößt »Program- 
mieren mit Amiga-Basic« aus 
dem Verlag Markt & Technik. 
Mit Hilfe dieses Buches ge- 
winnt der Leser recht schnell 
einen Einblick in den Aufbau 
und die Arbeitsweise des 
Amiga-Basic. 

Nach einem einführenden 
Teil, der sich mit der Bedie- 
nung des Editors auseinander- 
setzt, lernt der Leser im ersten 
Kapitel grundsätzliche Techni- 
ken der Programmierung. Das 
erstmalige Auftreten eines Be- 
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fehlswortes wird durch einen 
grau unterlegten Kasten, der 
Kurzinformationen über For- 
mat und Funktion des Befehls 
enthält, hervorgehoben. Dies 
ist eine nützliche Hilfe für den 
fortgeschrittenen Leser, wenn 


er bereits gelesene Informatio- 
nen noch einmal nachschla- 
gen möchte. 

Ein weiteres Kapitel muß 
sich natürlich mit einer Stärke 
des Amiga auseinanderset- 
zen: der Grafik. Ein komplettes 
Programmbeispiel der in die- 
sem Abschnitt beschriebenen 
Techniken ist das Malpro- 
gramm »PAINT-Amiga«. Wie 
auch alle anderen Beispiele 
befindet sich das Programm 
auf der beigelegten Diskette. 
Das erspart dem experimen- 
tierfreudigen Leser ein lang- 
wieriges und fehlerträchtiges 
Eintippen der Listings. 

Für die Freunde von Datenli- 
sten und Adreßverzeichnissen 
ist das Kapitel »Dateien« be- 
sonders interessant. Aber 
auch das Format der IFF-Gra- 
fikdateien wird hier ausführlich 
beschrieben. Natürlich darf die 
Behandlung von Sprites, Bobs 
und Sound in einem solchen 
Grundlagenbuch nicht fehlen. 
Gerade hier wird die Nützlich- 
keit der mitgelieferten Diskette 
deutlich: Denn für die Erstel- 
lung von Sprites und Bobs wer- 
den entsprechende Dateien 
benötigt, die durch die mitge- 
lieferten DATA-Zeilen nur sehr 
zeitaufwendig eingetippt wer- 
den können. _ 

Mit einer Übersicht aller 
Basic-Befehle, einer Liste aller 
im Buch dargestellten Pro- 
gramme und einer vollständi- 
gen Dateiverwaltung ein- 
schließlich Dokumentation, 
Programmablaufplan und Va- 
riablenliste schließt dieses 
Werk, das dem Einsteiger in 
die Programmierung des Ami- 
gamitruhigem Gewissen emp- 
fohlen werden kann. Die ersten 
Schritte auf diesem Gebiet fal- 
len mit dieser Unterstützung 
leichter. 

(Wolf-Gideon Bleek/rs) 
Horst-Rainer Henning, Programmieren mit 
Amiga-Basic, Commodore Sachbuch (Markt & 


Technik Verlag), 363 Seiten, ISBN 3-89090- 
434-3, Preis: 59 Mark 


Das große Buch 
zu Amiga-DOS 


Dieses Werk bietet eine aus- 
führliche Einführung in den 
Umgang mit dem CLI, der 
zweiten Benutzerschnittstelle 
des Amiga, sowie Informatio- 
nen für den fortgeschrittenen 
DOS-Anwender. 

In der Einführung des in acht 
Teile gegliederten Buches ge- 
hen die Autoren auf die Aufga- 
be des Amiga-DOS, das Öff- 
neneines CLI-Fensters und die 
Help-Funktionen ein. Der zwei- 
te Teil befaßt sich mit den ein- 
zelnen CLI-Kommandos. Hin- 
weise zum täglichen Umgang 


mit dem CLI bietet der dritte 
Teil. Die Teile vier bis sechs be- 
handeln die Themen Batchpro- 
cessing, Multitasking und in- 
terne DOS-Bibliotheken. 

Eine Reihe neuer DOS-Be- 
fehle zum Abtippen befindet 
sich in Form von DATA-Listings 
im siebten Abschnitt. Der ach- 
te Teil schließlich enthält eine 
Kurzerklärung der DOS- und 
Editor-Kommandos zum Nach- 
schlagen. 

Der Neuauflage des Data- 
Becker-Buches (1. Auflage 
1988) liegt nun auch eine Dis- 
kette mit den vorgestellten 
Beispiel-Listings bei. Diese 
Auflage enthält als eine der er- 
sten Veröffentlichungen Hin- 
weise zu der von Commodore 
möglicherweise in Zukunft 
auslieferbaren Kickstart-Ver- 
sion 1.3. 

Zu jedem DOS-Befehl wird 
eine Unterscheidung der alten 
Version 1.2 und der zukünfti- 
gen Änderung beim Kickstart 
1.3 gegeben. 

Die Autoren erklären die ein- 
zelnen Befehle anhand vieler 
Beispiele. Hier unterscheidet 
sich das Amiga-DOS-Buch von 
anderen Büchern zum selben 
Thema. Die Befehle werden 
ausführlich erklärt und nicht in 
der sonst üblichen, tabellari- 
schen Form beschrieben. Dies 
ist für den Leser sehr ange- 
nehm, kann man dieses Buch 
dadurch wirklich »lesen« und 
nicht nur als reines Nachschla- 
gewerk verwenden. 

Im von vielen Autoren des 
Becker-Verlages gewohnten, 
lässig saloppen Schreibstil 
springen die Autoren von The- 
ma zu Thema. Der Einsteiger 
gerät dabei in Gefahr, einen 
aufgenommenen Faden zu 
verlieren. Ungünstig gewählte 
Beispiele tragen dazu bei. So 
wird die Funktion der Unterver- 
zeichnisse und Pfade am Bei- 
spiel einer Festplatte erklärt, 
die selten gleich mit dem Ami- 
ga zusammen erworben wird. 
Viele der angeschnittenen Pro- 
bleme und Themen können 
von den Autoren selbst nicht 
ausreichend erklärt werden 
oder sind nur unzureichend er- 
probt. Beim Lesen der Kapitel 
Multitasking und Multiuserbe- 
trieb kann man sich manchmal 
dem Eindruck nicht erwehren, 
daß es sich hierbei um noch 
unerforschte Gebiete handelt. 
Dennoch bietet das Buch für 
experimentierfreudige Com- 
puterfans eine Reihe interes- 
santer Anregungen. 

(Joschy Polierer/rs) 


Das große Buch zu Amiga-DOS, Kerkloh/ 
Tornsdorf/Zoller, Data Becker GmbH, 310 Sei- 
ten, Preis 59 Mark, ISBN 3-89011-306-0 
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Programmname: Suremosch.boot 
Computer: Amiga 500, 1000, 2000 
mit Kickstart 1.2 
Sprache: Amiga-Basic 





19u0 ' Suremosch-Lader, schafft freien Speicher und laedt das 
Hauptprogramm 
CLEAR ‚100000& 
SCREEN 2,318,246,4,1 
WINDOW 1,"Suremosch V1.2 (C) 1988 by C.Rodemeyer”,(0,0)-(30 
9,232) ‚0,2 
WIDTH 80,20 
RESTORE Palette.daten 
FOR n=0 TO 15 
8 jq2 READ r,g,b 
9EO PALENTE n,r,g,b 
10 160 NEXT n 
AL WT LOCATE 12,9:PRINT ”Suremosch wird geladen! ” 
12 yB CHAIN "Suremosch” 
13 Pt Palette.daten: 
"14 10 Data 0,0,0,1,1,1,.26,.4,.26,.4,.73,.4,.73,1,.73,.86,.13,.13 
»1,0,.53,.66,0,1,.2 
DATA .73,.93,.2,.4,1,.33,.4,.53,.13,.13,.86,1,.4,.13,..4,.53 
,.66,.13,.26,.33,.66,.86,1 
(c) 1987 MAT 


2VF 
AN 
45g 


Sey 


6 fo 
71 


15 WW 


Listing 1. »Suremosch.Boot«. 
Das Ladeprogramm für Suremosch. 














Programmname: Suremosch 
Computer: Amiga 500,1000,2000 mit Kickstart 1.2 
Sprache: Amiga-Basic 














1 NU0 1 RRRRRRRRRRERRRRRRRRRRR 
Baum‘ * Suremosch V1.2 * 
un'* * 
4mV ' * Copyright C 1988 by * 
SRs ' * Markt & Technik AG * 
6Rt ' * Christian Rodemeyer * 
TR2e ' x* Goldregenstraße 28 * 
8FQ ' * 4370 Marl - Sinsen * 
9 Ve 1ER RK ER 
10 x DEFINT a-z 

1 DIM SHARED xy‚True,False,jx,Jy,Obj,Feldx, Feldy,B$,Vrz$,Fehl 


er,Tr$,Skor 

|True=-1:False=0:0bj=17 

| PicEl=2+40bj*#INT( (0bj+15)/16)*4 

\jx=2:jy=1:Feldx=17:Feldy=12 

0:Skor=29 

="Nachlader/Editor.dat”:Le$="Leere Ebene! # 

Ä Wedongs/":Vrz$=Wpfad$+"Wedong-Namen” 

'yE Spname$="Gastspieler”:Tr$=CHR$(10) 

t |DIM SHARED Spieler(PicEl,3,2) ‚Objekt(PicE1,MaxObj) ‚Feld(Fel 
"dx, Feldy) ‚Status(9) 

DIM SHARED Fpos(1),r(1),Hpos(1),Npos(1),Apos(1) 

DIM SHARED EdFeld(Feldx, Feldy) ‚Buffer(3000) ‚Editfiles$(39) 

"DIM WahlEd(39) ‚Solved(39) ‚Wedongs$(39) ‚Ebenen$(39) ‚Edbuffer 
(17682) 

UU DEF FNx(x)=xXObj+Jjx 
D DEF FNy(y)=yXObj+jy 



































y2 
DEF FN Syntax(File$)=INSTR(File$, ”:”)=0 AND INSTR(File$, ”/” 





"Hauptmenue: 
COLOR 1,0:CLS:GOSUB Titel 
WHILE MOUSE(0) < >0:WEND 


IF MOUSE(0)<>O THEN 
g=(MOUSE(2)+4)/8 
IF (g MOD 3)=0 THEN g=g\3 ELSE g-0 
WHILE MOUSE(0) < >0:WEND 

ELSE 
g-ASC (INKEY$+CHR$(0))-128 

END IF 
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IF g>0 THEN ON g GOTO SetSpieler,Erschaffe,Spielstart,Ed 
Ä itor,Rank,CD,WB 

41 uLO GOTO Tloop 

42 a2 WB:SYSTEM 


40.23 





43 3h Rank: 
44 R62 IF Spname$="Gastspieler” THEN BEEP:GOTO Tloop 
45 pM OPEN "“Spieler/“+Spname$ FOR INPUT AS 1 
46 u) | COLOR 8,0:C15 
47 Km B$=INPUT$(299,1) :Aktpfad$=LEFT$(B$, INSTR(B$,Tr$)-1) 
48 5V IF Aktpfad$<>"" THEN 
49 And CALL Zentri(2,”Der Spieler”):COLOR 12:CALL Zentri(4,Spn 
ame$) 
50.64 COLOR 8:CALL Zentri(6, "befindet sich zur Zeit im Wedong 
' ”) 
51.gq n=1 
52 Lu WHILE INSTR(n,Aktpfad$, ”/") <>O:n=INSTR(n,Aktpfad$, "/” 
)+1:WEND 
53 Gd Wedong$=MID$(B$,n, INSTR(n,Aktpfad$, ”.Wedong”)-n) 
54 iM COLOR 12:CALL Zentri(8,Wedong$) 
55 xy COLOR 8:CALL Zentri(11,”Er hat dort bereits”+STR$(ASC(M 
1D$(B$,259,1)+CHR$(0)))+” Ebenen gelöst. ”) 
56 vv GOSUB Wm 
57 Y9& ELSEIF LOF(1)<300 THEN 
58 0j4 CALL Zentri(10, "Absoluter Neuling! ”) 
9, GOSUB Wm 
60 un2 END IF 
61 TP COLOR 9:CLS 
62 52 | IF LOF(1)>299 THEN 
63 kt4 CALL Zentri(2, "Gelöste Wedongs des Spielers”) 
64 By. COLOR 8:CALL Zentri(4,Spname$) 
65 YD n=-1:COLOR 12 
66 WW WHILE NOT EOF(1) 
67 246 nen+l 
68 ru INPUT #1,g$ 
6 cQ F (n MOD 2)=0 THEN x=2 ELSE x=19 
70 8U LOCATE 7+n\2,x:PRINT g$ 
71 Ps IF ((n+1) MOD 40)=0 THEN 
72 nY8 GOSUB Wn:COLOR 12 
73 Bl LINE (0,55)-(318,217) ‚0,BF 
7A KK n=-1 
75 926 END IF 
76 PT4 WEND 
77.06 GOSUB Wm 
‚78 052 END IF 
795p  CLOSE1 


‚80 rJ0 6010 Hauptmenue 
‚81 NA Wm:CALL Message("Taste,Mausklick oder Feuer! ”):CALL Reactio 
In:RETURN 
82 WE SetSpieler: 
83 6w2 CALL Message( "Welcher Spieler soll geladen werden? ”) 
84 g$="":CALL Inline (2,25,88,36) 
8 IF g$<>"" AND FN Syntax(g$) AND UCASE$(g$) <> "GASTSPIE 
| LER” THEN 
86 CALL Checkfile( "Spieler/”+g$) 
8 IF Fehler=53 THEN BEEP:CALL Message("Diesen Spieler gib 
t es nicht! ”):CALL Reaction ELSE Spname$=g$ 
END IF 
"GOSUB Titel:GOTO Tloop 
'Erschaffe: 
CALL Message( "Wie soll der Spieler heißen? ”) 
g$="":CALL Inline(2,25,8$,36) 
IF g$<>"" AND UCASE$(g$) <> "GASTSPIELER” AND FN Syntax 
(g$) THEN 
Spname$=g$ 
OPEN "Spieler/”+Spname$ FOR OUTPUT AS 1 
PRINT #1, Tr$;STRING$(298,CHR$(0));:CLOSE 1 
| END IF 
)|COSUB Tite1:6070 Tloop 


9 91 0D: 
EW2| COLOR 15,0:C15 
m 


CALL Zentri(4,”Gebe den Pfad zum Verzeichnis ein! ”) 
COLOR 12:LOCATE 6,1:WIDTH 39:LINE INPUT;g$:WIDTH 80 
CALL Checkfile(g$+”/Wedong-Namen”) 
IF Fehler=0 THEN 
Wpfad$=g$+"/":Vrz$=Wpfad$+"Wedong-Namen” 
GOSUB GetWedongs 
END IF 
IF Fehler<>O THEN 
BEEP:COLOR 15 
PRINT Tr$Tr$”Das ist kein Wedong-Verzeichniss!” 
CALL Reaction 
END IF 
.GOTO Hauptmenue 


62 
fm 
N 













Listing 2. »Suremosch«. Das Hauptprogramm des Spiels 
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114 v5 
115 rY2 
116 ZP 
117 s2 
118 ef 
119 q24 
120 6V 
421 Yt2 
122 yp 
123 1x0 
124 NH 
125 602 


126 19 
127 18 


128.j10 
129 nn2 


130 Go 
131 Cx 
132 91 
133 PgO 
134 RN2 
135 1X 
136 mq4 
137 zk6 


138 pa4 
139 CC 
140 9A 
141 sb2 
142 Yud 
143 DO6 
144 v64 
145 Ok 
146 ıQ 


147 m9 
148 KD2 
149 79 
150 h60 
151 652 
152 02 
153 M3 
154 5P 
B5.ng 
156 xx 
157 mv& 
158 ow 
159 Sf 
160 1p2 
161 eu 
162 nFO 
163 Yı2 
164 it 
165 82 
166 ou 


167 aK 
168 55. 
169 vx 
170 Bx4 
171 zr 
172 D12 
173 quo 
174 232 


175 X6 
176 jc 
177 x1 
178 EZ 
179 £N 
180 41 
181 nX 
182 QW& 
183 Uy 
184 212 
185 Im4 
186 8c 
187 qx 
188 Pz6 


150 


Alles: 
COLOR 15,7:CLS:RESTORE KeineWedongsBotschaft 
CALL Zentri(4,”Du bist ein echter Suremoscher! ”) 
COLOR 14 
FOR n=0 TO 5 
READ g$ 
CALL Zentri(8+n*2,g$) 
NEXT n 
CALL Reaction 
RETURN 
KeineWedongsBotschaft: 
DATA "Du hast alle Wedongs in diesem”, "Verzeichniss gelös 
t, echt Spitze!” 
DATA "Nachdem du soviele Ebenen gelöst hast,”,”bist du nu 
n sicherlich in der Lage” 
DATA "selbst gute Wedongs zu entwerfen.”,”Los, gehe in de 
n Editor und fang an.” 
Spielstart: 
IF Spname$="Gastspieler” THEN IF Wanz>=0 THEN GOSUB Wcho 
ice:GOTO GastIn ELSE BEEP:CALL Message(”Hier gibts keine 
Wedongs! ”):CALL Reaction:GOTO Abort 
OPEN *Spieler/”+Spname$ FOR INPUT AS 2 
B$=INPUT$(LOF(2) ‚2):CLOSE 2 
Aktpfad$=LEFT$(B$, INSTR(B$, Tr$)-1) 
Neuk: 
Flag=False 
IF Aktpfad$="" THEN 
FOR n=0 TO Wanz 
IF INSTR(300,B$,Wedongs$(n)+Tr$)<>0 THEN Solved(n)= 
1 ELSE Solved(n)=0:Flag=True 
NEXT n 
IF Flag THEN GOSUB Wchoice:Flag=False ELSE Flag=True 
IF Wanz<O THEN Flag=True 
ELSE 
FOR n=0 TO 39 
Solved(n)=ASC(MID$(B$,260+n,1)+CHR$(0)) 
NEXT n 
n=1:Sanz=ASC(MID$(B$,259,1)+CHR$(0)) 
WHILE INSTR(n,Aktpfad$, "/") <>0O:n=INSTR(n,Aktpfad$, ”/” 
)+1:WEND 
Wedong$=MID$(B$,n, INSTR(n,Aktpfad$, ".Wedong”)-n) 
END IF 
IF Flag THEN GOSUB Alles:GOTO Abort 
GastIn: 
OPEN Aktpfad$ AS 1 LEN=272 
FIELD #1,200 AS dummy$ 
GET #1,1:mes$=dummy$ 
FIELD #1,18 AS Eb$,254 AS dummy$ 
Ebanz=0 
WHILE NOT EOF(1) 
GET #1 
Ebenen$(Ebanz)=Eb$ 
Ebanz=Ebanz+1 
WEND 
Ebanz=Ebanz-2 
EbenenWahl: 
CALL Verzeichnis(Ebenen$(),Solved(),‚Ebanz) 
COLOR 5,0:CALL Zentri(2,Wedong$) 
COLOR 8:LOCATE 4,1:h=1 
FOR n=1 TO 3:h2=INSTR(h,mes$,Tr$):PRINT MID$(mes$,h,h2-h) 
:h=h2+1:NEXT 
CALL Message( "Wähle eine Ebene! ”) 
Ebene=40 
WHILE Ebene >Ebanz 
CALL GetKlick(Ebenen$() ‚Ebanz,Ebene,Solved()) 
IF Ebene<=Ebanz THEN IF Solved(Ebene)=1 THEN Ebene=40 
WEND 
JunpEbene: 
COLOR 9,0:CLS:CALL Zentri(13, Achtung, Gehirn aktivieren! 
„ 
CALL ReadEbene(1,Ebene+1,Feld(),Status()) 
MENU 1,0,1, "Optionen”:MENU 1,1,1, ”Aufgeben” 
ON MENU GOSUB Optionen:MENU ON 
GOSUB Game 
MENU OFF:MENU 1,0,0,”” 
CALL Rahmen(64,75,189,58):COLOR 1,0 
IF Status(3)<>0 THEN 
LOCATE 12,11:PRINT ”Das war wohl nichts!” 
LOCATE 15,12:PRINT "Versuchs nochmal!” 
ELSE 
LOCATE 12,17:PRINT *Hurra,” 
LOCATE 13,10:PRINT ”du hast es geschafft!” 
IF Spname$< > "Gastspieler” THEN 
Solved(Ebene)=1 


189 r6 
190 iy 
191 Vs 
192 xB8 
193 n9 
194 M4 
195 JC 
196 yi 
197 mV6 
198 4X8 
199 926 
200 pY4 
201 766 
202 054 
203 D62 
204 19 
205 g80 
206 182 
207 gR 
208 i2 
209 Rk 
210 IF 
211 6P 
212 0s0 
213 702 
214 YK4 
215 33 
216 502 
217 nX4 
218 SL2 
219 LP 
220 Bq 
221 NQO 
222 BX 
223 og 
224 Ed 
225 F42 
226 ih 
227 JP 
228 FhO 
229 d4 
230 zI 
231 aY2 
232 YN 
233 4H 
234 Hq 
235 n14 
236 SU 
237 642 
238 Qn 
239 Cr 
240 04 
241 pq 
242. XI 
243 HtO 
24h DV 
245 Hu2 
246 8r 
247 360 
248 ej 


249 9N 
250 1u 
251 Fn 
2522 


253 0) 
254 cB2 


255 fP 
256 Do 


257 xx0 
258 RQ 
259 3H 


260 A02 
261 rLO 
262 022 
263 Uo0 


Sanz=Sanz+1:MID$(B$,259)=CHR$(Sanz) 
MID$(B$,260+Ebene)=CHR$(1) 
IF Sanz=Ebanz+1 THEN 
B$=B$+Wedong$+Tr$ 
Aktpfad$="" 
MID$(B$,1)=Tr$ 
LOCATE 15,10:PRINT "Der Wedong ist gelöst.” 
CLOSE 1 
ELSE 
LOCATE 15,10:PRINT "Die Ebene ist gelöst.” 
END IF 
ELSE 
LOCATE 15,10:PRINT "Die Ebene ist gelöst.” 
END IF 
END IF 
CALL Reaction. 
Spielmenue: 
COLOR 8:CLS 
LOCATE 5,11:PRINT ”F1 => Hauptmenue” 
LOCATE 8,11:PRINT ”F2 => Neue Ebene” 
LOCATE 11,11:PRINT ”F3 => Gleiche Ebene” 
LOCATE 14,11:PRINT "F4 => Notausgang” 
CALL Message( "Treffe deine Wahl”) 
Wait: 
IF MOUSE(0)<>0 THEN 
g=MOUSE(2)\8-1 
IF (g MOD 3)=0 THEN g=g\3 ELSE g=0 
ELSE 
g=ASC( INKEY$+CHRE(0) )-128 
END IF 
IF STRIG(2)<>0 THEN Gleiche 
IF g>O THEN ON g GOTO Spielende,Neue,Gleiche,Abort 
GOTO Uwait 
Neue:IF Aktpfad$="" THEN NeuW ELSE EbenenWahl 
Gleiche: IF Status(3)=0 THEN Neue ELSE GOTO JumpEbene 
Spielend 
CLOSE 1:IF Spname$="Gastspieler” THEN GOTO Hauptmenue 
OPEN "Spieler/”+Spname$ FOR OUTPUT AS 1 
PRINT #1,B$;:CLOSE 1 
60TO Hauptmenue 
Abort:CLOSE 1:G0T0 Hauptmenue 
Wchoice: 
CALL Verzeichnis(Wedongs$(),‚Solved(),Wanz) 
COLOR 5,0:CALL Zentri(2, "Wähle einen Wedong! ”) 
h=40 
WHILE h>Wanz 
CALL GetKlick(Wedongs$() ‚Wanz,h,Solved()) 
IF h<=Wanz THEN IF Solved(h)=1 THEN h=40 
WEND 
Wedong$=Wedongs$(h) 
Aktpfad$=Wpfad$+Wedong$+”.Wedong” 
MID$(B$,1)=Aktpfad$+Tr$ 
FOR n=0 TO 39:Solved(n)=0:MID$(B$,260+n)=CHR$(0) :NEXT 
Sanz=0:MID$(B$,259)=CHR$(0) 
RETURN 
IO.Error: 
Fehler=ERR 
IF ERR=53 THEN RESUME NEXT 
ON ERROR GOTO 0 
' Hier beginnen die Routinen, die nur vom Editor gebraucht 
werden 
' Wer glaubt, den Editor nicht zu brauchen, braucht auch di 
esen Teil nicht 
' abzutippen. Statt dessen muß folgende Zeile eingefügt wer 
den: 
"Editor:BEEP:CALL Message(”Der Editor ist nicht vorhanden”) 
:CALL Reaction:GOTO Hauptmenue 
' RRRRRRRRRRRRK Anfang des Editorteils Krrkaknek 
xxx 
EdmenuDat: 
DATA Spielfeld,ObjektWahl,Löschen, LeerFeld,Startposition, 
Testen,+ 
DATA Parameter, Ansehen,Ändern,+ 
DATA Projekt,Laden,Speichern,Speichern als,Löschen, Umbene 
nnen,Neuer Wedong,Lösche Wedong, ”Hauptmenü”,+ 
DATA @ 
Edmenu:ON MENU(0) GOTO Editieren,Parameter,Projekt 
Editieren:ON MENU(1) GOSUB ObjektWahl,Loeschen,LeerFeld,Sta 
rtposition, Testen 
G60TO EndMenu 
Parameter:ON MENU(1) GOSUB Ansehen,Aendern 
GOTO EndMenu 
Projekt:ON MENU(1) GOSUB Laden,Speichern,Speichern.als,Fdel 
‚Rename,‚Wedong,KiWe,Back 
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264342] 010 Enätenu 
265 020 BEEP:STOP 
266 GX EndMenu: 
267 072 CALL Message(”Entwerfe dein eigenes Spielfeld! ”) 
268 RY , dummy=MOUSE(0) :dummy=O 
1269 vg MENU 1,0,1:MENU 2,0,1:MENU 3,0,1:MENU ON 
'270 4KO RETURN 
(271 XK Rename: 
72 w02 CGOSUB Minaktiv:GET (jx,jy)-STEP(305,220) ‚Edbuffer 
CALL Verzeichnis(Editfiles$() ‚WahlEd()‚39) 
COLOR 9,0:CALL Zentri(2, "Klicke die umzubennenden Wedongs 
en!”) 
CALL Klion( "Abbruch”) 
FIELD#1,18 AS 101$ 
CALL GetKlick(Editfiles$(),39,h,WahlEd()) 
WHILE h<=39 
IF (h MOD 2)=0 THEN x=2 ELSE x=21 
CALL Message(”Gebe den Namen der Ebene ein! ”) 
COLOR 12:y=h\2+8:Nam$="":CALL Inline(x,y,Nan$,18) 
IF Nam$< > "" THEN 
GET#1,h+1 
LSET 101$=Nan$ 
CALL Message(” ”):Editfiles$(h)=Nan$ 
PUT#1,h+1 
287 254 END IF 
‚288 39 CALL GetKlick(Editfiles$(),39,h,WahlEa()) 
289 6u2 WEND 
290 Dg PUT (jx,Jy),Edbuffer,PSET 
291 3f0 RETURN 
292 08 Kihe: 
293 Hj2 GOSUB Minaktiv:GET (jx,)y)-STEP(305,220) ‚Edbuffer 
294 {5 CALL Verzeichnis(Wedongs$(),WahlEd() ‚Wanz) 
295 JU_ COLOR 9,0:CALL Zentri(2,”Klicke die zu löschenden Wedongs 
an!”) 
296 98 _CALL Klion(”Abbruch”) 
297 £I CALL GetKlick(Wedongs$() ‚Wanz,h,WahlEd()) 
298 vj WHILE h<=Wanz 
299 zN4 IF WahlEd(h)=0 THEN 
300 6b6 KILL Wpfad$+Wedongs$(h)+".Wedong” 
‚301 w7 Wedongs$(h)=” Gelöscht! ":WahlEd(h)=1 
302 oh4 END IF 
‚303 IP CALL GetKlick(Wedongs$(),Wanz,h,WahlEd()) 
304 192 WEND 
305 U) | B$="":Flag=False 
306 Ya FOR n=0 TO Wanz 
307 XT4 IF WahlEd(n)=0 THEN B$=B$+Wedongs$(n)+CHR$(10) ELSE Fla 
HERRN: g=True 
'308 Zu2 NEXT n 
309 gb CLOSE 2 
310 2P  CALL Message("Reinitialisierung des Verzeichnisses! ”) 
‚311 Qy | IF Flag THEN OPEN Vrz$ FOR OUTPUT AS 2:PRINT#2,B$; :CLOSE 
\ 2 
312 JE GOSUB GetWedongs 
313 83 PUT (jx,Jy) ‚Edbuffer,PSET 
314 IT | FOR n=0 10 39:WahlEd(n)=0:NEXT 
315 R30 RETURN 
316 Ay Wedong: 
317 922 IF Wanz>=40 THEN BEEP:RETURN 
GOSUB Minaktiv:GET (Jx,Jy)-STEP(305,220) ‚Edbuffer 
CALL Verzeichnis(Editfiles$() ‚WahlEd(),‚39) 
COLOR 9,0:CALL Zentri(2, "Wähle die Ebenen für den Wedong! 
”) 
CALL Klion("Weiter”) 
CALL GetKlick(Editfiles$(),39,h,WahlEd()) 
h2=0 
WHILE h<=39 
IF WahlEd(h)=0 AND Editfiles$(h)<>Le$ THEN 
h2=h2+1:WahlEd(h)=1 
ELSE 
IF WahlEd(h)=1 THEN h2=h2-1:WahlEd(h)=0 
END IF 
CALL Getklick(Editfiles$(),39,h,WahlEd()) 
WEND 
IF h2>1 THEN 
COLOR 15,0:C0LS:Wedong$="":mes$="" 
CALL Zentri(2,”Gebe den Namen des Wedongs ein! ”) 
COLOR 12:CALL Inline(12,4,Wedong$,18) 
IF FN Syntax(Wedong$) THEN CALL Checkfile(Wpfad$+Hedong 
$) ELSE Fehler=99 
IF Fehler=53 THEN 
OPEN Vrz$ FOR APPEND AS 3 
COLOR 15:CALL Zentri(6,”Gebe eine Botschaft ein! ”):LO 
CATE 8,1 
PRINT #3,Wedong$:CLOSE 3:COLOR 12 
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FOR n=1 T0 3 
g$="":CALL Inline(1,8+n,g$,38) 
mes$=mes$+g$+Tr$ 

NEXT n 

CALL Message(”Der Wedong wird erzeugt! ”) 

OPEN. Wpfad$+Wedong$+”.Wedong” AS #2 LEN=272 

FIELD #2,200 AS Botschaft$ 

LSET Botschaft$=mes$ 

PUT #2,1:h=2 

FIELD #1,272 AS io1$:FIELD #2,272 AS 102$ 

FOR n=0 TO 39 
IF WahlEd(n)=1 THEN GET #1,n+1:LSET 102$=101$:PUT # 
2,h 
heh+l 

NEXT n 

CLOSE 2 

35 Wanz=Wanz+1:Wedongs$(Wanz) =Wedong$ 

357 Mö4 ELSE 

358 cA6 CLS:BEEP:COLOR 15,0 

359 x1 IF Fehler=0 THEN CALL Zentri(10, "Dieser Name existier 

t bereits”) ELSE CALL Zentri(10, "Illegaler Filename!” 
) 

360 of CALL Reaction 

361 1e4 END IF 

362 mp2 END IF 

363 EN COLOR 0,0:CLS:PUT (jx,Jy),Edbuffer,PSET 

364 6H FOR n=0 TO 39:WahlEd(n)=0:NEXT 

‚365 PrO, RETURN 

366 tX Back:EndFlag=True:RETURN 

367 Xu Fdel: 

368 Un2 GOSUB Minaktiv:GET (Jx,Jy)-STEP(305,220) ‚Edbuffer 

369 Ik  CALL Verzeichnis(Editfiles$(),‚WahlEd(),39) 

370 2R | COLOR 9,0:CALL Zentri(2,”Klicke die zu löschende Ebene an 

We) 

371 M£ | CALL Klion(”Abbruch”) 

372 5V _CALL GetKlick(Editfiles$(),39,h,WahlEd()) 

373 bQ FIELD #1,18 AS n$,254 AS dummy$ 

374 n2  WHILE h<=39 

375 3d4 GET #1,h+1 


376 38 LSET n$=Le$:Editfiles$(h)=n$ 

3798 PUT #1,hrl 

378. Bb CALL GetKlick(Editfiles$() ‚39,h,WahlEd()) 
379 YM2 WEND 

380 £8 PUT (jx,jy),Edbuffer,PSET 

381 W70 RETURN 


382 ZH Minaktiv: 

383 TN2 MENU OFF 

384 Q4 MENU 1,0,0:MENU 2,0,0:MENU 3,0,0 
385 ZBO RETURN 

386 di Ansehen: 

387 E02 GOSUB Minaktiv 

388 QU GOSUB Zeigen:CALL Reaction 

389 hd PUT (88,80) ,Buffer,PSET 

390 e60 RETURN 

391 PO Zeigen: 

392 412 GET (88,80)-STEP(150,70) ‚Buffer 
CALL Rahmen(90,82,146,66) 





x=13:TIMER ON 

LOCATE 12,x:PRINT "Schritte :zUSING’#A#"; 
Edstatus(2) 

LOCATE 13,x:PRINT *Klockis :";USING”# # ";Edstatus(3) 
LOCATE 14,x:PRINT "Klockisi :";USING”# # ";Edstatus(5) 
LOCATE 15,x:PRINT *Klockis2 :";USING” # # ";Edstatus(6) 
LOCATE 16,x: PRINT "Telops : ";USING” # # ";Edstatus(8) 


LOCATE 17,x:PRINT "BonusSchritte: ";USING”# # ";Edstatus(4) 
|  LOCATE 18,x:PRINT "BonusTelops :";USING”# # ";Edstatus(9) 
| RETURN 
Aendern: 
GOSUB Minaktiv:GOSUB Zeigen 
A1:CALL Para(26,12,Edstatus(2),3):IF Edstatus(2)=0 THEN B 
EEP:GOTO Al 
A2:CALL Para(27,13,Edstatus(3),2):IF Edstatus(3)=0 THEN B 
EEP:GOTO A2 

CALL Para(27,14,Edstatus(5),2) 

CALL Para(27,15,Edstatus(6),2) 

CALL Para(27,16,Edstatus(8) ‚2) 

CALL Para(27,17,Edstatus(4),2) 

CALL Para(27,18,Edstatus(9),2) 
PUT(88,80) ‚Buffer, PSET 
Saved=False 





Listing 2. (Fortsetzung) 
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Testen: 
GET (jx,jy)-STEP(305,220) ‚Edbuffer 


41T GH FOR x=0 TO Feldx 


FOR y=0 TO Feldy 
Feld(x,y)=EdFeld(x,y) 
NEXT y,x 
FOR n=0 TO 9:Status(n)=Edstatus(n) :NEXT 
GOSUB Minaktiv 
MENU 1,0,1:FOR n=1 TO 4:MENU 1,n,0:NEXT 
MENU 1,5,1,”Abbrechen”:ON MENU GOSUB Aufgeben:MENU ON 
Fehler=0:G0SUB Game 
CALL Rahmen(59,95,200,40) 
LOCATE 15,12:C0LOR 6 
IF Fehler=255 THEN 
BEEP 
CALL Zentri(14,”Das Spielfeld enthält”) 
CALL Zentri(16,” einen schweren Fehler! ”) 
ELSEIF Status(3)=0 THEN 
CALL Zentri(14,”Die Ebene wurde”) 
CALL Zentri(16, "erfolgreich gelöst! ”) 
ELSE 
CALL Zentri(14,"Die Ebene wurde nicht”) 
CALL Zentri(16, "gelöst! ”) 
END IF 
CALL Reaction 
MENU 1,5,1, "Testen” 
ON MENU GOSUB Edmenu 
PUT (jx,jy) ‚Edbuffer,PSET 
ObNr=1:FOR n=1 TO 4:MENU 1,n,1:NEXT 


GOSUB Minaktiv 
IF NOT Saved THEN 
COLOR 12,0:C18 
CALL Zentri(8, "Die aktuelle Ebene ist noch nicht”) 
CALL Zentri(10, "gespeichert! Soll trotzdem eine neue”) 
CALL Zentri(12, "Ebene geladen werden? ”) 
CALL JaNein(15,16,Saved) 
END IF 
IF Saved THEN 
CALL Verzeichnis(Editfiles$(),‚WahlEd() ‚39) 
COLOR 9,0:CALL Zentri(2, "Wähle die zu ladende Ebene! ”) 
CALL Klion( ”Abbruch”) 
CALL GetKlick(Editfiles$(),39,File,WahlEd()) 
IF File<=39 THEN 
CALL Message(”Die Ebene wird geladen. ”) 
CALL ReadEbene(1,File,EdFeld(),Edstatus()) 
Ledflag=True 


GOSUB Minaktiv:GET (jx,Jy)-STEP(305,220) ‚Edbuffer 
CALL Verzeichnis(Editfiles$() ‚WahlEd(),39) 
COLOR 9,0 
CALL Zentri(2,”Wo soll die Ebene gespeichert werden? ”) 
CALL Klion(”Abbruch”) 
CALL GetKlick(Editfiles$(),39, File,WahlEd()) 
IF File<=39 THEN 
IF Editfiles$(File)<>Le$ THEN 
COLOR 5,0 
CALL Zentri(2, "Soll die Ebene überschrieben werden? ” 
) 
CALL JaNein(15,5,Flag) 
ELSE 
Flag=True 
END IF 
IF Flag THEN 
IF (File MOD 2)=0 THEN x=2 ELSE x=21 
CALL Message(”Gebe den Namen der Ebene ein! ”) 
y=File\2+8:COLOR 12 
Nam$="":CALL Inline(x,y,Nam$,18) 
IF Nan$<>"" THEN 
CÄLL Message(”Die Ebene wird gespeichert. ”) 
CALL WriteEbene(1,File,Nam$,EdFeld(),‚Edstatus()) 
Editfiles$(File)=Nam$+SPACE$(18-LEN(Nam$)) :Saved=Tr 
ve 
END IF 
END IF 
END IF 
PUT (jx,Jy),Edbuffer,PSET 
TURN 


504 ut 
505 £X 
506 va2 
507 b5 


508 Kg 
509 av 
510 ch4 
Sir BB. 
512 hv2 
513 ip 
514 4V 
515 NM 
516 ps 
517 03 
518 bJ 
519 A14 
520 u7 


521 m 


522 02. 


523 136. 
524 3%8 
525 10 


526 506 
527 on8 
528 SI6 
529 10 
530 pf 
531 VO4 
532 1p2 
533 YV 
53 204 
535 UQ 
536 tI 
537 YO 
538 XL 
539 dw2 
540 WG 
SAL IKO 
"20 
543 Kii 





Speichern: 
IF File>39 THEN Speichern.als 
IF Editfiles$(File)=Le$ THEN Speichern.als 
GOSUB Minaktiv 
CALL Message( "Die Ebene wird gespeichert! ”) 
CALL WriteEbene(1,File,Editfiles$(File),‚EdFeld(),Edstatus 
0) 
Saved=True 
RETURN 
LeerFeld:ObNr=0:RETURN 
Editor: 
RESTORE EdmenuDat 
Saved=True:GOSUB Loeschen 
READ m$:x=1:y=0 
WHILE m$<>"@” 
IF m$="+” THEN x=x+1:y=0 ELSE MENU x,y,1,m$:y=y+1 
READ m$ 
WEND 
ObNr=1:EndFlag=False 
Apos(0)=0:Apos(1)=0 
OPEN PfadE$ AS 1 LEN=272 
CALL Message("Entwerfe dein eigenes Spielfeld! ”) 
ON MENU GOSUB Edmenu:MENU ON 
WHILE NOT EndFlag 
dummy=MOUSE(0) 
IF dummy<>0 THEN EdFeld(Apos(0),Apos(1))=ObNr:Saved=F 
alse 
Npos(0)=(MOUSE(1)-06J/2-2) /Obj :Npos(1)=(MOUSE(2)-0b5/2- 
2)/0b) 
IF (Npos(0)<>Apos(0) OR Npos(1)<>Apos(1)) AND Npos( 
0)<=Feldx AND Npos(0)>=0 AND Npos(1)<=Feldy AND Npos 
(1)>=0 THEN 
IF Apos(O)=Edstatus(0) AND Apos(1)=Edstatus(1) THEN 
EdFeld(Apos(0),‚Apos(1))=0 
PUT (FNx(Apos(0)),FNy(Apos(1))),Spieler(0,0,0),PSET 


ELSE 
PUT (FNx(Apos(0)),FNy(Apos(1))) ‚Objekt(O,EdFeld(Apo 
s(0),Apos(1))),PSET 
END IF 
Apos(0)=Npos(0):Apos(1)=Npos(1) 
PUT (FNx(Npos(0)),FNy(Npos(1))),‚Objekt(0,0bNr),‚PSET 
END IF 
WEND 
IF NOT Saved THEN 
MENU OFF:COLOR 8,0:CL$ 
CALL Zentri(4,”Die Ebene ist noch nicht gespeichert! ”) 
CALL Zentri(7, "Soll sie gespeichert werden? ”) 
CALL JaNein(15,14,Flag) 
IF Flag THEN GOSUB Speichern 

) END IF 
CLOSE 1 

GOTO Hauptmenue 

‚Startposition: 

GOSUB Minaktiv 

PUT (FNx(Edstatus(0)), FNy(Edstatus(1))),Objekt(0,0) ‚PSET 

CALL Message(”Gebe die Startposition ein! ”) 

dummy=MOUSE(0) 

WHILE MOUSE(0)=0 
Npos(0)=(MOUSE(1)-0b5/2) /0bj :Npos(1)=(MOUSE(2)-064/2)/0 
bj 
IF (Npos(0)<>Apos(0) OR Npos(1)<>Apos(1)) AND Npos( 
0)<=Feldx AND Npos(1)<=Feldy THEN 

PUT (FNx(Apos(0)),FNy(Apos(1))),‚Objekt(0,EdFeld(Apos( 

0) ,Apos(1))),PSET 

Apos(0)=Npos(0) :Apos(1)=Npos(1) 

PUT (FNx(Npos(0)),FNy(Npos(1))),Spieler(0,0,0),PSET 
END IF 

WEND 

Edstatus(0)=Npos(0):Edstatus(1)=Npos(1) 

RETURN 

Loeschen: 

IF NOT Saved THEN 
GOSUB Minaktiv 
CALL Message( "Willst du die Ebene wirklich löschen? ”) 
CALL JaNein(4,3,Saved) 

END IF 

IF Saved THEN 
FOR x=0 TO Feldx:FOR y=0 TO Feläy:EdFeld(x,y)=0:NEXT y, 
x 
COLOR 1,0:CLS:File=40 
Edstatus(0)=0:Edstatus(1)=0 
PUT (FNx(0),FNy(0)),Spieler(0,0,0),PSET 
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568 622 END IF 
569 X90. RETURN 
570 4K ObjektWahl: 
571 CA2 COSUB Minaktiv 
STaNI GET (7,7)-STEP(120,54) ‚Buffer 
573 pa CALL Rahmen(9,9,116,50) 
574 xx FOR n=0 TO 4 
575 934 PUT (15+n*(0bj+5),15) ‚Objekt(0,n+1) ‚PSET 
576 Tu PUT (15+n*(0bj+5) ‚20+0bj) ‚Objekt(0,n+6) ‚PSET 
577 uF2 NEXT.n 
578 20 dummy=MOUSE(O):CALL Message(”Wähle ein Objekt! ”) 
579 Ja WHILE MOUSE(0)=0:WEND 
580 02 x=MOUSE(1)-10:y=MOUSE(2)-10 
581 dH IF x>O AND x<117 AND y>O AND y<49 THEN 
582 YK4 ObNr=INT(x/(Obj+5) )+145*INT(y/(0bj+5)) 
583 LE2 END IF 
584 2u  WHILE MOUSE(0) <>O:WEND 
585 7? PUT (7,7) ‚Buffer,PSET 
586 0Q0 RETURN 
587 08 SUB Para(x,y,‚Zahl,Stellen) STATIC 
588 0)2 LINE (x*8-8,y%8-1)-STEP(Stellen*8,0),5 
589 VH  P:g$=INKEY$:IF g$="" THEN P 
590 8M LINE (x*8-8,y%8-1)-STEP(Stellen*8,0),0 
591 20 IF g$<>CHR$(13) THEN 
592 f14 CALL Inline(x,y,g$,Stellen) 
593 Qn Zahl=VAL(g$) 
594 WP2 END IF 
595 d£0 END SUB 
SUB JaNein(x,y,Flag) STATIC 
BEEP:LOCATE y,x:x=x*8-16:y=y#8-16:COLOR 1,0 
GET (x-8,y-8)-STEP(107,38) ‚Buffer 
CALL Rahmen(x-7,y-7,105,36) 
CALL Rahmen(x,y,44,22) :CALL Rahmen (x+47,y,44,22) 
PRINT PTAB(x+12) "JA"PTAB(x+54) "NEIN” 
Flag=MOUSE(0) 
WHILE MOUSE(0)=0:WEND 
Flag=FNPc (MOUSE(1) ‚MOUSE(2) ‚x+4,y+4,x+44,y+18) 
PUT (x-8,y-8) ‚Buffer,PSET 
WHILE MOUSE(0) < >0:WEND 
607 prO END SUB 
608 1J SUB Klion(Tx$) STATIC 
609 UG2 CALL Rahmen(118,24,75,23) 
610 Ch COLOR 8,0:LOCATE 5,17:PRINT Tx$ 
611 tvO END SUB 
si2ıy ' RAR Ende des Editorteils HRRHRHRKEEHEK 
x 
613 JS Playgame: 
614 sd2 LOCATE Skor,11:PRINT USING” # # # ";Status(2); 
615 tx | LOCATE Skor,24:PRINT USING” # # ";Status(3); 
616 Sä LOCATE Skor,35:PRINT USING” # # ";Status(8); 
617 Sr IF Status(2)=0 OR Status(3)=0 OR Aufgabe THEN MENU OFF:RE 
' TURN 
618 £R IF SIRIG(2) AND Status(8)>0 THEN Tcheck 
619 AQ r(1)=0 
620 Gm r(0)=STICK(2):IF r(0)<>0 THEN MoveX 
621 a0 r(1)=STICK(3):IF r(1)<>O THEN MoveY 
‚622 SkO G0T0 Playgame 
623 Lq Tcheck: 
624 vf2 r(1)=0:r(0)=STICK(2):IF r(0)<>0 THEN Tcheckobj 
625 28 r(1)=STICK(3): IF r(1)<>O THEN TcheckObj 
626 WoO GOTO Playgame 
627 Aa Teheckobj: 
628 UA2  Hpos(0)=Fpos(0)+r(0) :Hpos(1)=Fpos(1)+r(1) 
‚629 OF Oblir=Feld(Hpos(0),Hpos(1)) 
630 zn IF ObNr>2 AND ObNr<8 THEN Tausche 
"631 btO GOTO Playgame 
632 i2 Tausche: 
Status(8)=Status(8)-1 
SWAP Feld(Fpos(0),Fpos(1)),Feld(Hpos(0),Hpos(1)) 
CALL Effekt(.7,1,Tel()) 
PUT(Hpos(0)*0bj+jx,Hpos(1)*0bj+jy) ‚Spieler(0,Richtung,0), 
PSET 
FOR n=0 TO 100:NEXT 
PUT(Fpos(0)*Obj+jx, Fpos(1)*Obj+jy) ‚Objekt(0,ObNr) ‚PSET 
Fpos(0)=Hpos(0):Fpos(1)=Hpos(1) 
640 K20 GOTO Playgame 
'64: MoveX: 
642 £F2 xy=0 
643 Mi IF r(xy)=1 THEN Richtung=3 ELSE Richtung=2 
"644 SwO, GOTO Move 
‚645 90 MoveY: 
646 oP2 xy=1 
6479 IF r(xy)=1 THEN Richtung=1 ELSE Richtung=0 
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648 W00 GOTO Move 
‚649 NO Move: 
650 702 x=Fpos(0)*0bj+jx:y=Fpos(1)*Obj+jy 
651 ml PUT(x,y),Spieler(0,Richtung,1),PSET 
652 iJ | GOSUB Check 
653 jx PUT(x,y),‚Spieler(0,Richtung,0),‚PSET 
654 1t FOR n=0 TO 100:NEXT 
655 vB _PUT(x,y),Spieler(0,Richtung,2) ‚PSET 
656 62 FOR n=0 TO 200:NEXT 
657 GE IF Hflag THEN MoveEnd 
658 a9 CALL Del(Fpos(0),Fpos(1)) 
659 51  Fpos(xy)=Fpos(xy)+r(xy) 
660 yX_ Status(2)=Status(2)-1 
661 720 GOTO MoveEnd 
662 81 MoveEnd: 
663 Yj2  PUT(Fpos(0)*Obj+jx,Fpos(1)*0bj+jy),Spieler(0,Richtung,0), 
PSET 
664 Ya IF ObNr=0 THEN CALL Effekt(.5,0,Huepf()) 
665 9RO GOTO Playgame 
666 Jo Check: 
667 002 Hflag=False 
668 91 Hpos(0)=Fpos(0)+r(0) :Hpos(1)=Fpos(1)+r(1):ObNr=Feld(Hpos( 
0) ,‚Hpos(1)) 
669 41 ON ObNr GOTO Mauer,Mauer, Push, Push, Push, Flutsch, Push, BonS 
chri,BonTel,Lfeld 
670 82 | FOR w=0 TO 199:NEXT 
671 BnO RETURN 
672 NU BonTel: 
673 WE2 | Status(8)=Status(8)+Status(9) 
674 bW | IF Status(8)>99 THEN Status(8)=99 
675 ıNn CALL Effekt(.7,1,Btel()) 
676 Y8 FOR w=0 TO 199:NEXT 
677 HtO RETURN 
678 kx Lfeld: 
679 v02 CALL Effekt(.4,1,Hdick()) 
680 © FOR w=0 TO 199:NEXT 
681 1x0 RETURN 
682 WO Flutsch: 
683 412 n=400 
684 v1 WHILE Feld(Hpos(0)+r(0) ‚Hpos(1)+r(1))=0 
685 Qnd CALL MoveObj (Hpos() ‚ObNr) 
‚686 Du FOR w=0 TO 100:NEXT w 
687 HT n=n+30 
SOUND n, .5,250 
WEND 
IF Feld(Hpos(0)+r(0),Hpos(1)+r(1))=2 THEN CALL ZielDel(Hp 
os()) 
Hflag=True 
RETURN 
BonSchri: 
Status(2)=Status(2)+Status(4) 
IF Status(2)>1000 THEN Status(2)=1000 
CALL Effekt(.7,1,Bschri()) 
FOR w=0 TO 199:NEXT 
RETURN 
Mauer: FOR w=0 TO 300:NEXT:Hflag=True: RETURN 
Shinguz: 
IF Feld(Hpos(0)+r(0),Hpos(1)+r(1))=2 THEN 
Status(5)=Status(5)-1 
CALL ZielDel(Hpos()) 
Hflag=False 
END IF 
RETURN 
| Norm2: 
IF Feld(Hpos(0)+r(0),Hpos(1)+r(1))=2 AND Status(5)<=0 TH 
EN 
Status(6)=Status(6)-1 
CALL ZielDel(Hpos()) 
Hflag=False 
END IF 
0 RETURN 
" Norm3: 
IF Felä(Hpos(0)+r(0),Hpos(1)+r(1))=2 AND Status(6)<=0 TH 
EN 
Status(7)=Status(7)-1 
CALL ZielDel(Hpos()) 
ns d Hflag=False 
719 X02 END IF 
RETURN 
KeWi.:RETURN 
X Push: 


Listing 2. (Fortsetzung) 
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723 162 
7oh IK 
725 g3 
726 322 
727 his 
728 8m 
729 ha2 
730 80 
731 gp 
732 g0 
733 ba 
734 77 
735 Q72 
736 Vb 
737 FrO 
738 nz 
739 ye2 
740 ML 
741. MvO 
742 102 


743 Q00 
7Ak 832 


745 U50 
746 km2 


747 RRO 
748 NG2 
TUI SW 
750 h7 
251 De 
752 vx 
753 804 
754 06 
755 m72 
756 UM 


757 cb 
758 9T 
759 bDO 
760 LI 
761 382 
762 vr) 
763 as 


764 sh 
765 6n0 
766 RK2 
767 so 
768 e2 
769 nT4 
770 IX 
771 2N2 
772.60 
773 Fc0 
774 v02 
775 11 
776 jD 


77T NMA 


778 3a 
779 002 
780 me 

781 xZ0 
782 HU 

783 q92 
784 IH 
785 fu4 
786 pp6 
787 Aa8 
788 8k6 
789 Cp4 
790 182 
791 23 

792 p2 

793 kP 

79 0X4 
795 UX6 
796 Rn 
797 Ht2 
798 80 
799 FrO 
800 Mi 
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IF Feld(Hpos(0)+r(0),‚Hpos(1)+r(1))=0 THEN 
CALL MoveObj (Hpos(),ObNr) 
CALL Effekt(.4,0,Stos()) 
ELSE 
Hflag=-True 
ON ObNr-2 GOSUB Shinguz,Norm2,Norm3,KeWi 
END IF 
RETURN 
Optionen:ON MENU(1) GOTO Aufgeben 
Aufgeben: Aufgabe=True:RETURN 
2 ' Initialisierungsroutinen 
BlinkInit: 
ON TIMER(.45) GOSUB Blink 
TIMER ON 
RETURN 
Blink: 
Cyele=Cyele+1:IF Cycle>3 THEN Cycle=1 
ON Cycle GOTO Phasel,Phase2,Phase3 
Phasel: 
PALETTE 2,1,1,.2:PALETTE 3,.4,.6,.1:PALETTE 4,.4,.6,.1:RE 
TURN 
Phase2: 
PALETTE 2,.4,.6,.1:PALETTE 3,1,1,.2:PALETTE 4,.4,.6,.1:RE 
TURN 
Phase3: 
PALETTE 2,.4,.6,.1:PALETTE 3,.4,.6,.1:PALETTE 4,1,1,.2:RE 
TURN 
Titel: 
MENU OFF 
FOR n=1 TO 4:MENU n,0,0,”":NEXT 
RESTORE TitelBild 
COLOR 8,0 
FOR n=0 TO 6 
READ B$ 
LOCATE 3+n*3,8:PRINT B$ 
NEXT n 
COLOR 12:CALL Zentri(25,SPACE$(38)):CALL Zentri(25,Spname 
% 
LINE (0,188)-STEP(309,16),9,B 
CALL Message("Treffe deine Wahl! ”) 
RETURN 
TitelBild: 
DATA "F1 => Spieler laden”,”F2 => Spieler erschaffen” 
DATA "F3 => Ab in den Wedong”,”F4 => Wedong-Editor” 
DATA "F5 => Status des Spielers”,”F6 => Verzeichnis wec 
hseln” 
DATA "F7 => Suremosch verlassen” 
Filelnit: 
OPEN "r”, #1, PfadE$,272 
FIELD #1,18 AS EbeneEd$,254 AS dummy$ 
FOR n=0 TO 39 
GET #1,n+1 
Editfiles$(n)=EbeneEa$ 
NEXT n 
CLOSE 1 
GetWedongs: 
OPEN Vrz$ FOR INPUT AS 9 
Wanz=-1 
WHILE NOT EOF(9) 
Wanz=Wanz+1 
LINE INPUT #9, Wedongs$(Wanz) 
WEND 
CLOSE 9 
RETURN 
PicLoad: 
OPEN "Nachlader/Spieler” FOR INPUT AS 1 
FOR n=0 TO 3 
FOR n2=0 T0 2 
FOR n1=0 TO PicEl 
Spieler(n1,n,n2)=CVI(INPUT$(2,#1)) 
NEXT nı 
NEXT n2 
NEXT n 
CLOSE 1 
OPEN *Nachlader/Objekte” FOR INPUT AS 1 
FOR n1=0 TO MaxOb) 
FOR n=0 TO PicEl 
Objekt(n,n1)=CVI(INPUT$(2, #1)) 
NEXT n 
NEXT ni 
CLOSE 1 
RETURN 
Game: 














801 Fy2 Aufgabe-False 
802 Fa Fpos(0)=Status(0):Fpos(1)=Status(1) 
803 K) CALL Spielfeld(Feld(),Fpos(0),Fpos(1)) 
804 MN Richtung=O 

805 xk LOCATE Skor,1:COLOR 15,0 

806 tD PRINT ” Schritte: Klockis: Telops 
807 sS0 COLOR 12 

808 47 ON ERROR GOTO Spielfehler 

809 UD GOSUB Playgame 

810 Ca ON ERROR GOTO IO.Error 

811 R30 RETURN 


812 vZ Spielfehler:Aufgabe=True: Fehler=255:RESUME NEXT 
813 29 SoundInit: 





814 K12_ DIM Welle(255) 

815 kf Welle(O)=RND(1) 

816 14 FOR n=0 TO 255:Welle(n)=C0S(n/50) *RND*127:NEXT n 

817 KG WAVE O,Welle:WAVE 1,SIN:ERASE Welle 

818 YA RESTORE Sounddaten 

819 FX _READ anz:DIM SHARED Ding(anz,1):FOR n=0 TO anz:READ Ding( 
n,0) ‚Ding(n,1) :NEXT 

820 ef READ anz:DIM Huepf(anz,1):FOR n=0 TO anz:READ Huepf(n,0), 
Huepf(n,1):NEXT 

821 ou READ anz:DIM Hdick(anz,1):FOR n=0 TO anz:READ Hdick(n,0), 
Hdick(n,1):NEXT 

822 a4 READ anz:DIM Stos(anz,1):FOR n=0 TO anz:READ Stos(n,0),St 
os(n,1):NEXT 

823 im READ anz:DIM Bschri(anz,1):FOR n=0 TO anz:READ Bschri(n,O 
),Bschri(n,1) :NEXT 

824 4u READ anz:DIM Btel(anz,1):FOR n=0 TO anz:READ Btel(n,0),Bt 
el(n,1):NEXT 

825 yR READ anz:DIM Tel(anz,1):FOR n=0 TO anz:READ Tel(n,0),Tel( 
n,1) :NEXT 

826 gIO RETURN 


827 sD Sounddaten: 


828 Je2 DATA 6,300, 125,700, 255,500,200,400,220,350,170,300,130,25 
0,100 

829 00 DATA 3,250,90,280,160,260,255,230,100 

830 2v DATA 3,320,90,340,160,340,255,310,100 

831.ap DATA 6,250,80,280,160,260,240,250,90,280,160,260,255,230, 
100 

832 Us DATA 5,300,180,300,200,200,180,400,250,350,180,300,100 

833 jh DATA 5,500,100,1050,200,500,250,750,200,650,100,900, 50 

834 89 DATA 6,400,250,450,200,500,150,550,100,500,150,450,200,40 


0,250 
835 CUO ' Modulare Unterprogramme 

836 YD SUB Del(x,y) STATIC 

837 RY2  Feld(x,y)=0 

838 nt PUT (xX0bj+jx,yX0bj+jy) ‚Objekt(0,0),PSET 
839 ZbO END SUB 

840 Um SUB MoveObj(P(),ObNr) STATIC 


841 zm2 CALL Dei(P(0),P(1)) 

842 ID Pixy)=P(xy)+r(ay) 

843 JU__PUT(P(O)XObj+Jjx,P(1)*ObJ+jy) ‚Objekt(0,0bNr) 
844 WW  Feld(P(0),P(1))=0bNr 


845 £hO END SUB 
846 Bj SUB ZielDel(P()) STATIC 


847 712  Status(3)=Status(3)-1 
848 18 CALL Effekt(.8,2,Ding()) 
849 Tu CALL Del(P(0),P(1)) 


850 kmO| END SUB 

851 27 SUB Effekt(Dauer!,Kanal,Pegel(2)) STATIC 
852 hW2 FOR n=0 TO UBOUND(Pegel) 

853 eD4 SOUND Pegel(n,0) ‚Dauer! ‚Pegel(n,1),Kanal 
854 Ni2 NEXT. 

855 prO END SUB 

856 Ux SUB Spielfeld(F(2),spx,spy) STATIC 


857 0a2 TIMER OFF 

858 VS COLOR 1,0:0LS:xpos=jx:ypos=Jy 

859 j5 CALL Message(”Die Ebene wird aufgebaut. ”) 

860 ED FOR y=0 TO Feldy:FOR x=0 TO Feldx:PUT(xpos,ypos)‚Objekt(0 
‚F(x,y)) ‚PSET:xpos=xpos+Obj :NEXT:ypos=ypos+0bj :xpos=jx:NE 
xT 

861 Or PUT (spx*Obj+jx,spyX0bj+jy),Spieler(0,0,0),PSET 

862 KA TIMER ON 


863 x20 END SUB 

864 kJ SUB Message(Tx$) STATIC 

865 Df2 COLOR 1,0:L0CATE Skor,1:PRINT SPACES(40); 
866 Tu CALL Zentri(Skor,Tx$) 

867 130 END SUB 

868 Xn SUB Inline(x,y,In$,MaxChar) STATIC 


869 Sj2  g$=In$:2=0:In="" 
870 dg LOCATE y‚x:PRINT SPACE$(NaxChar);:LOCATE y,x 
871 pM  WHILE g$<>CHRS(13) 
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872 ch4 IF g$>=CHR$(32) AND z<MaxChar THEN 

873 D16 In$=In$+g$:2=2+1 

874 Kb PRINT g$; 

875 n54 ELSEIF g$=CHR$(8) AND 2>0 THEN 

876 wQ6 2=2-1 

877 mW IF 2=0 THEN In$="" ELSE In$=LEFT$(In$,z) 

878 j£ LOCATE y,x+2:PRINT ” "; 

879 xL LOCATE y,x+2 

880 814 END IF 

881 7A LINE ((x+2-1)*8,yX8-1)-STEP(7,0),15 

882 WA g$=INKEY$ 

883 gUa WEND 

884 UR PRINT ” "; 

885 JLO END SUB 

886 1b SUB GetKlick(Inhalt$() ‚Maxnum,Nummer,Revers()) STATIC 

887 vn2 WHILE MOUSE(0) < >0:WEND 

888 ty _WHILE MOUSE(0)=0 

889 194 IF FNPe(MOUSE(1) ‚MOUSE(2) ‚0,56,317,216) THEN 

890 b66 Nummer=INT( (MOUSE(2)-7*8) /8)*2+INT(MOUSE(1)/(20%8) ) 

891 yh4 ELSE 

892 gf6 Nummer=Maxnum+1 

893 LE4 END IF 

894 rm IF Alt<>Nummer AND Alt<=Maxnum THEN 

895 086 IF Revers(Alt)=1 THEN COLOR 6,11 ELSE COLOR 1,0 

896 ja CALL Position(Alt,Inhalt$(Alt)) 

897 PI4 END IF 

898 4m IF Nummer <=Maxnum THEN COLOR 14,15:CALL Position(Numme 
r, Inhalt$(Nummer) ) 

899 0 Alt=Numner 

900 x12 WEND 

901 ZbO END SUB 

902 QT SUB Position(Nummer,Tx$) STATIC 

903 Rs? IF (Nummer MOD 2)=0 THEN x=2 ELSE x=21 

%04 HL | LOCATE Nummer\2+8,x:PRINT Tx$;SPACE$(18-LEN(Tx$)) 

905 d£O END SUB 

906 Le SUB Verzeichnis(Inhalt$(),Rev(),MaxEl) STATIC 

907 SA2 COLOR 1,0:C18 

908 sa FOR n=0 TO MaxEl 

909 m54 IF Rev(n)=1 THEN COLOR 6,11 ELSE COLOR 1,0 

910 81 CALL Position(n,Inhalt$(n)) 

911 Id2 NEXTn 

912 kmO END SUB 

913 6K SUB ReadEbene(Nr,Satz,Sp(2),St()) STATIC 

914 Ix2 FIELD #Nr,18 AS 101$,234 AS 1028,20 AS 103$ 

915 EF GET #Nr,Satz+l 

916 nn n=1 

917 KL FOR x=0 TO Feldx 

918 TR4 FOR y=0 TO Feldy 

919 tN6 Sp(x,y)=ASC(MID$(102$,n)+CHR$(0)) 

920 KO nen+l 

921 402 NEXT y,x 

922 mD FOR x=0 T0 9 

923 114 St(x)=CVI(MID$(103$,2%x+1)) 

924 pk2 NEXT x 

925 xz0 END SUB 

926 ch SUB WriteEbene(Nr,Satz,Nam$,Sp(2),St()) STATIC 

927 YA2 FIELD #Nr,18 AS 101$,234 AS 1028,20 AS 103$ 

928 iv LSET 1o1$=Nam$:h$="" 

929 WX FOR x=0 TO Feldx 

930 fd4 FOR y=0 TO Feldy 

931 ng6 h$=h$+CHR$(Sp(x,y)) 

932 FN2 NEXT y,x 

933 Xu LSET i02$=h$:h$="" 

934 yP FOR x=0 70 9 

935 hIA h$=h$+MKI$(St(x)) 

936 12 NEXT x 

937 din LSET 103$=h$ 

938 £5 PUT #Nr,Satz+l 

939 BDO END SUB 

940 m3 SUB Checkfile(File$) STATIC 

941 Hz2 Fehler-0 

942 e0 OPEN File$ FOR INPUT AS 8:0L0SE 8 

943 FHO END SUB 

944 WO SUB Reaction STATIC 

945 102 WHILE INKEY$<>"” OR MOUSE(0)<>O OR STRIG(2)<>O:WEND 


946 00  WHILE INKEY$="” AND STRIG(2)=0 AND MOUSE(0)=0:WEND 
947 mW WHILE INKEY$< > "” OR MOUSE(0)<>0 OR STRIG(2)< >O:WEND 


948 KMO END SUB 

949 12 SUB Zentri(Zeile,Tx$) STATIC 
950 8K2 LOCATE Zeile, (41-LEN(Tx$))\2 
951 p2 PRINT Tx$; 
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S PIELE 


952 000 END SUB 


953 Ts SUB Rahmen(x1,y1,x2,y2) STATIC 

954 172 TIMER ON 

955 GE LINE (x1-1,y1-1)-STEP(x2+2,y2+2) ‚0,BF 
96 w7 LINE (x1,y1)-STEP(x2,y2),3,B 

957 56 LINE (x1+2,y1+2)-STEP(x2-4,y2-4) ,3,B 
958 UWO END SUB 


959 ng ' Autor: Christian Rodemeyer, Goldregenstraße 28, 4370 Marl 
-Sinsen 

960 Iv ' Programmname: Suremosch (Denk&Strategiespiel in reinem Ba 
sic) 

(C) 1987 MaT 


Listing 2. «Suremosch« (Schluß) 

















Programmname: File-Dat-Maker 
Computer: Amiga 500,1000,2000 mit Kickstart 1.2 
Sprache: Amiga-Basic 
Bemerkung: Erzeugt Datendateien für Suremosch 





1.GvO ' Suremosch Daten Erzeuger 
2 Js ' Dieses Programm muß einmal fehlerlos durchlaufen sein, be 
vor Suremosch 
3GU ' das erste mal gestartet wird. Es erzeugt in den verschied 
enen 
4 bX | ' Verzeichnissen die entsprechenden Files. 
50 ' 
6 9r PRINT ”Verzeichniss, in dem das Suremosch Hauptprogramm lie 
gt” 
7 wX INPUT V$ 
8 Qc ' Erstellung der Ebenen-Datei für den Editor 
9 n2 OPEN "r",#1,V$+”/Nachlader/Editor.dat”,272 
10 67 FIELD #1,18 AS Ebene$,234 AS Spielfeld$,20 AS Status$ 
il ng LSET Ebene$="Leere Ebene!” 
12 TR LSET Spielfeld$=STRING$ (234,0) 
13 XV LSET Status$=STRING$(20,0) 
14 OH FOR n=1 TO 40 
15 H92 LOCATE 3,3:PRINT "Writing . 
16 BB PUT #1,n 
47 sDO NEXT n 
18 6q CLOSE 1 
19 04 ' Kennzeichnung des Verzeichnisses Wedongs als Wedong-Verze 
ichniss 
20 0) OPEN V$+”/Wedongs/Wedong-Namen” FOR OUTPUT AS 1 
21 Tu PRINT #1,”Mein erster Wedong” 
22 Au! CLOSE 1 
(6) 1987 MET 


Listing 3. »File-Dat Maker« erzeugt die nötigen Daten- 
Dateien für Suremosch 














Programmname: Data-Lader 
Computer: Amiga 500,1000,2000 mit Kickstart 1.2 
Sprache: Amiga-Basic 
Bemerkung: Erzeugt Objekt-Dateien 


für Suremosch 





1&l0|' Dieser Data-Lader erzeugt die nötigen 

2 8b ' Binär-Dateien fÜr das Suremosch-PRG. 

3 ws ' Dazu muß das Verzeichniss angegeben 

4TN ' werden, in dem das Programm liegt. 

5 IT DIM SHARED dat$ 

6 0M DEF FN Byte(z)=VAL(”&h”+MID$(dat$,2,2)) 

7 BZ INPUT ”Verzeichniss des Suremosch-Programns: ”;Vrz2$ 
8 Dp CHDIR Vr2$ 

9 se RESTORE SpDat:CALL Rdat( "Nachlader/Spieler”, "SpDat”) 
10 QX RESTORE ObDat:CALL Rdat( "Nachlader/Objekte”, "ObDat”) 


Listing 4. »Data-Lader« erzeugt weitere Dateien für 
Suremosch 
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11 JU 


12 wr 
13 hn 
14 UF2 
15 Xp 
-16 08 
17 124 
18 ff6 
19 cv 
20 k6 
21 wf4 
22 4n6 
23 x5 
24 KD4 
25 X 
26 R3 
27 sg2 
28 U9 


29 Hi 
30 WYO 
31 Yıl 
Baer 
33 KL 
34 rd 
35 1) 
36 rc 


37 5 





38 eP 
39 67 
40 SB 
41 x6 


42 IA 





43 sI 
44 bB 
45 U2 
46 Pg 
47 64 
48 PR 
49 H4 
50 iv 
5ı vI 
52 je 
53 h6 
54 rx 
55 cM 
56 av 
57 hz 
5867 
59 35 
60 K9 


61 Fa 
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RESTORE WeDat:CALL Rdat(”Wedongs/Mein erster Wedong.Wedong” 
‚"WeDat”) 
END 
SUB Rdat(File$,D$) STATIC 
OPEN File$ FOR OUTPUT AS 1 LEN=1000 
2=1:READ dat$:Check=0 
WHILE MID$(dat$,2,1)<>"*" 
IF MID$(dat$,2,1)="-” THEN 
2=2+1:W=FN Byte(z 
c=FN Byte(2):Check=Check+wxXc*z 
PRINT #1,STRING$(c,CHR$(w)); 
ELSE 
w=FN Byte(2) :Check=Check+w-z 
PRINT #1,CHR$(w); 
END IF 
2=2+2 
IF 2>LEN(dat$) THEN READ dat$:2=1 
WEND 
READ w:IF w< >Check THEN BEEP:PRINT “Fehler in den Datas 
von ";D$;”!":STOP 
CLOSE 1 
END SUB 
SpDat: 
DATA 001100110004-0004 ,03E000000080000000, 80000001C0-0006,0 
630000009480000 
DATA 0F78-000603E00000, 03E0000001C00000, 010000000080-0022,0 
630-002E03E0000000 
DATA 8000000080000003 , E0000007F000000F,, F800001084000010, 840 
0001FFCOO000F 
DATA F800000FF8000007 , F0000007F0000003,E000000100-000A,03E0 
00000080000000 
DATA 80000003E0000007,, F000001FFC000010,840000108400001F, FCO 
0000018000000 
DATA 180000063000000E, 3800000360000001, C0-000711001100,04-0 
00403E0000000 
DATA 8000000080000001,,C0-000606300000 ,094800000F78-0006,03F 
0000003F00000 
DATA 01E0000000E0000000, 20-00220630-002E ‚,03E000000080000000 
‚80000003E0000007 
DATA FO00000FF8000010,840000108400001F, F000000FF800000F , F80 
00007F8000003 
DATA F8000001F0000000, 70-000A03E0000000,,8000000080000003,,EO 
000017F000001F 
DATA F800001084000010,,8400001FFC00000C ,0800000006000006, 100 
0000718000009 
DATA D000000070-0007, 1100110004 -0004 ,03E000000080000000, 800 
00001C0-0006 
DATA 0630000009480000, 0F78-000607E00000,, 07E0000003000000,03 
80000002-0023 
DATA 0630-002E03E0000000,8000000080000003 , E0000007F000000F, 
F800001084000010 
DATA 8400001FFC00000F , F800000FF800000F , F000000FE0000007,C00 
00007-000803 
DATA E000000080200000, 80000003E0000007 , FAOO000FFC000010,840 
000108400001F, 
DATA FC0000081800001818,0000103000000C70,,00000508000007-000 
8,1100110004-0009 
DATA 80000001C0000001,C0000003E0000003, E0-00060F780000,0948 
00000630-0006 
DATA 01C000000080000000, 80000003E0-002E ‚0630-001E01000000,0 
3E0000007F00000 
DATA 07F000000FF80000,0FF800001FFC0000, 1084000010840000, 0FF 
8000007F00000 
DATA 03E000000080000000, 80000003E0-0004,0100000003600000, 0E 
38000006300000 
DATA 0C1800000C180000, 1FFC000010840000, 108400001FFC0000,07F 
0000003E0000000 
DATA 8000000080000003,,E0-000711001100,04-000920000000, E0000 
001E0000003 
DATA F0000003F0-0006,,0F78000009480000 ,0630-00060100000000,8 
000000080000003 
DATA EO-002E0630-001F, 70000001F0000003 , F8000007F800000F, F80 
0000FF800001F 
DATA FC00001084000010,, 8400000FF8000007,, F0000003E0000000,800 
0000080000003 
DATA EO-000B70000009,D000000718000006, 1000000C0C00000C,,0800 
OO1FFCO00010 
DATA 840000108400001F, F8000017F0000003, E000000080000000, 800 
00003E0-0007 
DATA 1100110004-0008, 0200000003800000 ,03C0000007E00000, 07EO 
-00060F780000 
DATA 094800000630-0006 ,01C000000080000000, 80000003E0-002E,0 
630-001E07000000 





DATA 07C000000FE00000 ,OFFO00000FF80000, OFF800001FFC0000,108 
4000010840000 

DATA OFF8000007F00000,,03E000000080000000, 80000003E0-000A,07 
00000005C80000 

DATA 0C7000001C300000,1818000008180000,, 1FFC000010840000, 108 
400000FFC0000 

DATA 07F4000003E0000000, 8000000080000003,,E0-000711001100,04 
-001001800000 

DATA 0280000042B00000 ,49BC0000783E0000, 49BC000042B00000,028 
000000180-0026 

DATA 0200000002-000F, 0200000002-0023,0100000002700000,067C0 
0004E7E0000 

DATA 4E7FO0007FFFO000 ,4E7F00004E7E0000, 0670000002700000,01C 
0-001A03C00000 

DATA 02740000067C0000 ,4E4E00004E430000, 7FC100004E430000,4E4 
E0000067C0000 

DATA 0274000003C0-000F,,1100110004-0010,0180000002800000,42B 
0000049880000 

DATA 783C000049BC0000 ,42BE000002B00000, 0180-002602000000,02 
-000F02000000 

DATA 02-002301000000, 0270000006780000,,4E7C00004E7E0000,7FFE 
00004E7F0000 

DATA 4E7F0000067F0000,027C000001C0-0014 ,0700000002720000,06 
7C00004E4C0000 

DATA 4E4600007FC20000 ,4E4300004E410000,, 064F000002700000,01D 
8-000F110011 

DATA 0004-001001800000, 02B0000042BE0000 ,49BC0000783C0000,49 
B8000042B00000 

DATA 028000000180-0026,0200000002-000F, 0200000002-0023,0100 
000002700000 

DATA 067F00004E7F0000,,4E7F00007FFEO000,4E7E00004E7C0000,067 
8000002700000 

DATA 01C0-001A01D80000,, 02700000064 F0000 ,4E4100004E430000, 7F 
C200004E460000 

DATA 4E400000067C0000, 0272000007C0-000F,1100110004-0011,000 
0000040000006 

DATA A100001EC900003E ‚OF00001EC9000006, A1000000A0000000, 00- 
002720000000 

DATA 20-000F20000000, 20-002201C00000,,072000001F300000, 3F390 
0007F390000 

DATA 7FFFO0007F390000, 3F3900001F300000,0720000001C0-001A,01 
E0000017200000 

DATA 1F30000039390000,6139000041FF0000,6139000039390000, 1F3 
0000017200000 

DATA O1E0-000F110011,0004-0011C0000000, A0000006A100000E, C90 
0001EOFOOOOLE 

DATA C900003EA1000006, A0000000C0-0027 ,2000000020-000F ‚20000 
00020-0022 

DATA 0100000007200000 ,0F3000001F390000, 3F3900003FFF0000, 7F3 
900007F390000 

DATA 7F3000001F200000,01C0-001A01F00000,272000001F300000,19 
39000031390000 

DATA 21FF000061390000,4139000079300000,, 1F2000000DC0-000F,11 
00110004-0011 

DATA C0000006A000003E,,A100001EC900001E ‚OF0O0000E09000006, A10 
0000040000000 

DATA C0-002720000000 ,20-000F20000000, 20-002201600000, 1F2000 
007300000 

DATA 7F3900007F390000,, 3FFF00003F390000,, 1F3900000F300000, 072 
000000100-001A 

DATA 0DC000001F200000,7930000041390000,6139000021FF0000,313 
9000019390000 

DATA 1F30000027200000,01F00000000000000000000000000000% 94 
5e DATA 61864 

ObDat: 

DATA 001100110004-00FF,-00121100110004 ,840080-0009123C ‚0000 
3B60000004c0 

DATA 0000044000008620,0000055E80000013,0000B8A1000013EA ,800 
0175E00001218 

DATA 000010000000018080, 00008C80007B3F0000,DFDF8000B37C8000 
‚ED408000C0968000 

DATA B935800089538000,681F8000D2810000 , FDAC8000475E8000, E01 
5000048818000 

DATA E9A78000AD3F8000 ,B84D0000FF730000, F5DC8000DA880000, 814 
8800013300000 

DATA FB648000A4E40000, A4F18000A6220000,855E800000938000, BEA 
F800097FF8000 

DATA 175F0000D23F8000, 1002000001808000 , BLCC8000FFFF8000,,DFD 


 F8000B37C8000 


DATA FF7C8000FBF68000 ,BDF58000BDF38000 , EE3F8000D7DF8000, FDB 
F8000FFFF8000 

DATA FFFF8000BFDF8000, FBBF8000BD3F8000, BICD8000FFFF800000,1 
100110004DFFD80 
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DATA 00C1C180-000584 ‚9080009040800089, 24800084908000D2, 0980 

0001258000C4 

DATA 9180009240800089, 2480008490800092,4880-0005E1C180,, 00DF 

FD8000E00380 

DATA 00BE3E8000FFFF8O, 0076DB000071470000, 6DB7000076D30000,3 

A2E000025B60000 

DATA 369A000073670000 ,6DB7000076D30000, 7B7FOO0OFFFF8000,9E3 

E8000E0038000 

DATA DFFD8000C1C18000, 3E3E000049268000 , AEBA8000B24A8000, A92 

E8000E5D38000 

DATA DA498000E9678000, AC9A8000B24A8000, A92EB000A4828000, 3F7 

EO000E1C18000 

DATA DFFD8000FFFF8000, FFFF8000DFFD8000, E0038000EAAB8000, E00 

38000E80B8000 

DATA E1438000E80B8000 , E1438000E80B8000, E0038000E92B8000, E00 

38000DFFD8000 

DATA FFFF8000FFFF800000, 1100110004-0008, 1COE-000A0120000000 

‚C000000120000001 

DATA 2000000000000001,20-000A1C0E-0012,700380001C0E-0006,03 

3000000120-0012 

DATA 012000000330-0006, 1C0E0000700380-0015,0618-00220618-00 

27,C000000120000002 

DATA 1000000210000001,20000000C0-001B,1100110004-0008, 18000 

00024000000 

DATA 2400000018000000, 0320000003C00000, 01E0000000F00000,013 

000000006000000 

| DATA 0900000009000000,06-000E38030000 ,6404800042080000,4210 

000026300000 

DATA 1F60000003E00000 ,01E0000001F00000, 01BE000003190000, 021 

0800004108000 

DATA 480980003007-000A, 3803000064048000,,4208000042100000,26 

3000001F600000 

DATA 03E0000001E00000, 01F0000001BE0000,0319000002108000,041 

0800048098000 

DATA 3007-004B110011,0004-000818060000,,2409000024090000, 1A1 

' ‚6000003F00000 

123 hD DATA 01E0000000C0-000F,C000000120000001,20000000C0-004E,1A1 

Y 6000025290000 

124 wc DATA 42D0800042108000, 273900001FFE0000,03F0000044088000,48C 
4800048048000 

125 86 DATA 21E1000021210000,121200000A140000,0738000000C0-0006, 1A 

I 16000025290000 

126 G1 DATA 42D0800042108000,252900001C0E0000, 0210000044088000,48C 
4800048048000 

127 II DATA 21E1000021210000, 1212000004140000,073800000000000000,1 
100110004-0004 

128 wL DATA 0406000024190000 ,4224000058240000, 2519800025820000, 19B 
8000000F00000 

129 Li DATA 03C0000007660000, 1069000066290000,0906800009108000,260 

900001808-0006 

‚ DATA 0406000020010000,4000000040-0005 ‚80-000680000000,E0000 

00100000000 

DATA 40-000640-0005 ,8000000080002001,00001808-000604 ‚060000 

2001000040 

| DATA 00000040-000580, -001940-000580 ,000000800020010000, 1808 

-000610060000 

DATA 2601000043008000,4100800001818000, 0183000001BE000000, F 

8000007C000001F 

; DATA 600000306000006060,0000402080004030 ,800020190000180E,0 

000001100110004 

DATA -00040100000003 ,E000001084-0006, 0410000022A20000,61030 

00073E70000 

DATA 61C3000022A20000 ,0410-000610840000,03E000000100-000A,0 

100000003E00000 

DATA 1084-000A22220000,6103000071070000,610300002222-000A,1 

084000003E00000 

DATA 01C0-000A01000000,03E000001084-000A ,2002000060030000,7 

.007000060030000 

5 DATA 2002-000410840000,03E0000001C0-000E,0360000011440000,0 

9C8000004900000 

DATA 22A42000039CE0000,,0F78000039CE0000,, 2242000004900000,09C 

8000011440000 

DATA 0360-000B110011,0004000400001208,00000E7000002340,0000 

194E00003DBO 

| DATA 0000427C000005A2,0000145800007248, 000025A600004044 ,000 

00EA800001294 

DATA 0000144000003438,,000002-00472106,0000324800000E74 ‚0000 

63410000194E 

|| DATA 00003DB10000C3FC ‚0000066200009C39,0000742800002666,, 000 

O41CAO0004EAI 

DATA 0000129400001442,0000353800002204,0000210200002040,000 

0000400004001 
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DATA -00070100008180, 0000024000008421,0000042000000240, 0000 
| 018000004001 

' DATA -000702000001000000,2004000000110011,0004-00080E380000 
 ,7RTFOO0067F30000 

; DATA 67F300007FFFO000, 3DDEO00001400000,0140-000601000000, 01 
0000010840000 
DATA 0098000007F0-000E, 0808000004100000, 036000000100000000, 
8000000080000000 
DATA 8000000080000000, 80-000602200000,,077000000360-0032,014 
000000200000 
DATA 06B000001EBC0000, 0888000007F0-0004, 1E3000003F7E0000,67 
| F3000043E10000 

RT| DATA 43E1000067F30000,, 3DDEO00001000000, 0100000001C00000,03E 
 0000007F00000 
DATA 1FFCOOOOOFF80000, 07F0-0007110011,0004FFFFBO0OFE3F, 8000 
509880000551 
DATA 8000EC9B8000FE3F,8000C7F180009364 ,8000AA2A80009364 ,800 
OC7FLBOOOFE3F 
DATA 8000EC9B8000C551,8000E09B8000FE3F, 8000FFFF80008220,800 
0441100002804 
DATA -00062804000044 ,1100008220800001,0000000100000001,0000 
008220800044 
DATA 110000280A-0006, 080A000004110000, 02208000F01F8000,, F9CF 
8000E3E38000 
DATA 03E1800003E18000,81008000380E0000,7C9F00007DDF0000, 709 
F0000380E0000 
DATA 81C0800003E18000, C3E18000E3E38000 , FYCFBOOOFC1F8000,03E 
0000007F00000 
DATA 1F7000003EBE0000, 3F7E00007FFFOO0O, FFFF8000EF7B8000,D63 
58000EF7B8000 
DATA FFFF80007FFFO000, 3F7E00003EBEO000,, 3F70000047F00000,83E 
.00000* 
DATA 103418 
WeDat: 
DATA 4469657365722057 ‚65646F6E6720656E, 7468E46074204562,656 
E656E2061606C 
DATA 6572045363687769,657269676B656974 ,7367726164652020,766 
F6E2073656872 
DATA 206065696368740A,626973207169656D ,6069636820736368 ,776 
5722E20566965 
DATA 6020537061DF210A, -20607363682056 ,312E32-2005240000,220 
O3AAFEB202A-2017 

DATA 2A20000021003AAF ,E820242020436F70 ,7972696768740003 ,07B 
(406166672020 

DATA 6162657220606569,63687420-010A02,010101-000B0101,00-01 
04-0005010101 

DATA 000003-00040100,,0102-01040001000000 ,010001040101000000 
‚010000000100010A 
DATA 010100010101000000,,0100010A01010001,0000070000010005,0 
A010100010301000000 
DATA 0101010A0101-0009, 010401010001000000,03000000010A0101, 
000101000300030000 

DATA 010A010100010003,0003000300010A0101,000100000300030000 
‚0106010100010003 
DATA 090308030000000101,06-010404-0104 ,060101-000B-010E,000 
1000102800010 
DATA 0063000D-000503,000246F07220482E ,472E5765606073-2005,0 
102-010C080A08 
DATA OAOBOAO10A080A08, 01010A080A080A08, OAO10AOBOA010108,0A0 
BOAOBOAOBOAOL 
DATA 0A0801010A080A08 ,04040A080A010A0101.,080A080A0404080A,0 
80A0101010A0B0A 
DATA 0804040A080A010A,0101080A080A080A ,080A010A0801010A,080 
AOBOAOBOAOLOA 
DATA 080A01010109010A ,080A010A080A08010101,0001080A010A080A 
‚080A01010000-010B 
DATA 000101-0007010101,0006-0009010100,06-00060100010101,00 
06-000501010000 
DATA 0101-0006010200, 0300-010E001000, 0BO15E000A-0009, 050001 
5365687220 
| DATA 65696E6661636820 ,6F6465723F04-010B,040101-0009010101,0 
006-000706000101 

DATA -000B0101-000B,0101-00080101000000, -0A050000000101,000 
0000A030A030A 

DATA 0000000101010000 , OA0A020AOA0000-0104 ‚00000A0A020A0A000 
0,0101010000000403 
DATA 0A030A0000000101,,000000-0405000000,0101-000B0101-000B, 
0101-0008010100 
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186 ıT 
187 RU 


188 zb 


189 DK. 


190 nv 
191 Ok 
192 hz 
193 is 
194 N8 
195 Vq 
196 gu 
197 19 
198 Ws 
199 hI 
200 .a5 
201 su 
202 Ua 
203 p7 
204 gl 
205 G1 
206 L£ 


207 X8 





208 dL 
209 8K 
210 w3 
211 N6 
212 oC 
213 Km 
214 mO 
215 np 
216 zH 
217 zP 
218 nX 
219 ih 
220 s2 
221 q0 
222 eu 
223 FJ 
224 GC 
225 15 


226 Rh 
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DATA 06-00070600010101,-0009010104-010B, 040001000600FA00,08 
-000901000045 

DATA 696E66616368206C ‚E463686572606963 ,68-0005010101-0009,0 
101000101-0007 

DATA 01010000000101-0005 ,0101-00050101000000, 0101-000701010 
0,0101-0009010101 

DATA 03-000903010101,000000090808000000, -01050009000200,080 
0-0106000900 

DATA 02000800-0105000000, 090908000000010101,03-000903010101 
»-00090101000101 

DATA -00070101000000, 01-00060101-0005 ,01010000000101-0007,0 
101030101-0009 

DATA 010101-00060100,06000400050014-0009,014B6F6D62696E69,6 
572652067757421 

DATA 2020200A0101010A, 010AOAO1010AO10AOA, O10AOAOLOAOLOLOAOA 
‚O10AO1010AOAOZOA 

DATA 010108-0A040101,0AOAOA08010A0401,0AOAOAO10A010901,-0AO 
4010A0AOA0101 

DATA 0505-0A07010A01,0A05010A01-0A05,010A0101070A0A0A, 01010 
AO8OAOAOA0101 

DATA OAOAOA0102010A01,0A03010A010A0A07 ,O10A0102010A0AOA, 010 
1-0A05010108 

DATA OAO10A01010A01-0A08, 010AOAOL0AOAOAO101,0AOAOAOL0A01010 
A,000A0105-0A060101 

DATA -0A05010A010AOAOA , 01010A0OAO30A010A,01050A060A010101,0A 
OAO10A070AOAO1 

DATA 080A010AOA01010A,010A01010A01010A, 000D000200280006,002 
D00030001-0005 

DATA 01496E2052656968 ,20756E6420476069,656420-0109-0204 ,01- 
000401-0006 

DATA 0201-000406000000, 0400000201-0004 ,01-0004040002010101, 

04010101-00050101 

DATA 000000030001-0005 ,01010000000300-0104,0001010100000400 
00,01-000501010003 

DATA 0000000100050005 ,0001010003000000,010000050000-0104,04 
010405000500 

DATA 01010A0A0A080908,, 01-000401010A0AOA, -010500-0104-0A06,0 
1-00040102-0A06 

DATA 01000300000102-0407 ,000003000102-0406 ,01-000401-0204 ,- 
01090001000201 

DATA 2000110063000600, 05-00064D697474 ,6560736368776572,-200 
6-010E020000 

DATA 01020000000A0A0A, 0101000005010101,00010A0AOA010101,050 
0050000030007 

DATA OAOA010101000005 ,000300010A0A09010101,050000000100010A 
0A,0101010000050100 

DATA 010000010A000101,0006-0004010001,030001010000010101,00 
00060000000101 

DATA 000100000001-0005,0101010000030000, 01-000401010000,030 
0010000010000 

DATA 0701010003000100,0100000100000101,0000010003090100, 010 
0010101000401 

DATA 0000010000010000,0101-0004020800,0101010701010000, 0100 
0001-0005-010E 

DATA 0002000201400010,00630004-000701,4E75606C2050726F ,626C 
656D6F-2005 

DATA 02-010B0201-0007,070A000001010002,030301010001000000,0 
101000102000004 

DATA 00000001000101000000, 0A060A0100070000, 0101000100000A00 
0000,0107000101000000 

DATA 01000100000100010101,0004070100000100,0100080101070001 
‚-0007090101000000 

DATA 0701000003000008,0101000100000A01,-0004090101000101,00 
0A0400010000010101 

DATA 000001000A0001-0004 ,0101-000401-0005 ,0101010006-0004,0 
1000100000101-0004 

DATA 0204-0005010100,07-0008070102-010B,0200040008019000,09 
00090003-0008 

DATA 46F0722064656E20 ,416E66E46E676572,20200A-010B0A01,0007 
-020507000000 

DATA 0101070707020202,0707070000010109,07000702000007000000 
‚0101-000407-0006 

DATA 0101-000408-0006, 01010008010101-0006, -01050001-0004,,05 
00010100000500 

DATA 01000000-0105-0004 ,010000000100000101,-000903080101-00 
08,0100000101-0008 

DATA 09-0104-0007-0A04 ,01010A060000030000 ,0A06060A0101-0007 
‚»0A06060A010109-0006 

DATA -0A04010A-010B,0A0001000B00C800,090019-00090152,FC636B 
6B6F70706C 

DATA 756E67-20060102,-01000001-0005 ,0100000001010003,000003 
0100060000 








227 BS 





228 Na 
2 a 
230 y0 
231 ® 
232 Im 
233 nD 
234 YJ 
235 Ir 
236 RE 
237 gq 
238 TR 
239 kJ 
240 qQ 
241 oF 
242 28 
243 0V 
244 gb 
245 Z1 
246 SL 
247 nı 
248 62 
249 16 
250 hb 
251 cl 
252 24 
253 a5 
254 hJ 
255 Bu 
256 vy 
257 Eq 
258 k7 
259 DF 
260 M 


261 ck 
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Listing 4. »Data-Lader« (Schluß) 





DATA 01010100010001000000,0101000001010000,0300070A01000100 
‚0901010000000100 

DATA 0100000100010101,0001010001080807,0000000101-0005,0100 

00010100010101 

DATA 00010003000001000000, 0101000007000001,00000100010101-0 

004, 01010200000300010101 

DATA 00010108-010504 ,010100000100070000, 010000000101-0004,0 

1-000501010100 

DATA 03010300000001000000,0101-0004030100, 0100020001010700, 

01-0008-010E00 

DATA 06000400C8000900, 3200630063-0005,0141756368206E69, 6368 
TA2OFC62656C 

DATA 212020-010E-0008, 010000010202030202,090100000100000101 
‚0000000100050001 

DATA 0000030101040900 ,0100010700030000,0101000000010001,000 
0010300010107 

DATA 010100040001-0004 ,0101000001000004 ,0001000303010101,00 
00010000040001 

DATA 0000010108000600 ,010000040001020101,080000030001000000 
‚05000101080001000000 

DATA 0101010000010101,000001070007000000, 010101000007-0005, 

01010201010001000000 

DATA 0100030003000101,0001000701000501,0000000101000000,010 
2-0006-010E 

DATA 0008000A012C000E ,003200080063000000, 0400014574776173,2 
07365607473616D 

DATA 21-200401-020B,0101020201020200,02020102020101-0205,00 
-02050101-0204 

DATA 070007-02040101,020207070703070707 ,02020101-070401,030 
1-07040101070707 

DATA 0101030101070707 ,0101070707010405 ,0401070707010108, 070 
3030509050303 

DATA 0708010107070701,040504010707070101,0707070101030101,0 
707070101-0704 

DATA 010301-07040101,0707070301030103 ,0707070101070703,0001 
020100030707 

DATA 0101070300000102,0100000307010103,000000020202000000,0 
301010000020202 

DATA 0102020200000101, -020B0100010006,,0064000E00320063 ,-000 
50A00144D61 

DATA 6020776173206065 ‚6963687465732020 , -010E-0007040000, 030 
2010A010000010101 

DATA 000100000101040A,01-000701010102,0A0A010003010301,0000 
010107010A0A 

DATA 01-000406000101,0AOA0O10A0A010501,03000001010A0AOA, 010A 
010A010000010101 

DATA OAO60AOAOA010A01,0001000101010A010101,0A0AOA0100000101 
‚„OAOAO10AO0040A0O 

DATA 01000001010A0A01,0A00040A-00040101,0A0OA0OA02070A0101,00 
04000101000004 

DATA 0700000001010000, 0101-000601000000,0101010A040A01-0A04 
‚00040001010A0A0A 

DATA 010A010A0A010009, -010E0001000101, AE000F0000000400, 08-0 
00502457273 

DATA 7465722053746170 ,6560-2005-010B,020101000103010A,050A- 
00040201-0004 

DATA OAOA01000001000101,000105010A0A01-0004 ,0101000104010A0 
AOA,0000010001010000 

DATA 04-0104-00040101,05-000601010000,0101000500010101, 0000 
00-01040000 

DATA 010908000101000000, 01010201090901000000,01020001010000 
09,01000006-00040101 

DATA 030007000101000101,0000010100030001,-04050100010103,00 
0001-06050100 

DATA 0101000000010A01,0A010A0100010100,0701090A070A070A ,070 
00101000001-0006 

DATA 0700-0107020102, -01040010000202,, 580010000F000400, 02-00 
0501* 

DATA 75223 
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Dieses Programm ist unentbehrlich 
beim Abtippen unserer Listings. 

Es hilft, Tippfehler zu vermeiden und 
spart viel Zeit. 


in längeres Listing ohne Fehler abzutippen ist (fast) un- 
möglich. Aus diesem Grund haben wir in Ausgabe 3/88 
des AMIGA-Magazins eine Eingabehilfe — den Check- 
summer »Checkie 42« veröffentlicht. Die hier vorgestellte Version 
1.1 enthält erweiterte Funktionen und bietet mehr Komfort. Damit 
möglichst viele unserer Leser dieses Programm auch tatsächlich 
anwenden, haben wir es möglichst kurz gehalten und in einer 
Sprache programmiert, die alle Abtipper besitzen: Amiga-Basic. 
Die Form der Listings 
Die Listingzeilen bestehen aus einer bis zu vierstelligen Zeilen- 
nummer, der zwei- beziehungsweise dreistelligen Prüfsumme 
und der eigentlichen Programmzeile. Beispiel: 


10 TTO print ”Hallo!” 
— Prüfcode 
Zeilennummer 


Nach einer Leerstelle im Anschluß an die Zeilennummer stehen 
bis zu drei Zeichen Prüfcode. Die einzelnen Zeichen können sein 
eine Ziffer (»0« bis »9«), ein kleiner Buchstabe (»a« bis »z«) oder ein 
Großbuchstabe 
(»A«bis »Z«). Die er- 
sten beiden Zei- 
chen der Prüfsum- 
me sind der eigent- 
liche Prüfcode. Im 
dritten Zeichen ist 
die Spaltenposition 
der ersten »Nicht-Leerstelle« verschlüsselt. Das ist für 
diejenigen Anwender interessant, welche die Struktur des Li- 
stings, also die Einrückungen durch Leerzeichen, übernehmen 
wollen. Ist dies nicht Ihre Absicht, können Sie die Eingabe der 
Checksumme schon nach den ersten beiden Zeichen mit 
<Return> abschließen. Bei Checkie 42 muß die Groß- und Klein- 
schreibung so wie im Listing abgedruckt übernommen werden. 


























Eingabehinweis: 

Geben Sie »Checkie 42« (Version 1.1) bitte mit Checkie 42 aus der 
AMIGA-Ausgabe 3/88 oder 12/87 ein. Sollten Sie die alte Eingabehilfe 
nicht besitzen, so tippen Sie das Listing für die Version 1.1 im norma- 
len Basic-Editor ohne Prüfsummen und Zeilennummern ab. 





Der Umgang mit Checkie 42 

Nach dem Start fragt das Programm nach einem Dateinamen. 
Unter dem angegebenen Namen speichert Checkie 42 die einge- 
gebenen Listingzeilen ab. Existiert bereits eine Datei mit diesem 
Namen auf der Diskette, so haben Sie mit der Abfrage »Nur 
Checksummer ausgeben?« zwei Möglichkeiten: 


<j> Ausgabe der Datei mit Checksumme auf den Bild- 
schirm oder den Drucker. 

<n> Einlesen der Programmzeilen aus der 
vorhandenen Datei und Eingabe der 

Checksumme mit der Tastatur. 


Beide Alternativen sind gedacht für Anwender, die ein Listing 

nicht mit dem Zeileneditor des Checkie, sondern mit einem 
schnelleren und/oder komfortableren Editor ihrer Wahl — zum 
Beispiel dem Editor von Amiga-Basic (mit »..” ‚a« speichern) er- 
faßt haben. 
Checkie 42 errechnet nach der Eingabe <j> die Prüfsummen Ih- 
res Textes und Sie können diese dann mit dem Listing im 
AMIGA-Magazin vergleichen. Bei der Ausgabe auf den Bild- 
schirm schreibt das Programm die Programmzeilen inklusive 
Checksummen zusätzlich in eine Datei auf Diskette mit dem Zu- 
satz ».chk«. Diese können Sie später zum Beipiel mit dem CLI- 
Befehl TYPE ohne erneute Berechnung der Prüfsumme nochein- 
mal ausgeben. 

Haben Sie »Nur Checksumme ausgegeben?« mit »n« beant- 
wortet, dann können Sie dem Programm den Vergleich überlas- 
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sen, in dem die Frage »Eingabe aus Datei« mit »j« beantwortet 
wird. Dann brauchen Sie nur noch die Checksummen eingeben. 
Der Checksummer holt sich die Zeile aus der angegebenen Datei 
statt von der Tastatur. Entspricht die eingegebene Prüfzahl nicht 
der errechneten, kann die Zeile gleich korrigiert werden. 

Beantworten Sie obige Frage mit »n«, zählt Checkie die in der 
Datei vorhandenen Zeilen und wartet mit der Zeilennummer 
»Anzahl+1« auf die Eingabe einer neuen Zeile. Alle weiteren Ein- 
gaben hängt das Programm an die bestehende Datei an. Diese 
Funktion ist sinnvoll, wenn Sie ein Listing in mehreren Teilen ab- 
tippen wollen. 

So tippen Sie Listings ab 

Haben Sie anfangs einen Dateinamen eingegeben oder Sie 
hängen neue Zeilen an eine bestehende Datei an, dann arbeiten 
Sie im normalen Eingabemodus. Checkie 42 schlägt dabei eine 
Zeilennummer vor und wartet auf die Prüfsumme. Nach Eingabe 
derselben taucht der Cursor zwischen den zwei Trennstrichen 
auf. Dort muß nun die Zeile »ohne« Zeilennumer und Prüfsumme 
eingegeben werden. Nach Betätigen der Taste <Return> be- 
rechnet Checkie die Prüfsumme. Leerstellen vor und hinter der 
Programmanweisung werden ignoriert. Stimmen Programmzeile 
und Prüfsumme mit derjenigen im Listing überein, speichert der 
Checksummer die Eingabe ab und wartet auf die nächste Zeile. 
Einfügemodus: Wahrscheinlich wird eine abgetippte Zeile mal 
einen Fehler enthalten. Checkie 42 positioniert den Cursor dann 
an den Anfang der Zeile und wartet auf die korrekte Eingabe. Kor- 
rekturen lassen sich mit der Backspace- oder Delete-Taste durch- 
führen. Um Zeichenfolgen einzufügen, kann kurzfristig mit 
<F2> der Einfügemodus eingeschaltet werden. Dieser Modus 
sollte allerdings nach der Fehlerkorrektur wieder ausge- 
schaltet werden, da 
er die Eingabe ver- 
langsamt. 

Sonderfall-Prüf- 
summe ignorie- 
ren: Möchten Sie 
zum Beispiel eine 

Kommentarzeile 
nicht »original« übernehmen, läßt sich trotz einer falschen Prüf- 
summe eine Übernahme der Zeile mit der Funktionstaste <F6> 
erzwingen. Sie können damit aber auch falsche Programmzeilen 
übernehmen. Verwenden Sie deshalb die Taste <F6> nicht ge- 
wohnheitsmäßig. Der Checksummer teilt Ihnen nach Beenden 
des Programms mit, wieviel Zeilen er ungeprüft übernommen hat. 
Prüfsumme und Zeilennummer ändern: Natürlich kann es auch 
vorkommen, daß die Programmzeile zwar richtig abgetippt wurde, 
sich bei der Prüfsumme aber ein Fehler eingeschlichen hat. Nach 
Betätigen von <F1> kann die Prüfsumme korrigiert werden. 
Während der Eingabe der Prüfsumme läßt sich mit <F7> die 
vom Programm vorgeschlagene Zeilennummer verändern. Da- 
mit können Sie gezielt nur bestimmte Teile eines Listings über- 
nehmen. 

Haben Sie eine mit einem anderen Editor geschriebene Pro- 
grammdatei überprüft und nur in wenigen Zeilen Fehler festge- 
stellt, lassen sich durch Vorgabe der Nummern diese Zeilen ge- 
zielt ändern. Bei Angabe der Zeilennummer in aufsteigender Rei- 
henfolge benötigt das Programm übrigens erheblich weniger Zeit 
für die Suche der Zeilen in der jeweiligen Datei. Um die versehent- 
liche Übernahme fehlerhafter Zeilen zu verhindern, sperrt das 
Programm bei fehlender Übereinstimmung der Prüfsummen die 
Taste <F7> (Änderung der Zeilennummer). 


Fehlerfrei abtippen 


Eingabe beenden: Die Kombination <Ctrl-e> beendet den Pro- 
grammlauf nach vollständiger Eingabe des Listings oder für eine 
Unterbrechung. 

Am Schluß noch ein Tip für alle Leser, denen unser Basic-Editor 
zu langsam ist. Die Berechnung der Prüfsummen erfolgt im Un- 
terprogramm »CalcSumme«. Dieser Teil ist sehreinfach in schnel- 
lere Sprachen, wie beispielsweise C, umsetzbar. 

Wer schon einmal Fehler in einem abgetippten Listing gesucht 
hat, der weiß, wie frustrierend diese Arbeit sein kann. Nutzen Sie 
deshalb den »Checkie 42«. Sie sparen viel Zeit und müssen sich 
nicht dauernd auf die Suche nach tückischen Fehlern begeben. 

(Dieter Behlich/kn) 
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Version 1.1 “.r 
REM RHRRRRRRRRHRRHHRRRRRRRRRRRRRR 


GOSUB Init 

GOSUB OpenDatei 

IF dn$="" THEN Ende 
GOSUB Bild 


GOSUB loeschen 
GOSUB EingabeSumme 
IF FEnde=wahr THEN Ende 


GOSUB EingabeZeile 
IF FEnde=wahr THEN Ende 
GOSUB CalcSumme 
IF FZok = falsch THEN GOTO Wiederholung 
GOSUB Vebernahme 
60TO NeueZeile 
Ende: 
GOSUB fertig 
END 
Init: 
wahr=-1 
falsch=0 
1Zeile=240 : REM Anzahl Zeichen/Zeile 
LBZeile=60 : REM Anzahl Zeichen/Bildschirmzeile 
AnzBZeilen=LZeile/LBZeile 
2x=6 : zys1l4 : REM Position Zeile 
sx=20 : sy25  : REM Position Checksumme 
Anz0s2=3 : REM Anzahl Ziffern/Checksumne 
DIM z(LZeile) 
DIM es(AnzCs2*2) 
cs(AnzCs2)=0 : REM Zeilenstart 
a=0 : b=0 : c=0 : REM Hilfsvarlablen 
4=0 : j=0 : k=0 : REM Zählvariablen 
FZok = wahr : FC23=100 
Checkfile=0 : Zeiles1 
READ Faktor(1) 
WHILE Faktor(1)<>0 
isiHl 
READ Faktor(1) : REM Faktorenreihe 
WEND 
AnzFak=i 
DATA 2,3,4,5,6,0 
RETURN 
OpenDatei: 
ON ERROR GOTO Dateifehler 
cLs 
LOCATE 3,5:dn$="":INPUT "Dateiname: ”;dn$ 
OPEN dn$ FOR INPUT AS #1 
IF Fehler=53 THEN NeueDatei 
LOCATE 5,5:PRINT "Nur Checksummen ausgeben? (J/n) ”:e$=INP 
ur$(1) 
IF e$="j" THEN 
LOCATE 7,5:e$="":PRINT "Bildschirm oder Drucker? (b/d) ” 
se$=INPUT$(1) 
IF e$="d” THEN 
OPEN *prt:” FOR OUTPUT AS #4 
ELSE 
OPEN dn$+”.chk” FOR OUTPUT AS #4 
END IF 
WHILE NOT EOF(1) 
LINE INPUT#1,e$ 
apos=LEN(e$) 
2(apos)=32 
FOR i=1 TO apos 
2(i-1)=ASC(MID$(e$,1,1)) 
NEXT 4 
GOSUB CalcSunme 
1=0 
WHILE 2(1)=32 : isi+1 : WEND 
IF FC23=1 THEN 
cs(6)=-16 : REM Leerstelle 
ELSE 
es(6)=i : FC23ei 
END IF 
PRINT USING "####";Zeile; : PRINT ” ”; 
PRINT#4,USING "### #";Zeile; : PRINT#4,” "; 
FOR i=4 10 6 
IF cs(1)>35 THEN cs(i)=cs(i)+6 
IF es(i)>9 THEN es(1)=cs(1)+7 
PRINT CHR$(cs(1)+48); 
PRINT #4,CHR$(os(1)+48); 
NEXT i 
PRINT ” "ze$ 
PRINT#4," "je$ 
ZeilesZeile+l 
WEND 
CLOSE 1 : CLOSE 4 





ang="" 
PRINT:PRINT "Taste drücken” 
e$=INPUTS(1) 
RETURN 
END IF 
LOCATE 7,5:PRINT”Eingabe aus Datei? (J/n) ":e$=INPUT$(1) 
IF e$=")" THEN 
Checkfile=1 
CLOSE 1 
GOSUB backup 
OPEN dn$+”.bak” FOR INPUT AS #1 
OPEN dn$ FOR OUTPUT AS #2 
RETURN 
END IF 
WHILE NOT EOF(1) 
LINE INPUT#1,e$ 
Zeile=Zeile+l 
WEND 
CLOSE 1 


FFehler=ERR 
IF FFehler=53 THEN RESUME NEXT 
ON ERROR GOTO 0 


0 backup: 


OPEN dn$ FOR INPUT AS#1 
OPEN dn$+".bak” FOR OUTPUT AS #2 
flen=LOF(1) 
WHILE flen> =32000 
e$=INPUTS(32000,1) 
PRINT#2,e$; 
WEND 
IF flen THEN 
e$=INPUT$(flen,1) 
PRINT#2,e$; 


LOCATE 2,10 
PRINT ">>>>>>> Checkie 42 - Der ultimative Checksun 
ner! <<<<<<<” 
LOCATE 13,2x 
FOR i=1 T0 2 

FOR j=1 TO LBZeile 

PRINT "="; 

NEXT J 

LOCATE 13+AnzBZeilen+1,2x 
NEXT i 
LOCATE 5,30:PRINT "<CTRL e> = Programm beenden” 
LOCATE 7,8:PRINT "<F2> = EinfÜgemodus ein” 
LOCATE 7,40:PRINT "<F1> = Checksumme ändern” 
LOCATE 9,40:PRINT "<F6> = Zeile speichern” 
LOCATE 9,8:PRINT "<F3> = Zeile löschen” 
LOCATE 11,8:PRINT "<F7> = Zeilennunmer ändern” 


LOCATE zy,1 
FOR i=1 TO AnzBZeilen 
PRINT TAB(2x) ;SPACE$(LBZeile) 
NEXT 4 
FOR 1=0 TO LZeile 
2(1)=32 
NEXT 4 
LOCATE 2y,1 
PRINT USING "## # # ";Zeile 
apos=0 


LOCATE sy,sx+1 


Farbe=Farbe XOR 1 
COLOR Farbe,0 
LOCATE sy,sx-15 
PRINT ”Checksumme: ” 
LOCATE sy,sx+i 
e$=INKEY$ 
IF e$="" THEN blinken 
COLOR 1,0 
e=ASC(e$) 
IF e=5 THEN 
FEndeswahr : REM <CIRL e> 
i=Anz0sZ+41 : REM fertig 
ELSEIF e=135 THEN 
GOSUB NeuZeile 
e=135 





AMIGA-SONDERHEFT 1 





180 LB2 
181 4h4 
182 s26 
183 XY 

184 und 
185 Tn2 
186 K24 
187 c12 
188 rad 
189 vi6 
190 AI4 
191 Rv6 
192 jX4 
193 2x6 
194 354 
195 y26 
196 624 
197 IX 

198 ve 

199 D7 

200 432 
201 wm 


E INGABEHILFE 





ELSEIF e=8 THEN 


IF 1>1 THEN 
isi-1 : REM <BS> 
LOCATE sy,sx+i : PRINT *." 

END IF 


ELSEIF e=13 THEN 
IF i=Anz0sZ THEN i=AnzCsZ+1 : REM <CR> 
ELSE 
IF e>47 AND e<58 THEN 
e=e-48 : REM 0-9 
ELSEIF e>64 AND e<91 THEN 
ese-55 : REM A-Z 
ELSEIF e>96 AND e<123 THEN 
e=e-61 : REM a-2 
ELSE 
GO0TO blinken : REM weder noch 
END IF 
PRINT e$; 
es(i)=e 
isi+l 
END IF 
IF i<=AnzCsZ THEN blinken 


202 #50 ESEnde: 


x 203 2K2 
204 Oh 
205 c0 
206 gI 


COLOR 1,0 

LOCATE sy,sx-15 
PRINT "Checksumne: ” 
RETURN 


207 aEO Neuzeile: 


208 dU2 
209 PA4 
210 nn 
2il Ux6 
212 oF 
213 gP 
214 In 
215 in 
216 vj4 
217 kh 
218 106 
219 yy8 
220 VGA 
221 cd 
222 1p8 
223 MH 
224 fY 
225 Xa 
226 T1 
227 9 
228 cV6 
229 Yp 
230 £Q8 
231 mn 
232 17 
233. 006 
234 cR 
235 bL8 
236 8i 
237 uN 
238 % 
239 ng6 
240 oh 
241 w 
242, 952 


IF FZok = wahr THEN 
NeuZeile=0 
WHILE e<>13 OR NeuZeile=0 
LOCATE 2y,1:PRINT USING "## # # ";NeuZeile; 
e=ASC(INPUT$(1)) 
IF e>47 AND e<58 THEN NeuZeile=NeuZeile*10+e-48 
IF NeuZeile > 9999 THEN e=8 
IF e=8 THEN NeuZeile=INT(NeuZeile/10) 
WEND 
IF Checkfile THEN 
IF NeuZeile < Zeile THEN 
WHILE NOT EOF(1) 
LINE INPUT#1,e$ 
PRINT #2,e$ 
WEND 
CLOSE 1 : CLOSE 2 
GOSUB backup 
OPEN dn$+”.bak” FOR INPUT AS #1 
OPEN dn$ FOR OUTPUT AS #2 
Zeile=1 
END IF 
WHILE (NeuZeile > Zeile) AND (NOT EOF(1)) 
LINE INPUT#1,e$ 
PRINT#2,e$ 
Zeile=Zeile+l 
WEND 
IF EOF(1) THEN 
CLOSE 1 
NeuZeilesZeile 
LOCATE 2y,1:PRINT USING "## # # ";NeuZeile; 
Checkfile=0 
END IF 
END IF 
Zeile=NeuZeile 
END IF 


243 HtO RETURN 
244 IH Eingabezeile: 


245 n72 


x=os(Anz0sZ) 


246 BWO weiter: 


247 ga2 
248 vy 
249 06 
250 mI 
2351 yı 
252 68 
253 xx 
254 wl4 
255 OR6 
256 JS4 
257 1x6 
258 624 
259 mv2 
260 024 
261 922 
262 gp4 
263 01 
264 O0 
265 OF 
266 86 
267 UR2 
268 op 
269 16 
‚270 Ki 





ey=zy+INT(x/LBZeile) :cxs2x+(x MOD LBZeile) 
LOCATE oy,cx 
COLOR 0,1 
PRINT CHR$(2(x)); 
LOCATE ey,cx 
IF x>apos THEN apos=x 
IF Checkfile AND FZok THEN 
IF EOF(1) THEN 
Checkfile=0 : CLOSE 1 
ELSE 
e$=INPUT$(1,1) 
END IF 
ELSE 
e$=INKEY$ 
END IF 
IF e$="" THEN weiter 
COLOR 1,0 
PRINT CHR$(2(x)); 
LOCATE cy,cx 
e=AS0(e$) 
IF ((e AND 127)<32) OR e=127 THEN Controlcode 
IF imode THEN GOSUB insert 
PRINT e$ 
a(x)=e : e=30 
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271 3D0 Controleode: 
272 gf2 IF e=13 OR e=10 THEN 

273 INA RETURN 

274 092 ELSEIF e=30 THEN 

275 2p4 a=1 

276 Ea2 ELSEIF e=29 THEN 

277 034 a=LBZeile 

278 662 EILSEIF e=31 THEN 

279 DD4 as-1 

280 Gb2 ELSEIF e=28 THEN 

281 Rg4 a=-LBZeile 

282 952 ELSE 

283 UX4 6010 noCrs 

284 WP2 END IF 

285 hz x=x+a 

286 52 IF x>=0 AND x<LZeile THEN weiter 
287 {D x=x-a 

288 HB GOTO weiter 

289 KEO noCrs: 

290 AN2 IF e=8 THEN 

291 1s4 IF x>0 THEN 

292 Kk6 x=x-1 

293 AM LOCATE zy+INT(x/LBZeile),zx+(x MOD LBZeile 
294 Bb FOR i=x TO apos 

295 788 z(i)=z(i+1) 

296 Ja PRINT CHR$(2(1)); 
297 20 IF i MOD LBZeile=59 THEN PRINT:PRINT TAB(zx); 
298 FV6 NEXT 4 

299 pr 2(apos)=32 : PRINT ” * 
300 yR apos=apos-1 

301 ng4 END IF 

302 Hi2 ELSEIF e=127 THEN 

303 Kid FOR is=x TO apos 

304. GH6 2(i)=2(i+1) 

305 SJ PRINT CHR$(z(i)); 

306 19 IF i MOD LBZeile=59 THEN PRINT:PRINT TAB(zx); 
307 0e4 NEXT 4 

308 y0 z(apos)=32 : PRINT " ” 
309 7a apos=apos-1 

310 Vy2 ELSEIF e=129 THEN 

311 014 GOSUB EingabeSumne 

312 sC x=cs(Anz0sZ) 

313 902 ELSEIF e=130 THEN 

314 513  imode=imode XOR 1 

315 tU5 LOCATE 7,28 

316 y23 IF imode THEN 

317 iT5 PRINT "aus” 

318 j83 ELSE 

319 YV5 PRINT "ein” 

320 623 END IF 

321 Kg2 ELSEIF e=131 THEN 

322 154 GOSUB loeschen 

323 3N x=cs(An20sZ) 

324 {2 ELSEIF e=134 THEN 

325 bD4 RETURN 

326 PR2 ELSEIF e=5 THEN 

327 214 FEnde=wahr 

328 eG RETURN 

329 F82 END IF 

330 xr GOTO weiter 

331 1f0 insert: 

332 092 IF apos>x THEN 

333 304 FOR isapos TO x STEP -1 
334 Qt6 2(i+1)=2(1) 

335 g64 NEXT A 

336 PH 2(x)=32 

337 Ny apos=apos+l 

338 Kp IF apos=LZeile THEN apos=apos-1:2(LZeile)=32 
339 uk FOR i=x TO apos 

340 116 PRINT CHR$(2(1)); 

341 Hi IF i MOD LBZeile=59 THEN PRINT:PRINT TAB(zx); 
342 xD4 NEXT i 

343 yA LOCATE zy+INT(x/LBZeile),‚2x+(x MOD LBZeile 
344 UN2 END IF 

345 vX RETURN 

346 cX0 CalcSunne: 

347 382 a=0 : b=0 : c=0 

348 22 IF e=134 THEN 

349 pv4 FZok=wahr 

350 WX FF6=FF6+1 

351 022 ELSE 

352 hv4 WHILE z(apos)=32 AND apos>0 
353 pI6 apos=apos-1 

354 9x4 WEND 

355 Ni IF apos>0 THEN 

356 036 WHILE 2(0)=32 





Listing. Der verbesserte »Checkie 42«. Bitte mit der 
ersten Version von »Checkie 42« oder ohne Prüfsummen 
und Zeilennummern eingeben. 
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357 Bt8 esc+l 

358 DI6 WEND 

359 jc4 END IF 

360 EI FOR i=c TO apos 

361 126 j=(1-e) MOD AnzFak 

362 Qs k=(i+1-c) MOD AnzFak 

363 sı a=a+((z(i) AND 127)-32)%*Faktor(j) 
364 2E b=b+((2(i) AND 127)-32)*Faktor(k) 
365 Ka NEXT A 

366 pA os(4)=a+Zeile-INT( (arZeile)/62)%62 

367 4N es(5)=b+Zeile-INT( (b+Zeile)/62)*62 

368 4Q FZok=(es(1)=cs(4)) AND (cs(2)=cs(5)) 


369 tn2 END IF 

370 Ku RETURN 

371 pMO Vebernahme: 

372 xD2 FOR i=0 TO apos 
373 ind PRINT#2,CHR$(2(1)); 
374 152 NEXT i 

375 24 PRINT#2,"" 

376 5R2 ZeilesZeile+l 

377 R3 RETURN 

378 N9O fertig: 

379 MJ2 IF Oheckfile THEN 
380 224 WHILE NOT EOF(1) 


381 616 LINE INPUT#1,e$ 
382 DE PRINT#2,e$ 

383 cQ4 WEND 

384 Ok CLOSE 1 


385 922 END IF 
386 59 CLOSE 2 

387 nt CIE 

388 Rg LOCATE 12,35 

389 WL PRINT "FERTIG!!!" 

390 19 LOCATE 20,1 

391 Dl IF FR6<>O THEN 

392 C14 PRINT "ACHTUNG!!! *; 

393 9H PRINT FF6;” Zeile(n) wurde(n) ungeprÜft gespeichert.” 
394 1B2 END IF 

395 JL__ RETURN 

(C) 1988 MAT 





Listing. Der verbesserte »Checkie 42« (Schluß) 


Inserentenverzeichnis 
Alcomp 29 
Bittendorf 83 


Combitec 6/7 
Complec 55 


Data Becker 2, 163, 164 
Gigatron 97 


Hagenau Computer 49 
HS&Y 113 


Kupke Computertechnik 17 


Markt & Technik Buchverlag 
14, 20/21, 24/25, 26/27, 30/31, 57 


Ossowski 65 
Philgerma 


Rainbow Data 
Ruhrsoft 


Schmielewski 
Software 2000 
Soyka Datentechnik 
Stalter, J.M. 
Unlimited 


Wolf, Soft- und Hardwareversand 
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Gleich loslegen. 

Bei „500 für Einsteiger” heißt es 
aufstellen, anschließen und 
sofort loslegen. Schnell und für 
jedermann verständlich zeigt 
Ihnen dieses Buch, was Sie mit 
Ihrem neuen Rechner so alles 
anstellen können. Workbench, 
AmigaBASIC, CLI und DOS - 
schon bald wissen Sie, worauf 
es ankommt. 

Amiga 500 für Einsteiger 
343 Seiten, DM 39,- 


Ihr ständiger Begleiter. 
Haben Sie einmal mit dem 
großen Amiga-2000-Buch 
gearbeitet, so wird es sicherlich 
seinen festen Platz neben Ihrem 
Amiga behalten. Denn dieses 
Buch bietet Ihnen mehr als eine 
detaillierte Einführung. Vom 
Laufwerkseinbau bis hin zum 
Kickstart im RAM wird hier 
echtes Profi-Wissen vermittelt. 
Das große 
Amiga-2000-Buch 
Hardcover, 684 Seiten 

DM 59,- 
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Amiga BASIC komplett. 
Dieses Buch zeigt auf über 770 
Seiten, worauf es beim 
Programmieren ankommt. 
Natürlich mit jeder Menge 
interessanter Programm- 
beispiele, die auch gleich auf 
Diskette mitgeliefert werden. 
Ebenfalls im Buch: eine 
detaillierte Beschreibung des 
AC-BASIC-Compilers. 
AmigaBASIC 

Hardcover, 775 Seiten 

inkl. Diskette, DM 59,- 
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Das Buch zum Thema Nr. ]. 
Grafik auf dem Amiga - mit 
dem entsprechenden Know- 
how ist hier fast alles möglich. 
Dieses Buch bietet es Ihnen: 
Nutzung der Libraries, die 
Register der Grafik-Chips, 
Aufbau und Programmierung 
von Screens, Windows, 
Halfbrite und Interlace aus 
BASIC und C u.v.a.m. 
Amiga Supergrafik 
Hordkovan 686 Seiten 

inkl. Diskette, DM 59,- 


Licht und Schatten. 

Dieses Buch öffnet Ihnen den 
Weg in eine faszinierende Welt. 
Anhand ausgefeilter Grafik- 
algorithmen erzeugen Sie 
phantastische Bilder: 
naturgetreue Spiegelungen, 
Licht und Schatten. Alles absolut 
realistisch und automatisch 
berechnet. In allen Auflösungen 
mit bis zu 4096 Farben! 

Amiga 3-D-Grafik- 
programmierung 

Hardcover, 283 Seiten 

inkl. Diskette, DM 59,- 


Da steckt Musik drin. 

Hier werden Sie zu einem 
Komponisten ausgebildet, der 
nicht nur die notwendigen 
Grundbegriffe der Musik- 
theorie beherrscht, sondern 
auch modernste Technik 
einzusetzen weiß: 
Musikprogramme wie Sonix 
oder Audio Master, Sampler, 
MIDI-Interface und und und. 
Amiga-Musikbuch 
Hardcover, ca.300 Seiten 
DM 49,- 
erscheint ca.9/88 





Profi-Programme in C. 

Wenn Sie an C Spaß gefunden 
haben, gibt Ihnen das große 
C-Buch den letzten Schliff. Denn 
hier erfahren Sie nicht nur, wie 
ein C-Compiler arbeitet und 
wie Sie selbst die schwierigsten 
Probleme in C lösen, sondern 
auch, wie Sie eine optimale 
Benutzeroberfläche entwickeln. 
Das große C-Buch 

zum Amiga 

Hardcover, 682 Seiten 

inkl. Diskette, DM 69,- 


Amiga DOS 
Amiga BASIC 


Alles auf einen Blick Ä 


Der DATA BECKER 
Führer zu AmigaDOS 
& -BASIC 
269 Seiten 
DM 24,80 
















DATA BECKER 


Merowingerstr. 30 - 4000 Düsseldorf - Tel. (0211) 310010 











Die Datenbank mit Profil. 


DATAMAT hat ganz gehörig an Profil gewonnen: 

Die neue professionelle Version des beliebten Amiga- 
Programms läßt sich problemlos bedienen wie eine 
Dateiverwaltung, bietet aber die enormen Vorteile einer 
relationalen Datenbank. 


Ein Programm mit Profil eben: Profil heißt die über 
200 Befehle und Funktionen starke Interpretersprache, 
die das Programmieren so komfortabel macht. 


Anfänger finden mit bequemen Pulldown-Menüs und 
bis zu acht offenen Fenstern den schnellen Einstieg in 
die Dateiverwaltung, fortgeschrittene Anwender nutzen 
die an BASIC angelehnte, strukturierte Programmier- 
sprache. Die ist nicht nur in der leichten Erlernbarkeit 
ganz groß: Mit „Profil“ entstehen eigene Benutzerober- 
flächen so professionell wie komplexe Auswertungen. 
Verbindungen zwischen Dateien sind auch ohne 
Programmierung möglich und - besonders praktisch - 
eine Anderung dieser Relationen erfordert keine 
Reorganisation der Dateien. 


Das neue Programm beweist zudem im wörtlichen Sinn 
Größe: Die Dateien können bis zu zwei Milliarden 
Zeichen umfassen. Bei zwei.Milliarden stößt auch erst 
die Datensatz-Menge an ihre Grenze; die maximale 
Datensatzgröße beträgt 64.000 Zeichen. Vollkommen 
unbeschränkt ist die Zahl der Datenfelder (max. Feld- 
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größe 32.000 Zeichen). Und wer aus diesen Unmengen 
von Daten rasch eine bestimmte Angabe benötigt, der 
hat sie - bei bis zu 80 Indexfeldern - in Sekunden- 
schnelle zur Hand. Verlagseigene Tests beweisen: 
Gesuchte Werte oder Texte können in höchstens zwei 
Sekunden gefunden werden, ausgewählt aus sage und 
schreibe 10.000 Datensätzen. 


Die Vorteile von DATAMAT Professional lassen sich 
also leicht ausrechnen. Schwierigere Operationen 
dürfen Sie getrost dem Programm überlassen: Über 100 
Funktionen und Konstanten stehen zur Verfügung, um 
Felder auch mit elaborierten Formeln zu verknüpfen. 
Was wieder ein schönes Stück zum neuen DATAMAT- 
Profil beiträgt. 

Fordern Sie ganz unverbindlich unser kostenloses Info 
an. 


DATAMAT Professional AMIGA DM 498,- 
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